#!/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);[Paul Alcock] # next line is line
54.
($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
vnair@xxxxxxxx
vijay@xxxxxxxxxxxxxxxxxx