home *** CD-ROM | disk | FTP | other *** search
- 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: Jorge Somers<BR>";
- $text10 = "; Contributor: Jorge Somers\n";
-
- print "; E-Mail: JHSomers\@Somers\.com\.br<BR>";
- $text11 = "; JHSomers\@Somers\.com\.br\n";
-
- print "; Date: 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>";
-