- ###
- # FORMAT OF THE PASSWD FILE HERE
- print PASSWD join(":",
- $username,
- 'x', # "##". $username,
- $svc_acct->uid,
- $svc_acct->gid,
- $svc_acct->finger,
- $svc_acct->dir,
- $svc_acct->shell,
- ), "\n";
-
- ###
- # FORMAT OF THE SHADOW FILE HERE
- print SHADOW join(":",
- $username,
- $cpassword,
- '',
- '',
- '',
- '',
- '',
- '',
- '',
- ), "\n";
- }
-
- ###
- # FORMAT OF THE VPASSWD FILE HERE
- print VPASSWD join(":",
- $svc_acct->username,
- $cpassword,
- '1',
- '0',
- $svc_acct->username,
- "$vpopdir/domains/" . $svc_domain->domain ."/" . $svc_acct->username,
- 'NOQUOTA',
- ), "\n";
-
- }
-
- if ( $svc_acct->slipip ne '' ) {
-
- ###
- # FORMAT OF THE ACP_* FILES HERE
- print ACP_PASSWD join(":",
- $username,
- $cpassword,
- "0",
- "0",
- "",
- "",
- "",
- ), "\n";
-
- my($ip)=$svc_acct->slipip;
-
- unless ( $ip eq '0.0.0.0' || $svc_acct->slipip eq '0e0' ) {
- print ACP_DIALUP $username, "\t*\t", $svc_acct->slipip, "\n";
- }
-
- my %radreply = $svc_acct->radius_reply;
- my %radcheck = $svc_acct->radius_check;
-
- my $radcheck = join ", ", map { qq($_ = "$radcheck{$_}") } keys %radcheck;
- $radcheck .= ", " if $radcheck;
-
- ###
- # FORMAT OF THE USERS FILE HERE
- print USERS
- $username,
- qq(\t${textradiusprepend}),
- $radcheck,
- qq(Password = "$rpassword"\n\t),
- join ",\n\t", map { qq($_ = "$radreply{$_}") } keys %radreply;
-
- if ( $ip && $ip ne '0e0' ) {
- #print USERS qq(,\n\tFramed-Address = "$ip"\n\n);
- print USERS qq(,\n\tFramed-IP-Address = "$ip"\n\n);
- } else {
- print USERS qq(\n\n);
- }
-
- ###
- # ICRADIUS export
- if ( $icradiusmachines ) {
-
- my $sth = $icradius_dbh->prepare(
- "INSERT INTO radcheck ( id, UserName, Attribute, Value ) VALUES ( ".
- join(", ", map { $icradius_dbh->quote( $_ ) } (
- '',
- $username,
- "Password",
- $svc_acct->_password,
- ) ). " )"
- );
- $sth->execute or die "Can't insert into radcheck table: ". $sth->errstr;
-
- foreach my $attribute ( keys %radcheck ) {
- my $sth = $icradius_dbh->prepare(
- "INSERT INTO radcheck ( id, UserName, Attribute, Value ) VALUES ( ".
- join(", ", map { $icradius_dbh->quote( $_ ) } (
- '',
- $username,
- $attribute,
- $radcheck{$attribute},
- ) ). " )"
- );
- $sth->execute or die "Can't insert into radcheck table: ". $sth->errstr; }
-
- foreach my $attribute ( keys %radreply ) {
- my $sth = $icradius_dbh->prepare(
- "INSERT INTO radreply (id, UserName, Attribute, Value) VALUES ( ".
- join(", ", map { $icradius_dbh->quote( $_ ) } (
- '',
- $username,
- $attribute,
- $radreply{$attribute},
- ) ). " )"
- );
- $sth->execute or die "Can't insert into radreply table: ". $sth->errstr; }
-
- if ( $ip && $ip ne '0e0' ) {
- my $sth = $icradius_dbh->prepare(
- "INSERT INTO radreply (id, UserName, Attribute, Value) VALUES ( ".
- join(", ", map { $icradius_dbh->quote( $_ ) } (
- '',
- $username,
- 'Framed-IP-Address',
- $ip,
- ) ). " )"
- );
- $sth->execute or die "Can't insert into radreply table: ". $sth->errstr; }
- }
- }
-
- ###
- # vpopmail directory structure creation
-
- (mkdir "$spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username, 0700)
- or die "Can't create $spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . ": $!";
- (mkdir "$spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . "/Maildir", 0700)
- or die "Can't create $spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . " /Maildir: $!";
- (mkdir "$spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . "/Maildir/cur", 0700)
- or die "Can't create $spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . " /Maildir/cur: $!";
- (mkdir "$spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . "/Maildir/new", 0700)
- or die "Can't create $spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . " /Maildir/new: $!";
- (mkdir "$spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . "/Maildir/tmp", 0700)
- or die "Can't create $spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . " /Maildir/tmp: $!";
-
- ( open(DOTQMAIL,">$spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . "/.qmail")
- and flock(DOTQMAIL,LOCK_EX|LOCK_NB)
- ) or die "Can't open $spooldir/domains/" . $svc_domain->domain . "/" . $svc_acct->username . "/.qmail: $!";
-
- my($svc_forward);
- foreach $svc_forward (qsearch('svc_forward', {'srcsvc' => $svc_acct->svcnum})) {
- my($destination);
- if ($svc_forward->dstsvc) {
- my $dst_acct = qsearchs('svc_acct', {'svcnum' => $svc_forward->dstsvc});
- my $dst_domain = qsearchs('svc_domain', {'svcnum' => $dst_acct->domsvc});
- $destination = $dst_acct->username . '@' . $dst_domain->domain;
-
- if ($dst_domain->domain eq $mydomain) {
- print VIRTUSERTABLE $svc_acct->username . "@" . $svc_domain->domain .
- "\t" . $dst_acct->username . "\n";
- print RECIPIENTMAP $svc_acct->username . "@" . $svc_domain->domain .
- ":$destination\n";
- }
- } else {
- $destination = $svc_forward->dst;
- }
-
- ###
- # FORMAT OF .QMAIL FILES HERE
- print DOTQMAIL "$destination\n";
- }
-
- flock(DOTQMAIL,LOCK_UN);
- close DOTQMAIL;
-
- }
-
- flock(VPASSWD,LOCK_UN);
- flock(QMAILDEFAULT,LOCK_UN);
- close VPASSWD;
- close QMAILDEFAULT;
-
-}
-
-###
-# FORMAT OF THE ASSIGN/USERS FILE FINAL LINE HERE
-print ASSIGN ".\n";
-
-print VIRTUSERTABLE @sendmail;
-
-flock(MASTER,LOCK_UN);
-flock(PASSWD,LOCK_UN);
-flock(SHADOW,LOCK_UN);
-flock(ACP_DIALUP,LOCK_UN);
-flock(ACP_PASSWD,LOCK_UN);
-flock(USERS,LOCK_UN);
-flock(ASSIGN,LOCK_UN);
-flock(SENDMAIL_CW,LOCK_UN);
-flock(VIRTUSERTABLE,LOCK_UN);
-flock(RCPTHOSTS,LOCK_UN);
-flock(VPOPRCPTHOSTS,LOCK_UN);
-flock(RECIPIENTMAP,LOCK_UN);
-flock(VPOPVIRTUALDOMAINS,LOCK_UN);
-
-close MASTER;
-close PASSWD;
-close SHADOW;
-close ACP_DIALUP;
-close ACP_PASSWD;
-close USERS;
-close ASSIGN;
-close SENDMAIL_CW;
-close VIRTUSERTABLE;
-close RCPTHOSTS;
-close VPOPRCPTHOSTS;
-close RECIPIENTMAP;
-close VPOPVIRTUALDOMAINS;
-
-###
-# export stuff
-#
-
-my($ashellmachine);
-foreach $ashellmachine (@shellmachines) {
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/passwd","root\@$ashellmachine:/etc/passwd.new")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/shadow","root\@$ashellmachine:/etc/shadow.new")
- or die "scp error: ". $scp->{errstr};
- ssh("root\@$ashellmachine",
- "( ".
- "mv /etc/passwd.new /etc/passwd; ".
- "mv /etc/shadow.new /etc/shadow; ".
- " )"
- )
- == 0 or die "ssh error: $!";
-}
-
-my($bsdshellmachine);
-foreach $bsdshellmachine (@bsdshellmachines) {
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/passwd","root\@$bsdshellmachine:/etc/passwd.new")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/master.passwd","root\@$bsdshellmachine:/etc/master.passwd.new")
- or die "scp error: ". $scp->{errstr};
- ssh("root\@$bsdshellmachine",
- "( ".
- "mv /etc/passwd.new /etc/passwd; ".
- #"mv /etc/master.passwd.new /etc/master.passwd; ".
- "pwd_mkdb /etc/master.passwd.new; ".
- " )"
- )
- == 0 or die "ssh error: $!";
-}
-
-my($nismachine);
-foreach $nismachine (@nismachines) {
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/passwd","root\@$nismachine:/etc/global/passwd")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/shadow","root\@$nismachine:/etc/global/shadow")
- or die "scp error: ". $scp->{errstr};
- ssh("root\@$nismachine",
- "( ".
- "cd /var/yp; make; ".
- " )"
- )
- == 0 or die "ssh error: $!";
-}
-
-my($erpcdmachine);
-foreach $erpcdmachine (@erpcdmachines) {
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/acp_passwd","root\@$erpcdmachine:/usr/annex/acp_passwd")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/acp_dialup","root\@$erpcdmachine:/usr/annex/acp_dialup")
- or die "scp error: ". $scp->{errstr};
- ssh("root\@$erpcdmachine",
- "( ".
- "kill -USR1 \`cat /usr/annex/erpcd.pid\'".
- " )"
- )
- == 0 or die "ssh error: $!";
-}
-
-my($radiusmachine);
-foreach $radiusmachine (@radiusmachines) {
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/users","root\@$radiusmachine:/etc/raddb/users")
- or die "scp error: ". $scp->{errstr};
- ssh("root\@$radiusmachine",
- "( ".
- "builddbm".
- " )"
- )
- == 0 or die "ssh error: $!";
-}
-
-foreach my $icradiusmachine ( @icradiusmachines ) {
- my( $machine, $db, $user, $pass ) = split(/\s+/, $icradiusmachine);
- chdir $icradius_mysqlsource or die "Can't cd $icradius_mysqlsource: $!";
- open(WRITER,"|ssh root\@$machine mysql -v --user=$user -p $db");
- my $oldfh = select WRITER; $|=1; select $oldfh;
- print WRITER "$pass\n";
- sleep 2;
- print WRITER "LOCK TABLES radcheck WRITE, radreply WRITE;\n";
- foreach my $file ( glob("radcheck.*") ) {
- my $scp = new Net::SCP;
- $scp->scp($file,"root\@$machine:$icradius_mysqldest/$db/$file")
- or die "scp error: ". $scp->{errstr};
- }
- foreach my $file ( glob("radreply.*") ) {
- my $scp = new Net::SCP;
- $scp->scp($file,"root\@$machine:$icradius_mysqldest/$db/$file")
- or die "scp error: ". $scp->{errstr};
- }
- close WRITER;
-}
-
-my @args = ("/bin/tar", "c", "--force-local", "-C", "$spooldir", "-f", "$spooldir/vpoptarball", "domains");
-
-system {$args[0]} @args;
-
-my($vpopmailmachine);
-foreach $vpopmailmachine (@vpopmailmachines) {
- my ($machine, $vpopdir, $vpopuid, $vpopgid) = split (/\s+/, $vpopmailmachine);
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/vpoptarball","root\@$machine:vpoptarball")
- or die "scp error: ". $scp->{errstr};
- ssh("root\@$machine",
- "( ".
- "tar xf vpoptarball; ".
- "chown -R $vpopuid:$vpopgid domains; ".
- "tar cf vpoptarball domains; ".
- "cd $vpopdir; ".
- "tar xf ~/vpoptarball; ".
- " )"
- )
- == 0 or die "ssh error: $!";
-
- $scp->scp("$spooldir/assign","root\@$machine:/var/qmail/users/assign")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/vpopvirtualdomains","root\@$machine:/var/qmail/control/virtualdomains")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/vpoprcpthosts","root\@$machine:/var/qmail/control/rcpthosts")
- or die "scp error: ". $scp->{errstr};
-
- ssh("root\@$machine",
- "( ".
- $vpopmailrestart .
- " )"
- )
- == 0 or die "ssh error: $!";
-
-
-}
-
-my($sendmailmachine);
-foreach $sendmailmachine (@sendmailmachines) {
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/sendmail.cw","root\@$sendmailmachine:$sendmailconfigpath/sendmail.cw.new")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/virtusertable","root\@$sendmailmachine:$sendmailconfigpath/virtusertable.new")
- or die "scp error: ". $scp->{errstr};
- ssh("root\@$sendmailmachine",
- "( ".
- "mv $sendmailconfigpath/sendmail.cw.new $sendmailconfigpath/sendmail.cw; ".
- "mv $sendmailconfigpath/virtusertable.new $sendmailconfigpath/virtusertable; ".
- $sendmailrestart.
- " )"
- )
- == 0 or die "ssh error: $!";
-}
-
-my($qmailmachine);
-foreach $qmailmachine (@qmailmachines) {
- my $scp = new Net::SCP;
- $scp->scp("$spooldir/recipientmap","root\@$qmailmachine:/var/qmail/control/recipientmap")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/virtualdomains","root\@$qmailmachine:/var/qmail/control/virtualdomains")
- or die "scp error: ". $scp->{errstr};
- $scp->scp("$spooldir/rcpthosts","root\@$qmailmachine:/var/qmail/control/rcpthosts")
- or die "scp error: ". $scp->{errstr};
- #ssh("root\@$qmailmachine","/etc/init.d/qmail restart")
- # == 0 or die "ssh error: $!";
-}
-
-unlink $spoollock;
-flock(EXPORT,LOCK_UN);
-close EXPORT;