CVS Update: fgo.ca

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
Send an email on complete upload.

Modified Files:
--------------
    fgo.ca/public_html:
        butternut.pl

Revision Data
-------------
Index: butternut.pl
===================================================================
RCS file: /cvs/fgo.ca/public_html/butternut.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -Lpublic_html/butternut.pl -Lpublic_html/butternut.pl -u -r1.6 -r1.7
--- public_html/butternut.pl
+++ public_html/butternut.pl
@@ -31,6 +31,7 @@
 use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
 use Spreadsheet::ParseExcel::Simple;
 use Data::Dump;
+use Mail::Sendmail;
 use strict;
 
 my $gleipnir = new Gleipnir;
@@ -513,6 +514,27 @@
 
 		my $template = $gleipnir->template('butternut/results');
 		$template->param(errors => \@errors, messages => \@messages);
+
+		my $email = $gleipnir->template('butternut/email');
+		$email->param(errors => \@errors, messages => \@messages);
+
+		my %mail = ();
+		my $h    = 1;
+		foreach my $l ( split /\n/, $email->output )
+			{
+				if ( $h == 1 )
+					{
+						my ( $key, $value ) = ( $l =~ m/^([^:]+): (.*)/ );
+						$mail{$key} = $value if defined($key) and defined($value);
+					}
+				else
+					{
+						$mail{Message} .= "$l\n";
+					};
+				$h = 0 if $l =~ m/^\s*$/;
+			};
+		sendmail(%mail);
+
 		return $gleipnir->body($template->output);
 	};