#!/usr/bin/perl
use strict;

use AwesomeGrid::User;

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

if (!AwesomeGrid::User::exists($user)) {
	print "User $user doesn't exist!\n";
	exit 1;
}

AwesomeGrid::User::delete($user);

print "User $user deleted.\n";