root/trunk/antimatter/tim/Scripts/add-user.plx

# Copyright (C) 2005, 2006, 2007, 2008   Software Freedom Law Center, Inc.
#  Author: Bradley M. Kuhn <bkuhn@softwarefreedom.org>
#
#  This software gives you freedom; it is licensed to you under version
#  3 of the GNU Affero General Public License.
#
#  This software is distributed WITHOUT ANY WARRANTY, without even the
#  implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
#  PURPOSE.  See the GNU Affero General Public License for further
#  details.
#
# You should have received a copy of the GNU Affero General Public
# License, version 3 along with this software.  If not, see
# <http://www.gnu.org/licenses/>.
#!/usr/bin/perl -I ../Modules
use strict;
use warnings;

use SFLC::TimeTracker::DB;
use Data::Dumper;
my $database = new SFLC::TimeTracker::DB("MLDBM", "time-data.mldbm",
                                       "pending-time.mldbm");

die "no user" unless defined $ARGV[0];

my $u = $ARGV[0];

$database->beginWriteWork("pending");
$database->beginWriteWork("main");

my %cats = %{$database->{main}{categoryAliases}};
$cats{users}{$u} = {};

$database->{main}{categoryAliases} = \%cats;

my %me = %{$database->{main}{entries}};

$me{byUser}{$u} = {};
$database->{main}{entries} = \%me;

my %pe = %{$database->{pending}{entries}};

$pe{byUser}{$u} = {};
$database->{pending}{entries} = \%pe;

my %pc = %{$database->{pending}{configs}};

$pc{users}{$u} = { stack => [] };

$database->{pending}{configs} = \%pc;

my %il = %{$database->{main}{ignoreLines}};

$il{users}{$u} = { };

$database->{pending}{ignoreLines} = \%il;

my %itr = %{$database->{pending}{interactionTrees}};

$itr{$u} = [];
$database->{pending}{interactionTrees} = \%itr;

my %mc = %{$database->{main}{configs}};

delete $mc{$u} if exists $mc{$u};

$mc{users}{$u} = {};

$database->{main}{configs} = \%mc;

my(%x) = %{$database->{main}{userConfig}};
$x{$u} = {};
$database->{main}{userConfig} = \%x;

foreach my $config (qw/categoryParser speakWhenSpokenTo alwaysAnswerPrivate/) {
  if ($config eq "categoryParser") {
    $database->setUserConfigValue($u, $config, "BasicLawyer");
  } else {
    $database->setUserConfigValue($u, $config, 0);
  }
}

$database->endWriteWork("pending");
$database->endReadWork("main");