#!/usr/bin/perl -w

use TicketTracker;

die "usage:  user_add <database> <user> <email> <password>\n" unless scalar @ARGV == 4;

my ($db,$user,$email,$password) = @ARGV;

die "Username must start with a letter\n" unless $user =~ m!^[a-zA-Z]!;

my $tdb = TicketTracker::open($db);

die "Username already exists\n" if $tdb->user_exists($user);

$tdb->user_add($user,$email,$password);
$tdb->close;