root/trunk/antimatter/tim/Scripts/find-bogus-entries.plx

use strict;
use warnings;

use  SFLC::TimeTracker::Entry;
use  SFLC::TimeTracker::DB;
use SFLC::TimeTracker::Question;
use SFLC::TimeTracker::Input;
use SFLC::TimeTracker::Category;
use SFLC::TimeTracker::Reports;
use POSIX;

use Date::Manip;

my $elevenHours = ParseDateDelta("+11 hours");

my    $db = 
      new SFLC::TimeTracker::DB("MLDBM", "./time-data.mldbm", 
                                "./pending-time.mldbm");

    SFLC::TimeTracker::Entry::Initialize($db);
    SFLC::TimeTracker::Question::Initialize($db);
    SFLC::TimeTracker::Input::Initialize($db);
    SFLC::TimeTracker::Entry::Initialize($db);


  my(@users) = $db->getUserList;

   use Data::Dumper;
  foreach my $userHandle (@users) {
    my @entries;
    foreach my $entry (values %{$db->{'main'}{entries}{byUser}{$userHandle}}) {
      my $val = Delta_Format($entry->get('amountTime'), 0, "%ht");
      if ($val > 11.0) {
        print "$userHandle: ", $entry->get('id'), " has $val\n",
        Data::Dumper->Dump([$entry]);
      }
    }
  }