This script will change the domain name in the configs from localhost to your domainname or hostname. (localhost to domain.dom)
It will also change the serveradmin email adress , and the xmail default mail account. (admin\@localhost to admin\@domain.dom)
You must own the domain name to wich you are changing to and the DNS records for that domain must point to this computer's IP
After running the script you should restart apache and xmail for changes to take place
";
if (open (FILE,"$phpini")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^sendmail_from = admin@(\S*)/g){if ($1 eq $curdomain){ print "$phpini line $line good ($1) "; }else{ print "$phpini line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $phpini "; $disabled = disabled; }
if (open (FILE,"$httpdconf")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^ServerName (\S*):80/g){if ($1 eq $curdomain){ print "$httpdconf line $line good ($1) "; }else{ print "$httpdconf line $line bad ($1) "; }}
while ($d =~ m/^ServerAdmin admin@(\S*)/g){if ($1 eq $curdomain){ print "$httpdconf line $line good ($1) "; }else{ print "$httpdconf line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $httpdconf "; $disabled = disabled; }
if (open (FILE,"$sslconf")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^ServerName (\S*):443/g){if ($1 eq $curdomain){ print "$sslconf line $line good ($1) "; }else{ print "$sslconf line $line bad ($1) "; }}
while ($d =~ m/^ServerAdmin admin@(\S*)/g){if ($1 eq $curdomain){ print "$sslconf line $line good ($1) "; }else{ print "$sslconf line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $sslconff "; $disabled = disabled; }
if (open (FILE,"$serversphp")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^Apache2Triad Xmail Server\t(\S*)\t/g){if ($1 eq $curdomain){ print "$serversphp line $line good ($1) "; }else{ print "$serversphp line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $serversphp "; $disabled = disabled; }
if (open (FILE,"$configphp")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/smtp_server = "(\S*)"/g){if ($1 eq $curdomain){ print "$configphp line $line good ($1) "; }else{ print "$configphp line $line bad ($1) "; }}
while ($d =~ m/"domain" => "(\S*)",#change/g){if ($1 eq $curdomain){ print "$configphp line $line good ($1) "; }else{ print "$configphp line $line bad ($1) "; }}
while ($d =~ m/"server" => "(\S*)",#change/g){if ($1 eq $curdomain){ print "$configphp line $line good ($1) "; }else{ print "$configphp line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $configphp "; $disabled = disabled; }
if (open (FILE,"$domainstab")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^"(\S*)"$/g){if ($1 eq $curdomain){ print "$domainstab line $line good ($1) "; }else{ print "$domainstab line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $domainstab "; $disabled = disabled; }
if (open (FILE,"$mailuserstab")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^"(\S*)"/g){if ($1 eq $curdomain){ print "$mailuserstab line $line good ($1) "; }else{ print "$mailuserstab line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $mailuserstab "; $disabled = disabled; }
if (open (FILE,"$servertab")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/"RootDomain"\s*"(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
while ($d =~ m/"SmtpServerDomain"\s*"(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
while ($d =~ m/"POP3Domain"\s*"(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
while ($d =~ m/"HeloDomain"\s*"(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
while ($d =~ m/"PostMaster"\s*"postmaster@(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
while ($d =~ m/"Pop3SyncErrorAccount"\s*"psync@(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
while ($d =~ m/"ErrorsAdmin"\s*"errors@(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
while ($d =~ m/"TempErrorsAdmin"\s*"send-failures@(\S*)"/g){if ($1 eq $curdomain){ print "$servertab line $line good ($1) "; }else{ print "$servertab line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $servertab "; $disabled = disabled; }
if (open (FILE,"$admintab")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^"RealName"\s*"admin@(\S*) account"/g){if ($1 eq $curdomain){ print "$admintab line $line good ($1) "; }else{ print "$admintab line $line bad ($1) "; }}
while ($d =~ m/^"HomePage"\s*"http:\/\/(\S*)\/~admin"/g){if ($1 eq $curdomain){ print "$admintab line $line good ($1) "; }else{ print "$admintab line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $admintab "; $disabled = disabled; }
if (open (FILE,"$postmastertab")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^"RealName"\s*"postmaster@(\S*) account"/g){if ($1 eq $curdomain){ print "$postmastertab line $line good ($1) "; }else{ print "$postmastertab line $line bad ($1) "; }}
while ($d =~ m/^"HomePage"\s*"http:\/\/(\S*)\/~postmaster"/g){if ($1 eq $curdomain){ print "$postmastertab line $line good ($1) "; }else{ print "$postmastertab line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $postmastertab "; $disabled = disabled; }
if (open (FILE,"$awstats")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^SiteDomain="(\S*)"/g){if ($1 eq $curdomain){ print "$awstats line $line good ($1) "; }else{ print "$awstats line $line bad ($1) "; }}
}
close (FILE);
}else{ print "Did not find $awstats "; $disabled = disabled; }
print "
";
print "
Written by Vlad Alexa Mancini";
}
sub action {
$newdomain = $FORM{'newdomain'};
if (open (FILE,"+< $phpini")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $phpini");
foreach $d (@data){
$d =~ s/sendmail_from = admin\@$curdomain/sendmail_from = admin\@$newdomain/g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $httpdconf")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $httpdconf");
foreach $d (@data){
$d =~ s/ServerName $curdomain:80/ServerName $newdomain:80/g ;
$d =~ s/ServerAdmin admin\@$curdomain/ServerAdmin admin\@$newdomain/g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $sslconf")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $sslconf");
foreach $d (@data){
$d =~ s/ServerName $curdomain:443/ServerName $newdomain:443/g ;
$d =~ s/ServerAdmin admin\@$curdomain/ServerAdmin admin\@$newdomain/g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $serversphp")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $serversphp");
foreach $d (@data){
$d =~ s~Apache2Triad Xmail Server\t$curdomain\t~Apache2Triad Xmail Server\t$newdomain\t~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $configphp")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $configphp");
foreach $d (@data){
$d =~ s~smtp_server = "$curdomain"~smtp_server = "$newdomain"~g ;
$d =~ s~"domain" => "$curdomain",#change~"domain" => "$newdomain",#change~g ;
$d =~ s~"server" => "$curdomain",#change~"server" => "$newdomain",#change~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $domainstab")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $domainstab");
foreach $d (@data){
$d =~ s~"$curdomain"~"$newdomain"~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $mailuserstab")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $mailuserstab");
foreach $d (@data){
$d =~ s~"$curdomain"~"$newdomain"~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $servertab")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $servertab");
foreach $d (@data){
$d =~ s~"RootDomain"\s*"$curdomain"~"RootDomain"\t"$newdomain"~g ;
$d =~ s~"SmtpServerDomain"\s*"$curdomain"~"SmtpServerDomain"\t"$newdomain"~g ;
$d =~ s~"POP3Domain"\s*"$curdomain"~"POP3Domain"\t"$newdomain"~g ;
$d =~ s~"HeloDomain"\s*"$curdomain"~"HeloDomain"\t"$newdomain"~g ;
$d =~ s~"PostMaster"\s*"postmaster\@$curdomain"~"PostMaster"\t"postmaster\@$newdomain"~g ;
$d =~ s~"Pop3SyncErrorAccount"\s*"psync\@$curdomain"~"Pop3SyncErrorAccount"\t"psync\@$newdomain"~g ;
$d =~ s~"ErrorsAdmin"\s*"errors\@$curdomain"~"ErrorsAdmin"\t"errors\@$newdomain"~g ;
$d =~ s~"TempErrorsAdmin"\s*"send-failures\@$curdomain"~"TempErrorsAdmin"\t"send-failures\@$newdomain"~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $admintab")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $admintab");
foreach $d (@data){
$d =~ s~"RealName"\s*"admin\@$curdomain account"~"RealName"\t"admin\@$newdomain account"~g ;
$d =~ s~"HomePage"\s*"http:\/\/$curdomain\/\~admin"~"HomePage"\t"http:\/\/$newdomain\/\~admin"~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $postmastertab")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $postmastertab");
foreach $d (@data){
$d =~ s~"RealName"\s*"postmaster\@$curdomain account"~"RealName"\t"postmaster\@$newdomain account"~g ;
$d =~ s~"HomePage"\s*"http:\/\/$curdomain\/\~postmaster"~"HomePage"\t"http:\/\/$newdomain\/\~postmaster"~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $awstats")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $awstats");
foreach $d (@data){
$d =~ s~SiteDomain="$curdomain"~SiteDomain="$newdomain"~g ;
print FILE $d;
}
close (FILE);
}
rename("C:/apache2triadpath/htdocs/awstats/awstats.$curdomain.conf", "C:/apache2triadpath/htdocs/awstats/awstats.$newdomain.conf");
rename ("C:/apache2triadpath/mail/domains/$curdomain/", "C:/apache2triadpath/mail/domains/$newdomain/");
print " All done ";
print "Go Back";
}
exit;