Changeset 19143

Timestamp:

Aug 20, 2008, 3:56:55 PM (18 years ago)

Author:

jhoblitt

Message:

add --email option

File:

• trunk/arclog/arclog.pl (modified) (4 diffs)

trunk/arclog/arclog.pl

@@ -3 +3 @@
 use strict;
 use warnings;
+
 use vars qw( $VERSION );
 $VERSION = '0.01';
@@ -13 +14 @@
 use DateTime::Format::Strptime;
 use DBI;
-
-#use Getopt::Long qw( GetOptions :config auto_help auto_version );
+use Email::Send;
+
+use Getopt::Long qw( GetOptions :config auto_help auto_version );
 use Pod::Usage qw( pod2usage );
-# accept no options
+
+my ($email);
+
+GetOptions(
+    'email|s=s'    => \$email,
+) || pod2usage( 2 );
+
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 
@@ -34 +42 @@
 $dbh->do("CREATE TABLE IF NOT EXISTS log(record TEXT, PRIMARY KEY(record))")
     or die "db error";
+
+my $errors;
+my $output;
+###
+if (defined $email) {
+    close(STDOUT);
+    close(STDERR);
+    open(STDOUT, '>', \$output) or die "Can't open STDOUT: $!";
+    open(STDERR, '>', \$errors) or die "Can't open STDERR: $!";
+}
 
 # HTTP authentication realm
@@ -174 +192 @@
     use warnings;
 }
+
+my $message =<<END;
+To: $email
+From: jhoblitt\@ifa.hawaii.edu
+Subject: output from arclog.pl
+
+$errors
+$output
+END
+
+my $sender = Email::Send->new({mailer => 'SMTP'});
+$sender->mailer_args([Host => 'hale.ifa.hawaii.edu']);
+$sender->send($message);