Apache2Triad Help, Support and Development

[i/you.got.pwned]

i have attempted to do so, but with no luck, apache returned these errors:
Code:
[Tue May 23 17:22:19 2006] [error] [client <my ip>] Premature end of script headers: proceses.cgi
[Tue May 23 17:22:19 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 102, near "$hldsstop = "killproc"\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 101)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] \t(Missing operator before killproc?)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 106, near "$apstart = ""\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 102)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 106, near "$apstart = "net"\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 107, near "$apstop = ""\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 106)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 107, near "$apstop = "net"\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:19 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 108, near "$apres = 'httpd.exe -n ""\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 107)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 108, near "$apres = 'httpd.exe -n "Apache2"\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing operator before Apache2?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 109, near "$apsslstart = ""\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 108)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 109, near "$apsslstart = "net"\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 110, near "$apsslstop = ""\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 109)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 110, near "$apsslstop = "net"\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 111, near "$apsslres = 'httpd.exe -n ""\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 110)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 111, near "$apsslres = 'httpd.exe -n "Apache2SSL"\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing operator before Apache2SSL?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 112, near "$mystart = ""\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 111)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 112, near "$mystart = "net"\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 113, near "$mystop = ""\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 112)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 113, near "$mystop = "net"\r
[Tue May 23 17:22:20 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 114, near "$pgstart = ""\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 113)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 114, near "$pgstart = "net"\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 115, near "$pgstop = ""\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 114)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 115, near "$pgstop = "net"\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 116, near "$ftpstart = ""\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 115)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 116, near "$ftpstart = "net"\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 117, near "$ftpstop = ""\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 116)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 117, near "$ftpstop = "net"\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:21 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 118, near "$mailstart = ""\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 117)\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 118, near "$mailstart = "net"\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 119, near "$mailstop = ""\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 118)\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 119, near "$mailstop = "net"\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 120, near "$hldsstart = ""\r
[Tue May 23 17:22:22 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 119)\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 120, near "$hldsstart = "net"\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 121, near "$hldsstop = ""\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 120)\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 121, near "$hldsstop = "net"\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] \t(Missing operator before net?)\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] String found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 124, near "if ($FORM{'Apache'} eq ""\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>]   (Might be a runaway multi-line "" string starting on line 121)\r
[Tue May 23 17:22:23 2006] [error] [client <my ip>] \t(Missing semicolon on previous line?)\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 124, near "if ($FORM{'Apache'} eq "Start"\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] \t(Do you need to predeclare if?)\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 124, near "") {system($apstart);$msg="Apache"\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] \t(Missing operator before Apache?)\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] Bareword found where operator expected at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 125, near "") {system($apstop);$msg="Apache"\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] \t(Missing operator before Apache?)\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] syntax error at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 102, near "$hldsstop = "killproc"\r
[Tue May 23 17:22:24 2006] [error] [client <my ip>] syntax error at C:/apache2triad/htdocs/apache2triadcp/proceses.cgi line 125, near "") {system($apstop);$msg="Apache has "\r
[Tue May 23 17:22:25 2006] [error] [client <my ip>] Execution of C:/apache2triad/htdocs/apache2triadcp/proceses.cgi aborted due to compilation errors.\r
[Tue May 23 17:22:31 2006] [error] [client <my ip>] File does not exist: C:/apache2triad/htdocs/favicon.ico


my proceses.cgi
Code:
#!C:/apache2triad/perl/bin/perl.exe

print "Content-type: text/html\n\n";

@procs = ("Apache","ApacheSSL","Mysql","Postgresql","Xmail","Slimftpd","HLDS");

@os = Win32::GetOSVersion();

$FORM{'act'} = '';

&parseform();
if ($FORM{'act'}eq'Proceses'){ &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 {

$Apache = Start;
$ApacheSSL = Start;
$Mysql = Start;
$Postgresql = Start;
$Xmail = Start;
$Slimftpd = Start;
$HLDS = Start;

if ($os[4] != "2"){
#apache pipe#
#system ("pv.exe");
#@data=<STDOUT>;
#open feature#
#open (PV,"pv.exe|");
#@data=<PV>;
@data = `pv.exe`;
foreach $a (@data){
        if ($a =~ m/httpd.exe/i){ $Apache = Restart; $_ApacheSSL = "disabled";}
        if ($a =~ m/httpd.exe/i){ $ApacheSSL = Restart; $_Apache = "disabled";}
        if ($a =~ m/mysqld.exe/i){ $Mysql = Stop;}
        if ($a =~ m/postgres.exe/i){ $Postgresql = Stop;}
        if ($a =~ m/xmail.exe/i){ $Xmail = Stop;}
        if ($a =~ m/slimftpd.exe/i){ $Slimftpd = Stop;}
   if ($a =~ m/hlds.exe/i){ $HLDS = Stop;}
}
}

if ($os[4] == "2"){
        $a = `sc query apache2`; if ($a =~ m/RUNNING/i){ $Apache = Restart; $_ApacheSSL = "disabled";}
        $a = `sc query apache2ssl`; if ($a =~ m/RUNNING/i){ $ApacheSSL = Restart; $_Apache = "disabled";}                   
        $a = `sc query mysql`; if ($a =~ m/RUNNING/i){ $Mysql = Stop;}
        $a = `sc query pgsql`; if ($a =~ m/RUNNING/i){ $Postgresql = Stop;}
        $a = `sc query xmail`; if ($a =~ m/RUNNING/i){ $Xmail = Stop;}
        $a = `sc query slimftpd`; if ($a =~ m/RUNNING/i){ $Slimftpd = Stop;}
   $a = `sc query hlds`; if ($a =~ m/RUNNING/i){ $HLDS = Stop;}
}

print "
<form class=form action=$ENV{SCRIPT_NAME} method=post>
<input class=button type=submit name=Apache value=\"$Apache Apache\" $_Apache>&nbsp;
<input class=button type=submit name=ApacheSSL value=\"$ApacheSSL ApacheSSL\" $_ApacheSSL>&nbsp;
<input class=button type=submit name=Mysql value=\"$Mysql Mysql\">&nbsp;
<input class=button type=submit name=Postgresql value=\"$Postgresql Postgresql\">&nbsp;
<input class=button type=submit name=Xmail value=\"$Xmail Xmail\">&nbsp;
<input class=button type=submit name=Slimftpd value=\"$Slimftpd Slimftpd\">&nbsp;
<input class=button type=submit name=HLDS value=\"$HLDS HLDS\">&nbsp;
<input type=hidden name=act value=\"Proceses\">
</form>
";

}


sub action {

if ($os[4] != "2"){
$apstart = "httpd.exe -f C:/apache2triad/conf/httpd.conf -D AEX";
$apstop = "killproc.exe /K httpd.exe";
$apres = 'httpd.exe -n "Apache2" -k restart';
$apsslstart = "httpd.exe -f C:/apache2triad/conf/httpd.conf -D AEX -D SSL";
$apsslstop = "killproc.exe /K httpd.exe";
$apsslres = 'httpd.exe -n "Apache2SSL" -k restart';
$mystart = "mysqld.exe";
$mystop = "mysqladmin.exe -u root --password=<mypw> shutdown";
$pgstart = "echo Postgres does not work on windows9x";
$pgstop = "echo Postgres does not work on windows9x";
$ftpstart = "C:/apache2triad/ftp/slimftpd.exe";
$ftpstop = "killproc.exe /K slimftpd.exe";
$mailstart = "echo Xmail does not work on windows9x";
$mailstop = "echo Xmail does not work on windows9x";
$hldsstart = "C:/apache2triad/htdocs/valve/hlserver/hlds.exe -console -secure -game cstrike +port 27015 +hostname "Shero/War3FT Dual Mod Server! [RKS] http://rks.owns.it/" +map de_dust2 +maxplayers 20 +sv_lan 0 -autoupdate +rcon_password "<my pw>";
$hldsstop = "killproc.exe /K hlds.exe";
}

if ($os[4] == "2"){
$apstart = "net start Apache2";
$apstop = "net stop Apache2";
$apres = 'httpd.exe -n "Apache2" -k restart';
$apsslstart = "net start Apache2SSL";
$apsslstop = "net stop Apache2SSL";
$apsslres = 'httpd.exe -n "Apache2SSL" -k restart';
$mystart = "net start MySql";
$mystop = "net stop MySql";
$pgstart = "net start PgSQL";
$pgstop = "net stop PgSQL";
$ftpstart = "net start SlimFTPd";
$ftpstop = "net stop SlimFTPd";
$mailstart = "net start Xmail";
$mailstop = "net stop Xmail";
$hldsstart = "net start HLDS";
$hldsstop = "net stop HLDS";
}

if ($FORM{'Apache'} eq "Start Apache") {system($apstart);$msg="Apache has been started";}
if ($FORM{'Apache'} eq "Stop Apache") {system($apstop);$msg="Apache has been stopped";}
if ($FORM{'Apache'} eq "Restart Apache") {system($apres);$msg="Apache has been restarted";}

if ($FORM{'ApacheSSL'} eq "Start ApacheSSL") {system($apsslstart);$msg="ApacheSSL has been started";}
if ($FORM{'ApacheSSL'} eq "Stop ApacheSSL") {system($apsslstop);$msg="ApacheSSL has been stopped";}
if ($FORM{'ApacheSSL'} eq "Restart ApacheSSL") {system($apsslres);$msg="ApacheSSL has been restarted";}

if ($FORM{'Mysql'} eq "Stop Mysql") {system($mystop);$msg="Mysql has been stopped";}
if ($FORM{'Mysql'} eq "Start Mysql") {system($mystart);$msg="Mysql has been started";}

if ($FORM{'Postgresql'} eq "Stop Postgresql") {system($pgstop);$msg="Postgresql has been stopped";}
if ($FORM{'Postgresql'} eq "Start Postgresql") {system($pgstart);$msg="Postgresql has been started";}

if ($FORM{'Xmail'} eq "Stop Xmail") {system($mailstop);$msg="Xmail has been stopped";}
if ($FORM{'Xmail'} eq "Start Xmail") {system($mailstart);$msg="Xmail has been started";}

if ($FORM{'Slimftpd'} eq "Stop Slimftpd") {system($ftpstop);$msg="Slimftpd has been stopped";}
if ($FORM{'Slimftpd'} eq "Start Slimftpd") {system($ftpstart);$msg="Slimftpd has been started";}

if ($FORM{'HLDS'} eq "Stop HLDS") {system($hldsstop);$msg="HLDS has been stopped";}
if ($FORM{'HLDS'} eq "Start HLDS") {system($hldsstart);$msg"HLDS has been started";}


print "<br>$msg<br><br>";

print "<br>All done<br>";
print "<a href=javascript:history.go(-1)>Go Back</a>";
}
exit;

please assist
thanks in advance
-i/you.got.pwned

[Joshua Meadows (DemoRic)]

Doing a quick review I spotted some quotes that weren't escaped.

Example:
Quote: $hldsstart = "C:/apache2triad/htdocs/valve/hlserver/hlds.exe -console -secure -game cstrike +port 27015 +hostname \"Shero/War3FT Dual Mod Server! [RKS]

[i/you.got.pwned]

thanks for your help, it works fine now