Changeset 10790

Timestamp:

2005-10-28T16:16:42+13:00 (19 years ago)

Author:

mdewsnip

Message:

Now with support for e-mailing the administrator when a collection build finishes.

File:

• trunk/gsdl/cgi-bin/gliserver (modified) (3 diffs)

trunk/gsdl/cgi-bin/gliserver

@@ -10 +10 @@
 my $authentication_enabled = 1;
 my $debugging_enabled = 0;
+
+my $mail_enabled = 1;
+my $mail_to_address = "user\@server";  # Set this appropriately
+my $mail_from_address = "user\@server";  # Set this appropriately
+my $mail_smtp_server = "smtp.server";  # Set this appropriately
 
 
@@ -642 +647 @@
     $gsdl_cgi->generate_error("Perl failed: $perl_command\n--\nExit status: " . ($perl_status / 256));
     }
+    elsif ($mail_enabled) {
+    if ($script eq "buildcol.pl") {
+        &send_mail("Remote Greenstone building event", "Build of collection '$collection' complete.");
+    }
+    }
 }
 
@@ -747 +757 @@
 
 
+sub send_mail
+{
+    my $mail_subject = shift(@_);
+    my $mail_content = shift(@_);
+
+    my $sendmail_command = "perl -S sendmail.pl";
+    $sendmail_command .= " -to \"" . $mail_to_address . "\"";
+    $sendmail_command .= " -from \"" . $mail_from_address . "\"";
+    $sendmail_command .= " -smtp \"" . $mail_smtp_server . "\"";
+    $sendmail_command .= " -subject \"" . $mail_subject . "\"";
+
+    if (!open(POUT, "| $sendmail_command")) {
+    $gsdl_cgi->generate_error("Unable to execute command: $sendmail_command");
+    }
+    print POUT $mail_content . "\n";
+    close(POUT);
+}
+
+
 &main();