root/trunk/antimatter/tim/Scripts/unalias-for-user.plx

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

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);

die "need three args USER CONFIG VALUE" unless @ARGV == 2;

my $userHandle = $DATABASE->getUserHandle($ARGV[0]);
my $alias = $ARGV[1];

my $oldVal = $DATABASE->unsetCategoryAlias($userHandle, $alias);

print "Unaliased $alias from $oldVal for $userHandle\n";