|
Hello,
I have created a script with great help from Cobalt
support team. Following is the script
massuser_add.pl
=============
#!/usr/bin/perl # pass a comma separated list of # username,fullname,password # require Cobalt::User; use Cobalt::Meta; require '/home/sites/home/web/scripts/statsubs.pl'; my $addfile = '/tmp/users.dat'; #input file containing useid,fullname,password my $userlist = '/home/sites/home/data/usersadded.dat'; #list of users successfully added my $group = "site1"; #The group name of the domain to which you want the user to be added my $quota = 5; #disk quota for the user my $fpx = "off"; #front page support OFF my $apop = "off"; #apop OFF my $admin = "off"; #Admin user or not. Default OFF my $shell = "off"; #Telnet shell open IN, $addfile; flock (IN,2); @userdata = <IN>; close IN; open (OUT1, ">>$userlist"); flock (OUT1,2); foreach $usr (@userdata) { chomp($usr); ($username, $name, $passwd) = split(/\|/,$usr); print "creating $username.. "; my $m = Cobalt::Meta->new("type" => "users", "name" => "$username", "group" => "$group", "fullname" => "$name", "altname" => "", "password1" => "$passwd", "password2" => "$passwd", "quota" => "$quota", "fpx" => "$fpx", "apop" => "$apop", "shell" => "$shell", "admin" => "$admin", "suspend" => "", "aliases" => "", "forward" => "", "vacation" => "", "vacationmsg" => ""); my $res = &Cobalt::User::site_user_add($m); if ($res) { print " ERROR: $res\n"; } else { print "ok\n"; print OUT1 "$username $name added\n"; } } close OUT1; ===================
Hope this is of some help to someone.
Thanks
Vijay Nair
|