hi,
#!/usr/bin/perl
use IO::File;
my $fh=new IO::File;
$fh->open("user.dat");
while(<$fh>) {
chop;
my ($username,$password) = split/:/; # I am assuming they are
seperated
by colons
system("~vpopmail/bin/vadduser","$username\@domain.tld","$password");
$fh->close;
Roman Serbski writes:
> Good day all!
>
> I use Qmail 1.03 + Vpopmail 4.9.7 + Mysql authorization. I have almost 2K users to
>add. Are there any Perl (C) scripts for adding big amount of users? Something like
>./vaddscript users.dat, where users.dat consists of username and password:
>
> [EMAIL PROTECTED] pass1
> [EMAIL PROTECTED] pass2 ... etc.
>
> Thank you,
> Roman
