#!/usr/bin/perl -w use CGI; $upload_dir = "/opt/apache/1.3.27/htdocs/cspireutils/files-ch"; $query = new CGI; $tstamp = `date '+%Y%d%m'`; #$username = $query->param("username"); #$password = $query->param("password"); $sid = $query->param("sid"); $email = $query->param("primaryemailradius"); $maildomain = $email; $altemail = $query->param("aliasemailradius"); $proftp = $query->param("proftp"); $dirsrv = "cn=directory manager"; chomp($email); $email =~ s/\@.*//g; my @fields = ("dn", "jrMailBoxId", "jrMailboxAliasStore", "jrPWPUID", "jrPWPUserPrefs", "jrUserFriendlyID"); my @mailfields = ("jrMailId", "jrFullMailAliasList", "jrPrimaryMailId"); open (MODLDIF, ">$upload_dir/$email-$tstamp") or die "Can't open $email-$date for output"; open (MODDN, ">$upload_dir/$proftp-$tstamp") or die "Can't open $proftp-$date for output"; print MODLDIF "$email\n"; @fields=~'/opt/apache/1.3.27/cgi-bin/cspireutils/ldapsearch -h 172.30.58.243 -p 389 -D $dirsrv -w 'passwd' -b ou=subscribers,ou=u sers,ou=prague,ou=domains,ou=cz,ou=domains,o=chello cn=$sid dn jrMailBoxId jrMailboxAliasStore jrPWPUID jrPWPUserPrefs jrUserFriendl yID'; print MODLDIF "@fields\n"; while (<>) { my %thisrecord = (); foreach my $field(@fields) { $thisrecord{$field} = ""; } s/\n^ //msg; chomp (); while (m/^([^:]*:?): (.*)/mg) { my ($field, $data) = ($1, $2); if (grep (/$field/, @fields)) { $thisrecord{$field} = $data; } } } print "$thisrecord{'jrUserFriendlyID'}"; if ($thisrecord{'jrUserFriendlyID'} = $email) { die " Error duplicate entry detected, please resolve manually"; } else { print MODLDIF "$thisrecord{'dn'},ou=subscribers,ou=users,ou=prague,ou=domains,ou=cz,ou=domains,o=chello \n"; print MODLDIF "changetype: modify\n"; print MODLDIF "replace : jrMailboxId\n"; print MODLDIF "jrMailbox: $maildomain\n"; print MODLDIF "-\n"; print MODLDIF "replace: jrPWPUID\n"; print MODLDIF "jrPWPUID: $proftp\n"; print MODLDIF "dn: $thisrecord{'jrMailboxAliasStore'},ou=OpenWaveSupplement,ou=mail,ou=USCOs,ou=prague,ou=domains,ou=cz,ou=d omains,o=chello\n"; print MODLDIF "changetype: modify\n"; print MODLDIF "replace: jrPrimaryMailId\n"; print MODLDIF "jrPrimaryMailId: $email\n"; print MODLDIF "-\n"; print MODLDIF "replace: jrFullMailAliasList\n"; print MODLDIF "jrFullMailAliasList: $altemail\n"; print MODDN "%thisrecord{'jrPWPUID'},ouProFTPSupplement,ou=ftp,ou=USCOs,ou=prague,ou=domains,ou=cz,ou=domains,o=chello\n"; print MODDN "jrPWPUID=$proftp\n"; } system ("ldapmodify -h 172.30.58.243 -p 389 -D $dirsrv -w 'passwd' -f /opt/apache/1.3.27/htdocs/cspireutils/files-ch/$email-$tsta mp > /opt/apache/1.3.27/htdocs/cspireutils/files-ch/modify-$email-$tstamp"); system ("ldapmodrdn -h 172.30.58.243 -p 389 -D $dirsrv -w 'passwd' -f /opt/apache/1.3.27/htdocs/cspireutils/files-ch/$proftp-$tst amp >> /opt/apache/1.3.27/htdocs/cspireutils/files-ch/modify-$email-$tstamp"); print < Modifications submitted

The modification has been submitted for the Billing ID $sid

Please take a look at

modification log ENDHTMLb exit;