Index: /trunk/arclog/arclog.pl
===================================================================
--- /trunk/arclog/arclog.pl	(revision 17280)
+++ /trunk/arclog/arclog.pl	(revision 17281)
@@ -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";
@@ -54,5 +54,5 @@
     my $res = $ua->request(HTTP::Request->new(GET => "http://$hostport/"));
     unless ($res->is_success) {
-        warn $res->status_line;
+        warn "can't access $hostport: ", $res->status_line;
         next;
     }
@@ -71,5 +71,5 @@
     $res= $ua->request($req);
     unless ($res->is_success) {
-        die $res->status_line;
+        die "can't access $hostport: ", $res->status_line;
     }
 
@@ -132,9 +132,15 @@
 }
 
-#use Data::Dumper;
+use Data::Dumper;
 #print Dumper(\@records);
 # sort by time
 # insert all records
-@records = sort { $a->{time} cmp $b->{time} } @records;
+@records = sort {
+    unless (defined $a->{time} && defined $b->{time}) {
+        print Dumper($a);
+        print Dumper($b);
+    }
+    $a->{time} cmp $b->{time}
+} @records;
 my $query = $dbh->prepare("INSERT OR IGNORE INTO log VALUES(?)")
         or die "database error: $!";
@@ -155,5 +161,5 @@
 
     # do not print filtered records
-    if (defined $filter_records) {
+    if ($filter_records) {
         foreach my $filter (@myfilters) {
             next RECORDS if $event =~ /$filter/;
@@ -191,6 +197,16 @@
     @row_data{qw( time device event elapse_time errors )} = @fields;
 
+    # ipp008 has been returning valid rows with completely empty fields
+    return unless defined $row_data{time};
+
     # parse time string into a DateTime object for easy sorting later
-    $row_data{time} = $strptime->parse_datetime($row_data{time});
+    my $dt = $strptime->parse_datetime($row_data{time});
+
+    unless (defined $dt) {
+#        warn "can't parse time string $row_data{time}";
+        return;
+    }
+
+    $row_data{time} = $dt;
 
     return \%row_data;