#!C:/apache2triadpath/perl/bin/perl.exe
print "Content-type: text/html\n\n";
use Win32::TieRegistry;
$Registry->Delimiter('/');
$k = "HKEY_LOCAL_MACHINE/System/CurrentControlSet";
$k1 = "HKEY_LOCAL_MACHINE/System/ControlSet001";
$k2 = "HKEY_LOCAL_MACHINE/System/ControlSet002";
@keys = ("$k/Services/mysql/","$k1/Services/mysql/","$k2/Services/mysql/");
@dkeys = ("$k/Services/Apache2+PHP+Perl/","$k1/Services/Apache2+PHP+Perl/","$k2/Services/Apache2+PHP+Perl/",
"$k/Services/Apache2+PHP+Perl+SSL+MySQL/","$k1/Services/Apache2+PHP+Perl+SSL+MySQL/","$k2/Services/Apache2+PHP+Perl+SSL+MySQL/",
"$k/Services/Apache2+PHP+SSL/","$k1/Services/Apache2+PHP+SSL/","$k2/Services/Apache2+PHP+SSL/",
"$k/Services/Apache2+PHP/","$k1/Services/Apache2+PHP/","$k2/Services/Apache2+PHP/",
"$k/Services/Apache2+PHP+Perl+Python+SSL/","$k1/Services/Apache2+PHP+Perl+Python+SSL/","$k2/Services/Apache2+PHP+Perl+Python+SSL/",
"$k/Services/Apache2+PHP+Perl+Python/","$k1/Services/Apache2+PHP+Perl+Python/","$k2/Services/Apache2+PHP+Perl+Python/");
$FORM{'act'} = '';
&parseform();
if ($FORM{'act'}eq'Fix the found registry strings'){
print "Apache2Triad registry keys clean 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 registry keys clean tool
Registry keys clean tool
This script will fix mysql registry keys from a old mysql instalation , with wrong service paths, known to cause problems for apache2triad.
";
foreach $dkey (@dkeys){
if (defined $Registry->{$dkey}) {
push (@dkey,"$dkey");
}
}
if (scalar(@dkey) ne "0"){
$number = scalar(@dkey);
print "Found $number bad keys(old services)
";
}
foreach $keys (@keys){
if (defined $Registry->{$keys}) {
print "$keys exists
";
push (@keys1,"$keys");
}else{
print "$keys does not exist
";
}
}
print "
";
foreach $keys1 (@keys1){
$diskKey= $Registry->{"$keys1"} or print "Can't read $keys1 key: $^E\n";
$data= $diskKey->{"/ImagePath"} or print "Can't read $keys1/ImagePath value: $^E
";
if ($data eq "C:\\apache2triadpath\\mysql\\bin\\mysqld.exe"){print"ImagePath for $keys1 is corect ($data)
";}
else{print"ImagePath for $keys1 is wrong ($data)
";}
}
print "";
print "
Written by Vlad Alexa Mancini";
}
sub action {
foreach $key (@keys){
if (defined $Registry->{$key}){
push (@key,"$key");
}
}
foreach $key (@key){
$diskKey= $Registry->{"$key"} or print "Can't read $key key: $^E\n";
$data= $diskKey->{"/ImagePath"} or print "Can't read $key/ImagePath value: $^E
";
if ($data eq "C:\\apache2triadpath\\mysql\\bin\\mysqld.exe"){print"ImagePath ($data) for $key needed no corection
";}
else{
print"ImagePath for $key was fixed ($data)
";
$diskKey->{"/ImagePath"} = "C:\\apache2triadpath\\mysql\\bin\\mysqld.exe";
}
}
foreach $dkey (@dkeys){
if (defined $Registry->{$dkey}) {
push (@dkey,"$dkey");
}
}
foreach $dkey (@dkey){
$enum = $dkey . "Enum/";
$params = $dkey . "Parameters/";
$security = $dkey . "Security/";
delete $Registry->{$enum};
delete $Registry->{$params};
delete $Registry->{$security};
$deleted = delete $Registry->{$dkey} or die "died while deleting $dkey with error( $! )";
print "
$dkey was deleted
";
print "(
";
foreach $del (%$deleted){
print " $del
";
}
print ")
";
}
print "
All done
";
print "Go Back";
}
exit;