Index: /trunk/arclog/arclog.pl
===================================================================
--- /trunk/arclog/arclog.pl	(revision 24944)
+++ /trunk/arclog/arclog.pl	(revision 24945)
@@ -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 );
 
@@ -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
Index: /trunk/arclog/arclog_readdb.pl
===================================================================
--- /trunk/arclog/arclog_readdb.pl	(revision 24944)
+++ /trunk/arclog/arclog_readdb.pl	(revision 24945)
@@ -19,5 +19,5 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 
-my $filter_records = 1;
+my $filter_records = 0;
 
 my $rcfile = "$ENV{HOME}/.arclogrc";
@@ -30,5 +30,5 @@
 die "can not open logdb" unless $dbh;
 
-my $query = $dbh->prepare("SELECT * FROM log")
+my $query = $dbh->prepare("SELECT record, stamp FROM log")
     or die "database error: $!";
 $query->execute or die "database error: $!";
@@ -52,4 +52,5 @@
     @rec{qw( host time device event elapse_time errors )} 
         = split(/\|/, $row->[0]);
+    $rec{stamp} = $row->[1];
     $rec{time} = $strptime->parse_datetime($rec{time});
     push @records, \%rec;
@@ -60,6 +61,6 @@
 
 RECORDS: foreach my $rec (@records) {
-    my ($host, $time, $device, $event, $elapse_time, $errors)
-        = @$rec{qw( host time device event elapse_time errors )};
+    my ($host, $stamp, $time, $device, $event, $elapse_time, $errors)
+        = @$rec{qw( host stamp time device event elapse_time errors )};
 
     # do not print filtered records
@@ -71,5 +72,5 @@
 
     no warnings qw( uninitialized );
-    print "$host $time $device $event $elapse_time $errors\n";
+    print "$stamp - $host $time $device $event $elapse_time $errors\n";
     use warnings;
 }