#!/usr/bin/perl
use strict;

use AwesomeGrid::User;

my $user = shift;
if (!$user) {
	print "usage: ag-useradd user\n";
	exit 1;
}

if (AwesomeGrid::User::exists($user)) {
	print "User exists! I refuse to clobber them (even though I may want to).\n";
	exit 1;
}

my $aguser = AwesomeGrid::User->new($user);

$aguser->save();
print "User $user created.\n";