Index: branches/eam_branches/20090715/arclog/arclog.pl
===================================================================
--- branches/eam_branches/20090715/arclog/arclog.pl	(revision 24799)
+++ branches/eam_branches/20090715/arclog/arclog.pl	(revision 25022)
@@ -19,8 +19,9 @@
 use Pod::Usage qw( pod2usage );
 
-my ($email);
+my ($debug, $email);
 
 GetOptions(
-    'email|s=s'    => \$email,
+    'debug|d'   => \$debug,
+    'email|s=s' => \$email,
 ) || pod2usage( 2 );
 
@@ -40,5 +41,5 @@
 die "can not open logdb" unless $dbh;
 
-$dbh->do("CREATE TABLE IF NOT EXISTS log(record TEXT, PRIMARY KEY(record))")
+$dbh->do("CREATE TABLE IF NOT EXISTS log(stamp TEXT, record TEXT, PRIMARY KEY(record))")
     or die "db error";
 
@@ -162,5 +163,5 @@
     $a->{time} cmp $b->{time}
 } @records;
-my $query = $dbh->prepare("INSERT OR IGNORE INTO log VALUES(?)")
+my $query = $dbh->prepare("INSERT OR IGNORE INTO log(stamp, record) VALUES(DATETIME('now'), ?)")
         or die "database error: $!";
 
@@ -176,6 +177,8 @@
         = @$rec{qw( host time device event elapse_time errors )};
     # pack record
-    $query->execute("$host|$time|$device|$event|$elapse_time|$errors")
+    my $rec = "$host|$time|$device|$event|$elapse_time|$errors";
+    $query->execute($rec)
         or die "database error: $!";
+    warn "inserting $rec\n" if $debug;
 
     # do not print filtered records