Index: /trunk/arclog/arclog.pl
===================================================================
--- /trunk/arclog/arclog.pl	(revision 24826)
+++ /trunk/arclog/arclog.pl	(revision 24827)
@@ -40,5 +40,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 +162,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: $!";