root/trunk/antimatter/tim/Scripts/reset-user-config.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);

  $DATABASE->beginWriteWork("main");

#$DATABASE->{main}{userConfig} = {};

foreach my $userHandle (@ARGV) {

  print "Handling $userHandle\n";
  my %x;
  $DATABASE->{main}{userConfig}{$userHandle} = \%x;

  foreach my $config
    (qw/categoryParser speakWhenSpokenTo alwaysAnswerPrivate/) {
      if ($config eq "categoryParser") {
        if ($userHandle eq "admin") {
          $DATABASE->setUserConfigValue($userHandle, $config, "AdminAssume");
        } elsif ($userHandle =~ /lawyer/) {
          $DATABASE->setUserConfigValue($userHandle, $config, "BasicLawyer");
        } else {
          $DATABASE->setUserConfigValue($userHandle, $config, "OldCategoryQuestion");
        }
      } else {
        $DATABASE->setUserConfigValue($userHandle, $config, 0);
      }
    }
}
  $DATABASE->endWriteWork("main");