1 #!/usr/bin/perl
  2 # BO tak.
  3
  4 use MIME::Lite;
  5 use strict;
  6 use warnings;
  7 use IO::Socket;
  8
  9 my $username = "username";
 10 my $password = "password";
 11
 12 #my $ipaddress = &my_ip;
 13 my $all;
 14
 15
 16 sub get_twiddle {
 17         my @twiddle = `elems.sh $all -u $username -p $password invoke "jboss.system:type=ServerInfo" listMemoryPools True`;
 18         @twiddle;
 19 }
 20
 21
 22
 23 #sub my_ip {
 24
 25 my $interface="eth0";
 26 my $ifconfig="/sbin/ifconfig";
 27 my @lines=qx|$ifconfig $interface| or die("Can't get info from ifconfig: ".$!);
 28
 29        foreach(@lines){
 30                if(/inet addr:([\d.]+)/){
 31                        $all = $1;
 32                }
 33        }
 34 #}
 35
 36
 37 sub sendmail {
 38         my $host = `hostname`;
 39         my $from = "mem_info\@domain";
 40         my $to = "pawel.grzesik\@domain";
 41         my $msg = MIME::Lite->new
 42         (
 43                 Subject => "$host - memory info",
 44                 From    => $from,
 45                 To      => $to,
 46                 Type    => 'text/html',
 47                 Data    => &get_twiddle
 48         );
 49         $msg->send();
 50 }
 51
 52 &sendmail;