#!C:/apache2triadpath/perl/bin/perl.exe print "Content-type: text/html\n\n"; &parseform(); if ($FORM{'act'}eq'Proceed'){ print "Apache2Triad cgi files headers fix tool"; &convert; }else{ &message; } exit; sub message { print < Apache2Triad cgi files headers fix tool

 

Cgi file headers fix tool

This script will fix the path to the cgi executable on the first line of all cgi scripts under the path you specify

[ Fix perl ]  [ Fix python ]

Path :

Written by Vlad Alexa Mancini HTML } 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 convert { my $path=$FORM{'path'}; if ($FORM{'lang'}eq'perl'){my $include=" cgi ";} if ($FORM{'lang'}eq'python'){my $include=" py ";} my @names; my $name; opendir DIR,"$path"; $name=readdir DIR; $name=readdir DIR; @names=grep{!-d $_}readdir DIR; closedir DIR; foreach $name (@names){ if (-d "$path/$name"){convert ("$path/$name")}; @namess=split(/\./, $name); if (!(-d "$path/$name")&&(!($include= /@namess[$namess+1]/)||(@namess[$namess+1]eq''))){ open (FILE,"$path/$name"); binmode FILE; @lines=; close (FILE); if (@lines[0]=~ /$FORM{'lang'}/i) { @lines[0]="\#\!C:\/apache2triadpath\/$FORM{'lang'}\/bin\/$FORM{'lang'}.exe\r\n"; open (FILE,">$path/$name"); binmode FILE; print FILE @lines; close (FILE); print "$path/$name - converted
"; }else{ print "$path/$name - does not need conversion
"; } } } print "
All done
"; print "Go Back"; }