#!perl
#
# adduser.pl - add users to ISMail
#
# usage: adduser.pl list.txt
#  where 'list.txt' is a CSV (see IsMailMgr.pm)
#

use IsMailMgr;

my $usage = sub {
  print "usage: $0 list.txt";
  exit;
};

# Get args
&$usage() if ($#ARGV < 0);
my $fname = $ARGV[0];

my $ismgr = new IsMailMgr;
print "Error -- see System Admin" if !defined($ismgr);

$ismgr->AddList($fname);