Differences

This shows you the differences between two versions of the page.

--- sending_email [2020/04/20 17:43] – juckins
+++ sending_email [2020/11/12 10:30] (current) – juckins
@@ Line 15: / Line 15: @@
   $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>