Christopher Juckins

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

==== Sending email with Perl ====

<code>
#!/usr/bin/perl -w

$sysadmin = "user\@domain.com";
$script_name = "test";
$archive_data_dir = "/a/b/c"; 
$latest_file_download = `ls -1 $archive_data_dir| tail -n 1`;

now();
`echo '$now\n\nLast saved file: $latest_file_download' | mailx -s '$script_name.pl reports stale source files' $sysadmin`;

sub now {
  $now = `date`;
  chomp($now);
}
</code>

<code>
my $email_message_file = "email.txt";
my $now = &now();
open (EMAIL, ">$email_message_file") or die "Cannot open file for writing: $!";
print EMAIL "$now\n\n";
print EMAIL "$this_filename.pl reported an error.  Please investigate.\n";
close (EMAIL);
send_reminder("user\@domain.com", "$this_filename.pl reported an error", "$email_message_file");

#---
# send reminder if error encountered
# email recipient, email subject, and filename for email body will be passed in
#---
sub send_reminder {
  my ($recipient, $subject, $body) = @_;
  print LOG "  $PID sending email to: $recipient about: $subject\n";
  my $reminder_results = "";
  $reminder_results = system("send_reminder.csh \"$recipient\" \"$body\" \"$subject\"");
  print LOG "  $PID reminder_results:\n$reminder_results\n";
}
</code>