school assignment #6

MailProcesses.pl

#!/usr/bin/perl
#
# Mailing systeminfo to $admin
use Mail::Sendmail;

# Set mailadresses.
$admin = 'root@localhost';
$from  = '[email protected]';

# Commands which output will be sent.
@commands = ("who", "uptime", "ps ax | grep apache2");

# Server hostname, nix hostname command.
$hostname = `hostname`;
chomp($hostname);

# Output in string $output.
foreach (@commands) {
  $output .= "COMMAND: $_\n";
  $output .= `$_`;
  $output .= "\n";
}

# Print out in STDOUT.
print $output;

# Format mail.
%mail = ( To      => $admin,
          From    => $from,
          Subject => "Monitoring [$hostname] system.",
          Message => $output
        );

# Send mail.
sendmail(%mail) or die $Mail::Sendmail::error;