#!C:/apache2triadpath/perl/bin/perl.exe
print "Content-type: text/html\n\n";
$httpdconf = "C:/apache2triadpath/conf/httpd.conf";
$FORM{'act'} = '';
&parseform();
if ($FORM{'act'}eq'Save Changes'){
print "Apache2Triad Apache2 Configuration GUI";
&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 {
open (CONF,"< $httpdconf") or print "Could not open $httpdconf ";
@data=;
foreach $d (@data){
if ($d =~ m~ServerName (.*)~g) {$servername = $1;}
if ($d =~ m~Listen (.*)~g) {$listen = $1;}
if ($d =~ m~ServerAdmin (.*)~g) {$serveradmin = $1;}
if ($d =~ m~LogLevel (.*)~g) {$loglevel = $1;}
if ($d =~ m~ServerTokens (.*)~g) {$servertokens = $1;}
if ($d =~ m~ServerSignature (.*)~g) {$serversignature = $1;}
if ($d =~ m~DirectoryIndex (.*)~g) {$directoryindex = $1;}
if ($d =~ m~ThreadsPerChild (.*)~g) {$threadsperchild = $1;}
if ($d =~ m~HostnameLookups (.*)~g) {$hostnamelookups = $1;}
if ($d =~ m/^LoadModule include_module modules\/mod_include.so/) {$ssi = "checked";}
if ($d =~ m/^LoadModule php5_module modules\/mod_php.so/) {$php = "checked";}
if ($d =~ m/^PerlHandler Apache::ASP/) {$asp = "checked";}
if ($d =~ m/^LoadModule perl_module modules\/mod_perl.so/) {$perl_mod = "checked";}
if ($d =~ m/^LoadModule python_module modules\/mod_python.so/) {$python_mod = "checked";}
if ($d =~ m/^LoadModule cgi_module modules\/mod_cgi.so/) {$cgi = "checked";}
if ($d =~ m/^PythonHandler mod_python.psp/) {$psp = "checked";}
}
close (CONF) or die "Died while closing $httpdconf with error( $! )";
print "
Apache2Triad Apache2 Configuration GUI
Apache2Triad Apache2 Configuration
Apache::ASP needs mod perl to be loaded in order for it to function
When enabling CGI you are enabling Perl , Python in CGI mode
When enabling Python PSP you are disabling Python Spyce , both need mod_python
Disabling one of SSI, PHP or CGI will render parts of the Apache2Triad CP inoperable
After running the script you should restart apache for changes to take place
";
print "";
print "
Written by Vlad Alexa Mancini";
}
sub action {
open (CONF,"< $httpdconf") or die "Could not open $httpdconf ";
@data=;
foreach $d (@data){
if ($d =~ m~ServerName (.*)~g) {$servername = $1;}
if ($d =~ m~Listen (.*)~g) {$listen = $1;}
if ($d =~ m~ServerAdmin (.*)~g) {$serveradmin = $1;}
if ($d =~ m~LogLevel (.*)~g) {$loglevel = $1;}
if ($d =~ m~ServerTokens (.*)~g) {$servertokens = $1;}
if ($d =~ m~ServerSignature (.*)~g) {$serversignature = $1;}
if ($d =~ m~DirectoryIndex (.*)~g) {$directoryindex = $1;}
if ($d =~ m~ThreadsPerChild (.*)~g) {$threadsperchild = $1;}
if ($d =~ m~HostnameLookups (.*)~g) {$hostnamelookups = $1;}
print CONF $d;
}
close (CONF) or die "Died while closing $httpdconf with error( $! )";
if ($FORM{'servername'} ne ''){ $servername1 = $FORM{'servername'}; }else{ die "Fields can not be blank";}
if ($FORM{'listen'} ne ''){ $listen1 = $FORM{'listen'}; }else{ die "Fields can not be blank";}
if ($FORM{'serveradmin'} ne ''){ $serveradmin1 = $FORM{'serveradmin'}; }else{ die "Fields can not be blank";}
if ($FORM{'loglevel'} ne ''){ $loglevel1 = $FORM{'loglevel'}; }else{ die "Fields can not be blank";}
if ($FORM{'servertokens'} ne ''){ $servertokens1 = $FORM{'servertokens'}; }else{ die "Fields can not be blank";}
if ($FORM{'serversignature'} ne ''){ $serversignature1 = $FORM{'serversignature'}; }else{ die "Fields can not be blank";}
if ($FORM{'directoryindex'} ne ''){ $directoryindex1 = $FORM{'directoryindex'}; }else{ die "Fields can not be blank";}
if ($FORM{'threadsperchild'} ne ''){ $threadsperchild1 = $FORM{'threadsperchild'}; }else{ die "Fields can not be blank";}
if ($FORM{'hostnamelookups'} ne ''){ $hostnamelookups1 = $FORM{'hostnamelookups'}; }else{ die "Fields can not be blank";}
if ($FORM{'ssi'} eq "on"){$ssi="on";}else{$ssi="off"}
if ($FORM{'php'} eq "on"){$php="on";}else{$php="off"}
if ($FORM{'asp'} eq "on"){$asp="on";}else{$asp="off"}
if ($FORM{'perl_mod'} eq "on"){$perl_mod="on";}else{$perl_mod="off"}
if ($FORM{'python_mod'} eq "on"){$python_mod="on";}else{$python_mod="off"}
if ($FORM{'cgi'} eq "on"){$cgi="on";}else{$cgi="off"}
if ($FORM{'psp'} eq "on"){$psp="on";}else{$psp="off"}
open (CONF,"+< $httpdconf") or print "Could not open $httpdconf ";
@data=;
truncate (CONF,0) or die "Died while truncating $httpdconf with error( $! )";
close (CONF) or die "Died while closing $httpdconf with error( $! )";
open (CONF,"+< $httpdconf") or print "Could not open $httpdconf ";
foreach $d (@data){
$d =~ s~ServerName $servername~ServerName $servername1~g;
$d =~ s~Listen $listen~Listen $listen1~g;
$d =~ s~ServerAdmin $serveradmin~ServerAdmin $serveradmin1~g;
$d =~ s~LogLevel $loglevel~LogLevel $loglevel1~g;
$d =~ s~ServerTokens $servertokens~ServerTokens $servertokens1~g;
$d =~ s~ServerSignature $serversignature~ServerSignature $serversignature1~g;
$d =~ s~DirectoryIndex $directoryindex~DirectoryIndex $directoryindex1~g;
$d =~ s~ThreadsPerChild $threadsperchild~ThreadsPerChild $threadsperchild1~g;
$d =~ s~HostnameLookups $hostnamelookups~HostnameLookups $hostnamelookups1~g;
if ($ssi eq "on"){$d =~ s/^#LoadModule include_module/LoadModule include_module/g;}
if ($ssi eq "off"){$d =~ s/^LoadModule include_module/#LoadModule include_module/g;}
if ($php eq "on"){$d =~ s/^#LoadModule php5_module/LoadModule php5_module/g;}
if ($php eq "off"){$d =~ s/^LoadModule php5_module/#LoadModule php5_module/g;}
if ($asp eq "on"){$d =~ s/^#PerlHandler Apache::ASP/PerlHandler Apache::ASP/g;}
if ($asp eq "off"){$d =~ s/^PerlHandler Apache::ASP/#PerlHandler Apache::ASP/g;}
if ($perl_mod eq "on"){$d =~ s/^#LoadModule perl_module/LoadModule perl_module/g;}
if ($perl_mod eq "off"){$d =~ s/^LoadModule perl_module/#LoadModule perl_module/g;}
if ($python_mod eq "on"){$d =~ s/^#LoadModule python_module/LoadModule python_module/g;}
if ($python_mod eq "off"){$d =~ s/^LoadModule python_module/#LoadModule python_module/g;}
if ($cgi eq "on"){$d =~ s/^#LoadModule cgi_module/LoadModule cgi_module/g;}
if ($cgi eq "off"){$d =~ s/^LoadModule cgi_module/#LoadModule cgi_module/g;}
if ($psp eq "on"){$d =~ s/^#PythonHandler mod_python.psp/PythonHandler mod_python.psp/g;}
if ($psp eq "on"){$d =~ s/^PythonHandler run_spyceModpy::spyceMain/#PythonHandler run_spyceModpy::spyceMain/g;}
if ($psp eq "off"){$d =~ s/^PythonHandler mod_python.psp/#PythonHandler mod_python.psp/g;}
if ($psp eq "off"){$d =~ s/^#PythonHandler run_spyceModpy::spyceMain/PythonHandler run_spyceModpy::spyceMain/g;}
print CONF $d;
}
close (CONF) or die "Died while closing $httpdconf with error( $! )";
print "
SSI is $ssi PHP is $php CGI is $cgi Mod_Perl is $perl_mod ASP is $asp Python is $python_mod
";
print "
The server name and port of the apache server
The port the apache server will listen on
The server admin email address for this server
The verbosity level of the log file
The amount of server info made public
The server signature configuration
The directory index valid filenames
The number of worker threads in the server process
Log the hostnames of clients instead of their IP addresses
";
print " Sucesfully written to httpd.conf ";
print "Go Back