Shell Programming and Scripting

#!/perl/bin/perl -w

#use strict;
use Net::SMTP;

# get list of ip's to ping
open (PINGFILE, "< c:\\pinghosts.txt") or die "Can't open PingHost list: $!";

my @pinglist;
my @results;
my @pingDetails;
my $holder;

while (my $line = <PINGFILE>) {
	chomp $line;
	# place the host ipaddress in the array @pinglist
	push @pinglist, $line;
}

# now ping all machines
foreach my $host (@pinglist) {
	# place results of ping in $holder
	$holder = `ping $host`;
	# place contents of $holder into the array @results
	push @results, $holder;
}

foreach my $result (@results) {
	# pull out the IP address and time details
	$result =~/(\d*\.\d*\.\d*\.\d*).*(time\<\d*ms)/;
	#place the results into $details and push into the array
	my $details = $1 . " " . $2 . "\n";
	push @pingDetails, $details;
}

#get list of e-mail addresses to send e-mails to

opendir (EMAILS, "< c:\\Documents and Settings\\emaillist.txt") || die ("Can't open e-mail list: $!");
my @TO = readdir EMAILS;
closedir (EMAILS);

my $from = "colinctdprep\@oceanfree.net"; 
my $subject = "PERL pinghost program report";

foreach my $to (@TO) {

  $smtp = Net::SMTP->new("icmp");
  die "Could not make connection: $!" unless $smtp;

  $smtp->mail($from);
  $smtp->to($to);

  $smtp->data();
  $smtp->datasend("To: $to\n");
  $smtp->datasend("From: $from\n");
  $smtp->datasend("Subject: $subject\n");
  $smtp->datasend("\n");

  foreach(@pingDetails) {
    $smtp->datasend("$_\n");
  }

  $smtp->dataend();
  $smtp->quit();

}