RE: [cobalt-users] Mass Users addition to RAQ3

["Paul Alcock" <webmgr@xxxxxxxxxxxxxxxxxx>]

Sorry folks, didn't realize the original post was in html.

I think that line 54 which currently reads
($username, $name, $passwd) = split(/\|/,$usr);
should read
($username, $name, $passwd) = split(',',$usr);
if the $addfile contains comma delimited records

Paul.
-----Original Message-----
From: cobalt-users-admin@xxxxxxxxxxxxxxx
[mailto:cobalt-users-admin@xxxxxxxxxxxxxxx]On Behalf Of Vijay
Sent: Wednesday, April 26, 2000 11:28 PM
To: cobalt-users@xxxxxxxxxxxxxxx
Subject: [cobalt-users] Mass Users addition to RAQ3


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);[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