Not Tested! you use with your own risk.
---8<---
#!/usr/bin/perl
#
# vemerge.pl 0.1
# Copyright (C) 2003 Firman Pribadi firmanp/at/sysadmin.eu.org
# Please see http://www.fsf.org/licenses/gpl.txt
$DOMAIN = @ARGV[0];
if (@ARGV == '')
{
print "vemerge.pl - v.0.1\n";
print "(C) 2003 firmanp/at/sysadmin.eu.org\n";
print "USAGE: vemerge.pl [domain]\n\n";
exit;
}
# Where did you install VPopMail ?
$VPOPMAILHOME = "/home/vpopmail";
# Quota User (New Format)
$QUOTAUSERS = "5000000S";
# Open VPopMail's vpasswd file.
$VPASSWD_FILE = "$VPOPMAILHOME/domains/$DOMAIN/vpasswd";
open(VPASSWD_FILE) or die "CAN'T OPEN $VPASSWD_FILE";
# Go go go,... Protect the VIP Team! --CounterStrike.
while (<VPASSWD_FILE>) {
($v_name, $v_passwd, $v_uid, $v_gid, $v_gecos, $v_dir, $v_shell, $v_clearpass) =
split(/:/, $_);
# Remove the linefeed in each row.
$v_shell=~s/\n//g;
$run = "$VPOPMAILHOME/bin/vadduser -q $QUOTAUSERS [EMAIL PROTECTED] $v_clearpass";
print ("RUN -> $run");
system ($run);
}
# Close the vpasswd file.
close (VPASSWD_FILE);
---8<---
Hope this help.
--
Firman Pribadi
--------------
Orang yang mampu menjalani hidup dengan penuh kenikmatan adalah orang yang terbuka
untuk mengenal Allah lebih dekat lagi dalam setiap saat./MQ
Quoting T. Albert <[EMAIL PROTECTED]> on 02-Sep-2003,
> hi,
>
> saya mau minta tolong nih, server qmail saya crash, and user nya ada ribuan,
> gimana cara adduser yan cepet pake script ? file vpasswd nya sih ada. jadi
> kurang lebih script nya membaca dari USER & PASSWORD dari file vpasswd yang
> lama, lalu di add pakai vadduser.
>
> misalkan di vpasswd ada baris sept:
>
> adikmu:$1$APk53$LDKqN7AYCRF8Y6KO7EnZO.:1:0:adikmu:/var/vpopmail/domains/mydomain.com/2/adikmu:5000000:passmu
> adiku:$1$fG0ZU$dSiCtMP6NbuoqyCep9jpO/:1:0:adiku:/var/vpopmail/domains/mydomain.com/5/adiku:5000000:passku
>
> nah kurang lebih nanti script nya baca user 'adikmu' dengan password 'passmu',
> lalu mengeksekusi vadduser -q 5000000 [EMAIL PROTECTED] passmu
>
> lalu utk baris kedua
> script akan membaca user 'adiku' dengan password 'passku'
> lalu mengeksekusi vadduser -q 5000000 [EMAIL PROTECTED] passku
>
> thank you in advance
/* dihapus|deleted */
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis.php
