#!C:/apache2triadpath/perl/bin/perl.exe
print "Content-type: text/html\n\n";
$ENV{'SERVER_ADMIN'} =~ m/^.*?@(.*)$/ ;
$curdomain = $1;
$windir = $ENV{'WINDIR'};
$servertab = "C:/apache2triadpath/mail/server.tab";
$myini = "$windir/my.ini";
$phpini = "$windir/php.ini";
$FORM{'act'} = '';
&parseform();
if ($FORM{'act'}eq'Use Recomended Settings'){
print "Apache2Triad server protect tool";
&action;
}else{
&entry;
}
exit;
sub parseform() {
if($ENV{'REQUEST_METHOD'} eq 'GET'){
$buffer=$ENV{'QUERY_STRING'};
}elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg;
$FORM{$name} = $value;}
}
sub entry {
print "
Apache2Triad server protect tool
Apache2Triad server protect tool
This script will look for common misconfigurations of the settinng of the servers within Apache2Triad and recomend changes
After running the script you should restart your computer or all the servers for changes to take place
";
if (open (FILE,"$servertab")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^\"EnableAuthSMTP-POP3\"\s*\"(\d*)\"/g){
if ($1 eq "1"){
print "EnableAuthSMTP-POP3 = $1 in $servertab (Recomended = 1)
"; $disabled = disabled;
}else{
print "EnableAuthSMTP-POP3 = $1 in $servertab (Recomended = 1)
"; $disabled = "";
}
}
}
close (FILE);
}else{ print "Did not find $servertab
"; $disabled = disabled; }
if (open (FILE,"$myini")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/^bind-address\s*=\s*(\S*)/g){
if ($1 eq "127.0.0.1"){
print "bind-address = $1 in $myini (Recomended = 127.0.0.1)
"; $disabled = disabled;
}else{
print "bind-address = $1 in $myini (Recomended = 127.0.0.1)
"; $disabled = "";
}
}
}
close (FILE);
}else{ print "Did not find $myini
"; $disabled = disabled; }
if (open (FILE,"$phpini")){
@data=;
$line = 0;
foreach $d (@data){
$line++;
while ($d =~ m/cgi\.force_redirect\s*=\s*(\S*)/g){
if ($1 eq "1"){
print "cgi.force_redirect = $1 in $phpini (Recomended = 1)
"; $disabled = disabled;
}else{
print "cgi.force_redirect = $1 in $phpini (Recomended = 1)
"; $disabled = "";
}
}
}
close (FILE);
}else{ print "Did not find $phpini
"; $disabled = disabled; }
print "
";
print "Written by Vlad Alexa Mancini";
}
sub action {
if (open (FILE,"+< $servertab")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $servertab");
foreach $d (@data){
$d =~ s~"EnableAuthSMTP-POP3"\s*"0"~"EnableAuthSMTP-POP3"\t"1"~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $myini")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $myini");
foreach $d (@data){
$d =~ s~bind-address.*?$~bind-address = 127\.0\.0\.1~g ;
print FILE $d;
}
close (FILE);
}
if (open (FILE,"+< $phpini")){
@data=;
truncate (FILE,0);
close (FILE);
open (FILE,"+< $phpini");
foreach $d (@data){
$d =~ s~cgi\.force_redirect = 0$~cgi\.force_redirect = 1~g ;
print FILE $d;
}
close (FILE);
}
print "
All done
";
print "Go Back";
}
exit;