root/trunk/antimatter/tim/Scripts/remove-entry.plx

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

use strict;
use warnings;

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

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

my $db = $DATABASE;

my $entry = $db->getEntryById($ARGV[0], $ARGV[1]);

die "usage: $0 <USERHANDLE> <ENTRY_ID>\n" unless @ARGV == 2 and defined $entry;

$entry->remove();