print "<html><head><META HTTP-EQUIV=\"Pragma\" CONTENT=no-cache><title>Create your own .REG for your Windows 9x</title>";
print "<body>";
my $fhandle = undef ;
my $filename = "SambarService.reg" ;


$local = $ENV{'DOCUMENT_URI'};
$local =~ s/\//\\/g;
$local =~ s/register.pl//g;

$count = $ENV{'DOCUMENT_ROOT'};
$count =~ s/\//\\\\/g;
$count =~ s/docs/bin/g;

$sahome = $count;
$sahome =~ s/\\\\bin\\\\//g;
$sahome =~ s/\\\\/\\/g;

print "<center><H2>For automatic Windows 9x Registry Update</center><BR>Check data below</h2>";

print "<code>";
print "REGEDIT4<BR>";
$text00 = "REGEDIT4\n";

print "; Contributor:&nbsp;Jorge Somers<BR>";
$text10 = "; Contributor: Jorge Somers\n";

print "; E-Mail:&nbsp;JHSomers\@Somers\.com\.br<BR>";
$text11 = ";              JHSomers\@Somers\.com\.br\n";

print "; Date:&nbsp;Jun 22, 1999<BR>";
$text20 = "; Date:        Jun 18, 1999\n";

print "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\RunServices]<BR>";
$text30 = "[HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\RunServices]\n";

print "\"Sambar\"\=\"",$count,"server.exe -t\"<BR>";
$text40 = "\"Sambar\"\=\"";
$text50 = $count;
$text60 = "server.exe -t\"\n";
print "</code>";

print "<h3>Just click over the file <code><font point-size=10>",$sahome,$local,$filename,"</font></code></h3>";


print "<H2>Don't forget to place at your <I>autoexec.bat</i></h2>";

print "<code>SET SAHOME=",$sahome,"</code>";

open( OUT, ">$filename" ) or die "Error Preparing .REG file" ;
print OUT "$text00\n";
print OUT "$text10";
print OUT "$text11";
print OUT "$text20\n";
print OUT "$text30";
print OUT "$text40";
print OUT "$text50";
print OUT "$text60";

close(OUT);
print "</body>";
print "</html>";
