Changeset 17271

Timestamp:

Apr 1, 2008, 4:10:55 PM (18 years ago)

Author:

jhoblitt

Message:

fix identification of the latest timestamp in the db

File:

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

trunk/arclog/arclog.pl

@@ -95 +95 @@
 }
 
+# figure out the last record that we saw
+# since the order in the sqllite db isn't guarenteed and we can't sort in the
+# db, we have to do this by hand
+my $last_recorded_time;
+{
+    my $strptime = DateTime::Format::Strptime->new(
+        pattern => '%Y-%m-%dT%H:%M:%S'
+    );
+
+    # read in the entire database
+    my $query = $dbh->prepare("SELECT * FROM log")
+    or die "database error: $!";
+    $query->execute or die "database error: $!";
+    my $records = $query->fetchall_arrayref;
+
+    # sort it for the latest timestamp
+    foreach my $rec (@$records) {
+        my ($host, $time, $device, $event, $elapse_time, $errors)
+            = split(/\|/, $rec->[0]);
+
+        my $dt = $strptime->parse_datetime($time);
+
+        if (! defined $last_recorded_time) {
+            $last_recorded_time = $dt;
+        } elsif ($dt > $last_recorded_time) {
+            $last_recorded_time = $dt;
+        }
+
+    }
+
+#    warn "latest timestamp is: $last_recorded_time\n";
+
+    unless (defined $last_recorded_time) {
+        warn "failed to determine the time of the last recorded record\n";
+    }
+}
+
 #use Data::Dumper;
 #print Dumper(\@records);
@@ -120 +157 @@
         next RECORDS if $event =~ /$filter/;
     }
-    print "$host $time $device $event $elapse_time $errors\n";
+    
+    if ($time > $last_recorded_time) {
+        print "$host $time $device $event $elapse_time $errors\n";
+    }
 
     use warnings;