tCMS/bin/tcms-useradd

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin::libs;

use Trog::Auth;

my ($user, $display_name, $pass, $contactemail) = @ARGV;

# TODO better arg handling, etc

Trog::Auth::killsession($user);
Trog::Auth::useradd($user, $display_name, $pass, ['admin'], $contactemail);