#!/usr/bin/perl
#  #!/usr/local/bin/perl  
#   ^~~ use this on top instead if script not working

# Auto Fkey Saver        version 2.1           Released 8-16-2000
# by NESGamepro        http://www.wtv-zone.com/nesgamepro

# This Auto Fkey is the Šopyright property of NESGamepro,
# permission is granted for personal use only. It may not
# be used for financial gain in any way shape or form.

# Rename this file to anything .pl or anything.cgi and Change
# Permissions (CHMOD) to 755

# START Optional Settings

# Page URLs - Change these for increased security
# ie. http://you.hypermart.net/fkey.pl?mode=fkey
$main = "fkey";
$add = "add";
$notepad = "notes";
$admin = "admin";
$searchmode = "search";
$setup = "setup";
$help = "help";

# Custom Settings Saved here
$setfile = "db/settings.txt";


# Category files -- Links Saved in files below
# Box#    -File-                  Box#    -File-
$b1dat ="db/b1.txt";      $b2dat= "db/b2.txt";
$b3dat= "db/b3.txt";      $b4dat= "db/b4.txt";
$b5dat= "db/b5.txt";      $b6dat= "db/b6.txt";
$b7dat= "db/b7.txt";      $b8dat= "db/b8.txt";
$b9dat= "db/b9.txt";      $b10dat= "db/b10.txt";
$b11dat= "db/b11.txt";  $b12dat= "db/b12.txt";
$b13dat= "db/b13.txt";  $b14dat= "db/b14.txt";
$b15dat= "db/b15.txt";  $b16dat= "db/b16.txt";
$b17dat= "db/b17.txt";  $b18dat= "db/b18.txt"; 
$b19dat= "db/b19.txt";  $b20dat= "db/b20.txt";
$b21dat= "db/b21.txt"; 

# END Optional Settings


# WARNING: If you edit between the the warning   #
#          signs, you do so at your own risk.               #
#          Your links however, will still be safe            #

## BEGIN - GET SETTINGS
use CGI; $q = new CGI;

open(VARS,"$setfile"); $varFiletxt=<VARS>; close(VARS);
if ($varFiletxt ne "") {
@varData = split(/§/,$varFiletxt); foreach $i (@varData) { ($b1Name,$b2Name,$b3Name,$b4Name,$b5Name,$b6Name,$b7Name,$b8Name,$b9Name,$b10Name,$b11Name,$b12Name,$b13Name,$b14Name,$b15Name,$b16Name,$b17Name,$b18Name,$b19Name,$b20Name,$b21Name,$title,$logoURL,$addy,$header,$bgclr,$text,$link,$vlink,$btxt,$intxt,$txtbg,$linkpanel,$custOn,$custom,$cust2On,$custom2,$clock,$shownote,$grownote,$searchbox,$recents,$navpanel,$showDelAll,$border,$navpanel2,$clockclr,$nothing) = split(/\|/, $i); } }

# Default Settings
else { $b1Name="Button 1"; $b2Name="Button 2"; $b3Name="Button 3"; $b4Name="Button 4"; $b5Name="Button 5"; $b6Name="Button 6"; $b7Name="Button 7"; $b8Name="Button 8"; $b9Name="Button 9"; $b10Name="Button 10"; $b11Name="Button 11"; $b12Name="Button 12"; $b13Name="Button 13"; $b14Name="Button 14"; $b15Name="Button 15"; $b16Name="Button 16"; $b17Name="Button 17"; $b18Name="Button 18"; $b19Name="Button 19"; $b20Name="Button 20"; $b21Name="Button 21"; $title="Auto Fkey Saver"; $logoURL="http://www.wtv-zone.com/nesgamepro/pics/autofkeylogo.gif"; $addy="Auto Fkey Saver by NESGamepro"; $header="#315896"; $bgclr="#181818"; $text="#44EE66"; $link="gold"; $vlink="#29874A"; $btxt="blue"; $intxt="gold"; $txtbg="#181818"; $linkpanel="on"; $custOn=""; $custom="http://"; $cust2On="on"; $custom2="http://www.wtv-zone.com/nesgamepro/autofkey/helpv2.html"; $clock=""; $shownote="on"; $grownote=""; $searchbox="on"; $recents="0"; $navpanel="on"; $showDelAll=""; $border="on"; $navpanel2=""; $clockclr="#44EE66"; $nothing=""; }

# HTML SHORTCUTS
$h1clr = "font color=$header";
$hr ="hr invertborder";
$btn = "input type=button text=$btxt";
$submit = "input type=submit text=$btxt";
$textbox = "input type=text bgcolor=$txtbg text=$intxt cursor=$intxt"; 
$hide = "input type=hidden";
$OpV = "option value";
## END GET SETTINGS -- BEGIN MAIN LINK PAGE

print "Content-type: text/html\n\n";
$mode = $q->param("mode");

if ($mode eq "$main" || $mode eq "") { &head; &body;
if ($custOn eq "on") { print "<embed src=\"$custom\"></embed>"; }
if ($clock eq "top") { &Clock; }

$col1 = '<tr><td align=center width=33%><form><select width=100%
onChange="go(this)"';
$col2 = '<td align=center width=33%><form><select width=100% onChange="go(this)"';

print "<table "; if ($border eq "on") { print "border=1 "; }
print "cellpadding=2 cellspacing=2 width=100%>";

print "$col1 text=$btxt>"; if ($recents == 1) { &recents; }
if ($recents != 1) { print "<option>$b1Name"; open(DATA,"$b1dat"); @data1 = <DATA>; close(DATA); foreach $i (@data1) { print "$i"; }}
print "</select></form></td>";

print "$col2 text=$btxt>"; if ($recents == 2) { &recents; } 
if ($recents != 2) { print "<option>$b2Name";open(DATA,"$b2dat"); @data2 = <DATA>; close(DATA); foreach $i (@data2) { print "$i"; }}
print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 3) { &recents; }
if ($recents != 3) { print "<option>$b3Name"; open(DATA,"$b3dat"); @data3 = <DATA>; close(DATA); foreach $i (@data3) { print "$i"; }}
print "</select></form></td></tr>";

print "$col1 text=$btxt>";  if ($recents == 4) { &recents; }
if ($recents != 4) { print "<option>$b4Name"; open(DATA,"$b4dat"); @data4 = <DATA>; close(DATA); foreach $i (@data4) { print "$i"; }}
print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 5) { &recents; }
if ($recents != 5) { print "<option>$b5Name"; open(DATA,"$b5dat"); @data5 = <DATA>; close(DATA); foreach $i (@data5) { print "$i"; }}
print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 6) { &recents; }
if ($recents != 6) { print "<option>$b6Name"; open(DATA,"$b6dat"); @data6 = <DATA>; close(DATA); foreach $i (@data6) { print "$i"; }}
print "</select></form></td></tr>";

print "$col1 text=$btxt>";  if ($recents == 7) { &recents; }
if ($recents != 7) { print "<option>$b7Name"; open(DATA,"$b7dat"); @data7 = <DATA>; close(DATA); foreach $i (@data7) { print "$i"; }}
print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 8) { &recents; }
if ($recents != 8) { print "<option>$b8Name"; open(DATA,"$b8dat"); @data8 = <DATA>; close(DATA); foreach $i (@data8) { print "$i"; }}
print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 9) { &recents; }
if ($recents != 9) { print "<option>$b9Name"; open(DATA,"$b9dat"); @data9 = <DATA>; close(DATA); foreach $i (@data9) { print "$i"; }}
print "</select></form></td></tr>";

print "$col1 text=$btxt>";  if ($recents == 10) { &recents; }
if ($recents != 10) { print "<option>$b10Name"; open(DATA,"$b10dat"); @data10 = <DATA>; close(DATA); foreach $i (@data10) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 11) { &recents; }
if ($recents != 11) { print "<option>$b11Name"; open(DATA,"$b11dat"); @data11 = <DATA>; close(DATA); foreach $i (@data11) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 12) { &recents; }
if ($recents != 12) { print "<option>$b12Name"; open(DATA,"$b12dat"); @data12 = <DATA>; close(DATA); foreach $i (@data12) { print "$i"; }} print "</select></form></td></tr>";

print "$col1 text=$btxt>";  if ($recents == 13) { &recents; }
if ($recents != 13) { print "<option>$b13Name"; open(DATA,"$b13dat"); @data13 = <DATA>; close(DATA); foreach $i (@data13) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 14) { &recents; }
if ($recents != 14) { print "<option>$b14Name"; open(DATA,"$b14dat"); @data14 = <DATA>; close(DATA); foreach $i (@data14) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 15) { &recents; }
if ($recents != 15) { print "<option>$b15Name"; open(DATA,"$b15dat"); @data15 = <DATA>; close(DATA); foreach $i (@data15) { print "$i"; }} print "</select></form></td></tr>";

print "$col1 text=$btxt>";  if ($recents == 16) { &recents; }
if ($recents != 16) { print "<option>$b16Name"; open(DATA,"$b16dat"); @data16 = <DATA>; close(DATA); foreach $i (@data16) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 17) { &recents; }
if ($recents != 17) { print "<option>$b17Name"; open(DATA,"$b17dat"); @data17 = <DATA>; close(DATA); foreach $i (@data17) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 18) { &recents; }
if ($recents != 18) { print "<option>$b18Name"; open(DATA,"$b18dat"); @data18 = <DATA>; close(DATA); foreach $i (@data18) { print "$i"; }} print "</select></form></td></tr>";

print "$col1 text=$btxt>";  if ($recents == 19) { &recents; }
if ($recents != 19) { print "<option>$b19Name"; open(DATA,"$b19dat"); @data19 = <DATA>; close(DATA); foreach $i (@data19) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 20) { &recents; }
if ($recents != 20) { print "<option>$b20Name"; open(DATA,"$b20dat"); @data20 = <DATA>; close(DATA); foreach $i (@data20) { print "$i"; }} print "</select></form></td>";

print "$col2 text=$btxt>";  if ($recents == 21) { &recents; }
if ($recents != 21) { print "<option>$b21Name"; open(DATA,"$b21dat"); @data21 = <DATA>; close(DATA); foreach $i (@data21) { print "$i"; }} print "</select></form></td></tr></table>";
# end main links

if ($linkpanel eq "on") {
print "<table "; if ($border eq "on") { print "border=1 "; }
print "cellpadding=0 cellspacing=0><tr><td width=67% align=center><form mehod=post><table cellpadding=0 cellspacing=0><tr><td align=right>URL:</td><td width=40% align=left><$textbox name=url width=125> <td valign=middle align=center rowspan=2><select name=add text=$btxt width=175>"; &cat; print "</select>
<$hide name=er value=y>
<$hide name=mode value=$add>
<$submit value=\"Add New Link\" width=175></td></tr>
<tr><td align=right>Name:</td><td align=left width=40%> <$textbox name=name width=125> </td></tr></table></form>

</td><td width=33% align=center>
<form method=post><select name=file text=$btxt width=177>"; &cat;
print "</select><br>
<$hide name=action value=list>
<$hide name=mode value=$admin>
<$submit value=\"Edit Existing Links\" width=177></form>
</td></tr></table>";
}
if ($searchbox eq "on") { &search; }
if ($clock eq "bottom") { &Clock; } &nav;
if ($cust2On eq "on") { print "<br><embed src=\"$custom2\"></embed>"; }
print "</body></html>";
}
## END MAIN LINK PAGE   --   BEGIN ADMIN    #

if ($mode eq "$admin") { 
$action = $q->param("action");   $file = $q->param("file"); 
$name = $q->param("name");    $newname = $q->param("newname"); 
$newurl = $q->param("newurl");
$adminhead = "<$h1clr><h1 align=center>Edit/Delete Links</h1></font>";

if ($action eq "") { admin("Choose a category from below to view a list of all links."); &cat; &nav; } 

if ($action ne "") { open(DATA,"$file") || admin("ERROR! - $!"); $filetxt = <DATA>; close(DATA); @data = split(/<!>/,$filetxt); }

if ($action eq "list") { &admin;}

if ($action eq "edit") { &head; &body; print "$adminhead";
foreach $i (@data) { ($tmpurl,$tmpname) = split(/\"\>/,$i); 
$tmpurl =~ s/\<$OpV\=\"//;  $tmpname =~ tr/ /_/; 
$nam2 = $name; $nam2 =~ tr/_/ /;if ($name eq $tmpname) { $graburl = $tmpurl;}} 
print <<editform;
<p>Change the existing URL/Name to a new URL and/or Name, then press save.<p><form method=post>
URL:<br><input name=newurl value="$graburl" bgcolor=$txtbg text=$intxt cursor=$intxt width=550><p>
Name:<br><input name=newname value="$nam2" bgcolor=$txtbg text=$intxt cursor=$intxt width=550><p>
<$hide name=mode value=$admin>
<$hide name=action value=save>
<$hide name=name value=$name>
<$hide name=file value=$file>
<center><$submit value="Save">
<input type=reset text=$btxt value="Reset">
</center></body></html>
editform
} 

if ($action eq "save") { $grab = 0;  if ($newurl ne "" && $newname ne "") { 
open(NEW,">$file") || admin("ERROR! Could not open $file: $!");
foreach $i (@data) { ($tmpurl,$tmpname) = split(/\"\>/,$i); 
$tmpurl =~ s/\<$OpV\=\"//;  $tmpname =~ tr/ /_/; 
$tmpnam2 = $tmpname; $tmpnam2 =~ tr/_/ /;
if ($name eq $tmpname) { print NEW "<$OpV=\"$newurl\">$newname<!>"; ++$grab; } 
else { if ($tmpurl ne "") { print NEW "<$OpV=\"$tmpurl\">$tmpnam2<!>"; } } } } else { admin("ERROR! You must enter a URL and a Name<br>Press Back") }
close(NEW);

if ($grab == 1) {&head; &body; print "$adminhead"; &cat;
print <<endhtml;
<center><$h1clr size="+2">Changed $title Entry.</font><p>
Choose a Category from above to further edit or remove entries.</center>
endhtml
&nav;
} } 

if ($action eq "confirmdel") { &head; &body; print "$adminhead"; 
print <<endconfirm;
Are you sure you want to delete this entry? If yes, click the delete button below and the link will be permanently erased. If not, press back now.<p>
<center><form method="post">
<$hide name=mode value=$admin>
<$hide name=newurl value="$graburl">
<$hide name=newname value="$nam2">
<$hide name=action value=delete>
<$hide name=name value=$name>
<$hide name=file value=$file>
<center><$submit value="Delete"></form></center>
endconfirm
}

if ($action eq "delete") { 
open(NEW,">$file") || admin("ERROR! Could not open $file: $!");
foreach $i (@data) { ($tmpurl,$tmpname) = split(/\"\>/,$i); 
$tmpurl =~ s/\<$OpV\=\"//; 
$tmpname =~ tr/ /_/; 
$tmpnam2 = $tmpname;
$tmpnam2 =~ tr/_/ /;
if ($name eq $tmpname) { ++$grab; } 
else { if ($tmpurl ne "") { print NEW "<$OpV=\"$tmpurl\">$tmpnam2<!>"; } } }
close(NEW);

&head; &body; print "$adminhead"; &cat; if ($grab == 1) { 
print <<endhtml;
<center><$h1clr size="+2">Removed $title Entry</font>.<p>
Choose a Category from above to further edit or remove entries.</center>
endhtml
&nav; } 
} 

if ($action eq "confirmdelall") { &head; &body; print "$adminhead"; 
print <<EOM;
Are you sure you want to delete ALL of the links in this Category? If yes, click the Delete button below and they will be permanently erased. If not press back now.<p>
<center><form method="post">
<$hide name=mode value=$admin>
<$hide name=action value=delall>
<$hide name=file value=$file>
<center><$submit value="Delete ALL Links"></form></center>
EOM
}

if ($action eq "delall") { 
open(ERA,">$file") || admin("ERROR! Could not open $file: $!");
print ERA "";
close(ERA);
&head; &body; print "$adminhead"; &cat; print <<EOM;
<center><$h1clr size="+2">Removed $title Category Links</font><p>
Choose a Category from above to further edit or remove entries.</center>
EOM
&nav;
}
}
## END ADMIN -  BEGIN ADD    #

if ($mode eq "$add") { 
$url= $q->param("url"); chomp($url); $name = $q->param("name"); chomp($name);
$url2= $q->param("url2"); chomp($url2); $name2 = $q->param("name2"); chomp($name2);
$url3= $q->param("url3"); chomp($url3); $name3 = $q->param("name3"); chomp($name3);
$url4= $q->param("url4"); chomp($url4); $name4 = $q->param("name4"); chomp($name4);
$url5= $q->param("url5"); chomp($url5); $name5 = $q->param("name5"); chomp($name5);
$dbase = $q->param("add");  $er = $q->param("er");
$warn = "You cannot define only one field in number";
$warn2 = "Erase it or add the missing field.";

$error = 0; 
if ($er eq "") { add(""); } else { 
if ($url eq "" || $name eq "") { add("ERROR! You must enter at least the first URL and Name"); }
else {
if ($url2 eq "" && $name2 ne "" || $name2 eq "" && $url2 ne "") { add("ERROR! $warn 2. $warn2") }
if ($url3 eq "" && $name3 ne "" || $name3 eq "" && $url3 ne "") { add("ERROR! $warn 3. $warn2.") }
if ($url4 eq "" && $name4 ne "" || $name4 eq "" && $url4 ne "") { add("ERROR! $warn 4. $warn2.") }
if ($url5 eq "" && $name5 ne "" || $name5 eq "" && $url5 ne "") { add("ERROR! $warn 5. $warn2") }
if ($dbase eq "") { add("ERROR! Please choose a Category"); } }

open(DATA,">>$dbase") || add("ERROR! Unable to save the link to $dbase: $!");

if ($error == 0) {
print DATA "<$OpV=\"$url\">$name<!>"; 
if ($url2 ne "" && $name2 ne "") {
print DATA "<$OpV=\"$url2\">$name2<!>"; }
if ($url3 ne "" && $name3 ne "") {
print DATA "<$OpV=\"$url3\">$name3<!>"; }
if ($url4 ne "" && $name4 ne "") {
print DATA "<$OpV=\"$url4\">$name4<!>"; }
if ($url5 ne "" && $name5 ne "") {
print DATA "<$OpV=\"$url5\">$name5<!>"; }
close(DATA);

&head; &body;
print <<endsaved;
<center><$h1clr><h1>Links Saved</h1></font>
The following links have been saved:<p>
<a href="$url">$name</a><br>
endsaved

if ($url2 ne "" && $name2 ne "") {
print "<a href=$url2>$name2</a><br>"; }
if ($url3 ne "" && $name3 ne "") {
print "<a href=$url3>$name3</a><br>"; }
if ($url4 ne "" && $name4 ne "") {
print "<a href=$url4>$name4</a><br>"; }
if ($url5 ne "" && $name5 ne "") {
print "<a href=$url5>$name5</a><br>"; }
print "<p><$hr><p>"; &nav; print "</body></html>";
} } 
}
## END ADD LINKS   --  BEGIN NOTEPAD MODE

if ($mode eq "$notepad") { &head; &body;
print "<center><$h1clr><h1>Notepad</h1></font><p>
The Information that you put in this notepad will also appear at the bottom of the Add Links Page, if you activate it on the Settings Page<p>"; &showbook; 
print "<$hr>"; &nav; print "</body></html>"; }
## END NOTEPAD MODE  --  BEGIN HELP MODE

if ($mode eq "$help") { &head; print <<endHelp;
<body bgcolor="#181818" text="#44EE66" link="gold" vlink="#29874A" address="$addy" logo="$logoURL">
<embed src="http://www.wtv-zone.com/nesgamepro/autofkey/helpv2.html">
endHelp
print "<$hr>"; &nav; print "</body></html>";
}
## END HELP MODE  --  BEGIN SEARCH

if ($mode eq "$searchmode") { $search = $q->param("search"); 
open(DATA,"$b1dat"); $data1=<DATA>; close(DATA); 
open(DATA,"$b2dat"); $data2=<DATA>; close(DATA); 
open(DATA,"$b3dat"); $data3=<DATA>; close(DATA); 
open(DATA,"$b4dat"); $data4=<DATA>; close(DATA); 
open(DATA,"$b5dat"); $data5=<DATA>; close(DATA); 
open(DATA,"$b6dat"); $data6=<DATA>; close(DATA);
open(DATA,"$b7dat"); $data7=<DATA>; close(DATA); 
open(DATA,"$b8dat"); $data8=<DATA>; close(DATA); 
open(DATA,"$b9dat"); $data9=<DATA>; close(DATA); 
open(DATA,"$b10dat"); $data10=<DATA>; close(DATA); 
open(DATA,"$b11dat"); $data11=<DATA>; close(DATA); 
open(DATA,"$b12dat"); $data12=<DATA>; close(DATA); 
open(DATA,"$b13dat"); $data13=<DATA>; close(DATA); 
open(DATA,"$b14dat"); $data14=<DATA>; close(DATA); 
open(DATA,"$b15dat"); $data15=<DATA>; close(DATA); 
open(DATA,"$b16dat"); $data16=<DATA>; close(DATA); 
open(DATA,"$b17dat"); $data17=<DATA>; close(DATA); 
open(DATA,"$b18dat"); $data18=<DATA>; close(DATA); 
open(DATA,"$b19dat"); $data19=<DATA>; close(DATA); 
open(DATA,"$b20dat"); $data20=<DATA>; close(DATA); 
open(DATA,"$b21dat"); $data21=<DATA>; close(DATA); 
@rawdata = ("$data1","$data2","$data3","$data4","$data5","$data6","$data7","$data8","$data9","$data10","$data11","$data12","$data13","$data14","$data15","$data16","$data17","$data18","$data19","$data20","$data21");
$rawdata = "@rawdata";
@data = split(/<!>/,$rawdata);
@matches = grep(/$search/,@data); 
$totalhits = 0;
foreach (@matches) { ++$totalhits; } 

&head; &body;
print "<center><h1>Search Results</h1>"; 
&search;
if ($search ne "") { print "<br>$totalhits matches for $search"; }
if ($search eq "") { print "Listing all saved Links. $totalhits total."; } 

print "<table width=100% border=1>
<tr><td><b>Site Name:</b></td><td><b><i>URL</i></b> </td></tr>";
$currenthits = 0;
foreach $i (@matches) {  ++$currenthits;
($url,$name) = split(/\"\>/,$i); 
$url =~ s/\<$OpV\=\"//; 
$name =~ tr/_/ /; 
if ($name ne "") {  
$name =~ s#$search#<b>$search</b>#;
print "<tr><td valign=top><a href=$url><b>$name</b></a> </td> <td><i>$url</i></td></tr>";
} } print "</table>"; if ($currenthits == 0) { 
print "Sorry, your search yielded no results"; }

&nav; print "</center>";
}
## END SEARCH   --  BEGIN SETUP

if ($mode eq "$setup") { $action = $q->param("action"); $catdel = $q->param("catdel"); 
$s1 = $q->param("b1");       $s2 = $q->param("b2");
$s3 = $q->param("b3");       $s4 = $q->param("b4");
$s5 = $q->param("b5");       $s6 = $q->param("b6");
$s7 = $q->param("b7");       $s8 = $q->param("b8");
$s9 = $q->param("b9");       $s10 = $q->param("b10");
$s11 = $q->param("b11");     $s12 = $q->param("b12");
$s13 = $q->param("b13");     $s14 = $q->param("b14");
$s15 = $q->param("b15");     $s16 = $q->param("b16");
$s17 = $q->param("b17");     $s18 = $q->param("b18");
$s19 = $q->param("b19");     $s20 = $q->param("b20");
$s21 = $q->param("b21");     $s22 = $q->param("title");
$s23 = $q->param("logoURL"); $s24 = $q->param("addy");
$s25 = $q->param("header");  $s26 = $q->param("bgclr");
$s27 = $q->param("text");    $s28 = $q->param("link");
$s29 = $q->param("vlink");   $s30 = $q->param("btxt");
$s31 = $q->param("intxt");   $s32 = $q->param("txtbg");
$s33 = $q->param("priv");    $s34 = $q->param("custOn");
$s35 = $q->param("custom");  $s36 = $q->param("cust2On"); 
$s37 = $q->param("custom2"); $s38 = $q->param("clock");
$s39 = $q->param("notepad"); $s40 = $q->param("grownote");
$s41 = $q->param("search");  $s42 = $q->param("recents");
$s43 = $q->param("navpanel"); $s44= $q->param("showDelAll");
$s45 = $q->param("border");  $s46=$q->param("navpanel2");
$s47=$q->param("clockclr"); $s48=$q->param("nothing");

if ($action eq "") { &setup; }

if ($action eq "saveset") { 
open(SET,">$setfile");  
print SET "$s1|$s2|$s3|$s4|$s5|$s6|$s7|$s8|$s9|$s10|$s11|$s12|$s13|$s14|$s15|$s16|$s17|$s18|$s19|$s20|$s21|$s22|$s23|$s24|$s25|$s26|$s27|$s28|$s29|$s30|$s31|$s32|$s33|$s34|$s35|$s36|$s37|$s38|$s39|$s40|$s41|$s42|$s43|$s44|$s45|$s46|$s47|$s48§"; close(SET);
&head; &body; print "<$h1clr><h1 align=center>Settings Saved</h1></font></body></html>"; &nav; }

if ($action eq "confirm") { &head; &body; print <<ConFirm;
<$h1clr><h1 align=center>Restore Settings to Default</h1></font>Are you sure you want to go back to the default settings? Doing so will permanently erase ALL of your customized Colors and Options. Your links however, will remain untouched.<p>If you do not wish to do this, press back now.<p>

<center><form method=post>
<input type=checkbox name=catdel value=yes> Return Categories to default also, Check if yes.<p>
<$hide name=mode value=$setup>
<$hide name=action value=delsetup>
<$hide name=setfile value=$setfile>
<$hide name=b1 value="$s1"><$hide name=b2 value="$s2">
<$hide name=b3 value="$s3"><$hide name=b4 value="$s4">
<$hide name=b5 value="$s5"><$hide name=b6 value="$s6"> 
<$hide name=b7 value="$s7"><$hide name=b8 value="$s8">
<$hide name=b9 value="$s9"><$hide name=b10 value="$s10">
<$hide name=b11 value="$s11"><$hide name=b12 value="$s12"> 
<$hide name=b13 value="$s13"><$hide name=b14 value="$s14">
<$hide name=b15 value="$s15"><$hide name=b16 value="$s16">
<$hide name=b17 value="$s17"><$hide name=b18 value="$s18"> 
<$hide name=b19 value="$s19"><$hide name=b20 value="$s20">
<$hide name=b21 value="$s21">
<$submit value="Confirm Restore Default Settings"> </form></center></body></html>
ConFirm
}

if ($action eq "delsetup") {
open(ERA,">$setfile") || admin("ERROR! Could not open $file: $!");
if ($catdel eq "yes") { print ERA ""; } else { print ERA "$s1|$s2|$s3|$s4|$s5|$s6|$s7|$s8|$s9|$s10|$s11|$s12|$s13|$s14|$s15|$s16|$s17|$s18|$s19|$s20|$s21|Auto Fkey Saver|http://www.wtv-zone.com/nesgamepro/pics/autofkeylogo.gif|Auto Fkey Saver by NESGamepro|#315896|#181818|#44EE66|gold|#29874A|blue|gold|#181818|on|non|http://|on|http://www.wtv-zone.com/nesgamepro/autofkey/helpv2.html||on||on|0|on||on||#44EE66|§"; }
close(ERA);

&head; &body; print "<$h1clr><h1 align=center>Default Settings Restored</h1></font>"; 
if ($catdel eq "yes") { print "ALL of your customized settings, including your Categories, Colors, and Options have been restored to the default value."; } else { print "Your customized Colors and Options have been restored to the default value."; }
&nav; }
}

## END SETUP   -- BEGIN SUBROUTINES

sub head {
print "<html><head><title>"; # open html page - set title
if ($mode eq "$searchmode") { print "Search ";}
if ($mode eq "$notepad") { print "Notepad - ";}
if ($mode eq "$setup") { print "Change ";}
if ($mode eq "$add") { print "Add Links - ";}
if ($mode eq "$admin") { print "Edit/Delete "; }
print "$title"; 
if ($mode eq "$admin") { print " Links"; }
if ($mode eq "$setup") { print " Settings";
if ($action eq "saveset") { print " Settings Changed";} }
print "</title>\n<script>";  # Javascripts

print <<endRoll; # HM KILL
parent.name='test';
function a(txt) { self.status = txt }
function b() { self.status = ""} 
endRoll

if ($mode eq "" || $mode eq "$main") {
print <<Linkto;
function go(s) { var page = s.options[s.selectedIndex].value; 
document.location.href = page; s.selectedIndex=0; }\n
Linkto

if ($recents != 0) {
print <<endRecents;
function showRecent() { for (x=0; x < history.length; x++) { hstURL=history[x]; document.write("<$OpV='"+hstURL+"'>"+hstURL) } } 
endRecents
}

if ($clock ne "") {
print <<endClock;
clock(); function clock() { 
var time = new Date();
var hrs = time.getHours();
var min = time.getMinutes();
var sec = time.getSeconds();
if(hrs >= 12) {h= hrs-12;} if(hrs < 13) {h= hrs;}
if(min < 10) {m= "0"+min;} if(min > 9) {m= min;}
if(sec < 10) {s= "0"+sec;} if(sec > 9) {s= sec;}
if(hrs >= 12) {ap= "PM";} if(hrs < 12) {ap= "AM";}
document.clock.face.value=h+":"+m+":"+s+" "+ap; setTimeout("clock()", 1000); }\n
endClock
} }

if ($mode eq "$add") {
print <<CharAlert;
function allow() { a = window.event.keyCode; 
if (a == 39) { alert("You must put a backslash -\\- in front of all apostrophes -\'-"); } }\n
CharAlert
}

if ($mode eq "$setup") {
$warnnote = "Are you sure you want to leave the Settings Page?\n\nAny changes you made will not be saved if you choose OK.";
print <<WarnLeave;
function warn1() {
var sure = confirm("$warnnote"); 
if (sure == true) { document.location="?mode=$main"; }  }

function warn2() {
var sure = confirm("$warnnote"); 
if (sure == true) { document.location="?mode=$add"; }  }

function warn3() {
var sure = confirm("$warnnote"); 
if (sure == true) { document.location="?mode=$admin"; }  }

function warn4() {
var sure = confirm("$warnnote."); 
if (sure == true) { document.location="?mode=$notepad"; }  }

WarnLeave

$DocVar = "document.vars";
$RecVal ='value="Used for Recents"';
$RecTxt ='Used for Recents';

print <<RenameCategory;
function resetcat() { 
if ($DocVar.b1.value == "$RecTxt") {$DocVar.b1.value="$b1Name"; }
if ($DocVar.b2.value == "$RecTxt") {$DocVar.b2.value="$b2Name"; }
if ($DocVar.b3.value == "$RecTxt") {$DocVar.b3.value="$b3Name"; }
if ($DocVar.b4.value == "$RecTxt") {$DocVar.b4.value="$b4Name"; }
if ($DocVar.b5.value == "$RecTxt") {$DocVar.b5.value="$b5Name"; }
if ($DocVar.b6.value == "$RecTxt") {$DocVar.b6.value="$b6Name"; }
if ($DocVar.b7.value == "$RecTxt") {$DocVar.b7.value="$b7Name"; }
if ($DocVar.b8.value == "$RecTxt") {$DocVar.b8.value="$b8Name"; }
if ($DocVar.b9.value == "$RecTxt") {$DocVar.b9.value="$b9Name"; }
if ($DocVar.b10.value == "$RecTxt") {$DocVar.b10.value="$b10Name"; }
if ($DocVar.b11.value == "$RecTxt") {$DocVar.b11.value="$b11Name"; }
if ($DocVar.b12.value == "$RecTxt") {$DocVar.b12.value="$b12Name"; }
if ($DocVar.b13.value == "$RecTxt") {$DocVar.b13.value="$b13Name"; }
if ($DocVar.b14.value == "$RecTxt") {$DocVar.b14.value="$b14Name"; }
if ($DocVar.b15.value == "$RecTxt") {$DocVar.b15.value="$b15Name"; }
if ($DocVar.b16.value == "$RecTxt") {$DocVar.b16.value="$b16Name"; }
if ($DocVar.b17.value == "$RecTxt") {$DocVar.b17.value="$b17Name"; }
if ($DocVar.b18.value == "$RecTxt") {$DocVar.b18.value="$b18Name"; }
if ($DocVar.b19.value == "$RecTxt") {$DocVar.b19.value="$b19Name"; }
if ($DocVar.b20.value == "$RecTxt") {$DocVar.b20.value="$b20Name"; }
if ($DocVar.b21.value == "$RecTxt") {$DocVar.b21.value="$b21Name"; }
}

function rename() { 
var ccat = $DocVar.recents.selectedIndex;

if (ccat == 0) { resetcat(); }
if (ccat == 1) { resetcat(); $DocVar.b1.$RecVal; }
if (ccat == 2) { resetcat(); $DocVar.b2.$RecVal; }
if (ccat == 3) { resetcat(); $DocVar.b3.$RecVal; }
if (ccat == 4) { resetcat(); $DocVar.b4.$RecVal; }
if (ccat == 5) { resetcat(); $DocVar.b5.$RecVal; }
if (ccat == 6) { resetcat(); $DocVar.b6.$RecVal; }
if (ccat == 7) { resetcat(); $DocVar.b7.$RecVal; }
if (ccat == 8) { resetcat(); $DocVar.b8.$RecVal; }
if (ccat == 9) { resetcat(); $DocVar.b9.$RecVal; }
if (ccat == 10) { resetcat(); $DocVar.b10.$RecVal; }
if (ccat == 11) { resetcat(); $DocVar.b11.$RecVal; }
if (ccat == 12) { resetcat(); $DocVar.b12.$RecVal; }
if (ccat == 13) { resetcat(); $DocVar.b13.$RecVal; }
if (ccat == 14) { resetcat(); $DocVar.b14.$RecVal; }
if (ccat == 15) { resetcat(); $DocVar.b15.$RecVal; }
if (ccat == 16) { resetcat(); $DocVar.b16.$RecVal; }
if (ccat == 17) { resetcat(); $DocVar.b17.$RecVal; }
if (ccat == 18) { resetcat(); $DocVar.b18.$RecVal; }
if (ccat == 19) { resetcat(); $DocVar.b19.$RecVal; }
if (ccat == 20) { resetcat(); $DocVar.b20.$RecVal; }
if (ccat == 21) { resetcat(); $DocVar.b21.$RecVal; }
}
RenameCategory
}

if ($mode eq "$add" && $shownote eq "on" || $mode eq "$notepad") {
print <<EndNote;
var cook=document.cookie.split("; ");
var now=new Date();
var exp=new Date(now.getTime()+180*24*60*60*1000);
var exp2=new Date(now.getTime()-190*24*60*60*1000);

function getCookie(cookname) { for (var i=0; i<cook.length; i++) { chip=cook[i].split("=");
if (chip[0] == cookname) { return unescape(chip[1]); } } return ""; }

function Update() { document.clipForm.data.value=getCookie('NotePadCookie'); }

function setCookie(cookname, cookval) { if (cookval != null && cookval != "") { alert("Your Information has been saved for up to six months."); document.cookie=cookname+"="+escape(cookval)+"; expires="+exp.toGMTString(); cook=document.cookie.split("; ");}
else { alert("Nothing was saved."); } }

function Remove(name) { 
var makesure = confirm("Are you sure you want to permanently delete your information?\n\n Click Cancel for No.\n Click OK for Yes.");
if (makesure == true) {
document.cookie = name + "=*; expires=" + exp2.toGMTString(); 
alert("Your information has been deleted."); document.clipForm.ResetButton.click(); }
}
EndNote
} print "</script></head>\n"; }

sub body { 
print "<body bgcolor=$bgclr text=$text link=$link vlink=$vlink address=\"$addy\" logo=\"$logoURL\"";
if ($mode eq "$setup") { print " onLoad=\"rename()\""; }
if ($mode eq "$add" && $shownote eq "on" || $mode eq "$notepad") { 
print " onLoad=\"Update()\""; }
print ">\n";
}

sub cat {
if ($mode eq "$admin") { print <<adminsel;
<center>Choose a category:<br><form>
<select name=file text=$btxt>
adminsel
}

print <<categories;
<$OpV="">Choose Category
<$OpV=$b1dat>$b1Name
<$OpV=$b2dat>$b2Name
<$OpV=$b3dat>$b3Name
<$OpV=$b4dat>$b4Name
<$OpV=$b5dat>$b5Name
<$OpV=$b6dat>$b6Name
<$OpV=$b7dat>$b7Name
<$OpV=$b8dat>$b8Name
<$OpV=$b9dat>$b9Name
<$OpV=$b10dat>$b10Name
<$OpV=$b11dat>$b11Name
<$OpV=$b12dat>$b12Name
<$OpV=$b13dat>$b13Name
<$OpV=$b14dat>$b14Name
<$OpV=$b15dat>$b15Name
<$OpV=$b16dat>$b16Name
<$OpV=$b17dat>$b17Name
<$OpV=$b18dat>$b18Name
<$OpV=$b19dat>$b19Name
<$OpV=$b20dat>$b20Name
<$OpV=$b21dat>$b21Name
categories

if ($mode eq "$admin") { print <<endhtml;
</select>
<$hide name=mode value=$admin>
<$hide name=action value=list>
<$submit value="Edit Links"></form><$hr></center>
endhtml
}
}

sub recents {
print <<endRecents;
<option>Recents
<script>showRecent();</script>
endRecents
}

sub nav { 
print "<p><center><table>";
unless ($mode eq "" || $mode eq "$main") {
print "<tr><td colspan=4 align=center><form> <$submit value=\"Return to $title\"> <$hide name=mode value=$main></form></td></tr>"; }

unless ($navpanel2 eq "on" && $mode eq "" || $mode eq "$main") {
if ($navpanel eq "on") {
print <<endNav;
<tr><td><form><$submit value="Add Links"><$hide name=mode value=$add>
</form></td><td><form> <$submit value="Edit/Delete Links"> <$hide name=mode value=$admin></form></td><td><form><$submit value="Change Settings"><$hide name=mode value=$setup></form></td><td><form><$submit value="Help"><$hide name=mode value=$help></form></td></tr>
endNav
} }
print "</table></center><p>"; }

sub add { ++$error; $reason = shift(@_);  $tabletop = "<table width=100%><tr><td valign=center rowspan=2>";
$tablebot = "</td></tr></table><p>";
if ($error == 1) { &head; &body;
print <<moreform;
<center><$h1clr><h1>Add Fkey Info:</h1></font>
Be sure to include either http://, news:, or mailto: in the URL field<p>
<font size="+1">$reason</font><p>

<form method=POST>
$tabletop<b>1.</b></td><td>URL:</td><td><$textbox name=url width=100% value="$url"></td></tr>
<tr><td>Name:</td><td><$textbox name=name width=100% value="$name">$tablebot
$tabletop<b>2.</b></td><td>URL:</td><td><$textbox name=url2 width=100% value="$url2"></td></tr><tr>
<td>Name:</td><td><$textbox name=name2 width=100% value="$name2">$tablebot
$tabletop<b>3.</b></td><td>URL:</td><td><$textbox name=url3 width=100% value="$url3"></td></tr><tr> <td>Name:</td><td><$textbox name=name3 width=100% value="$name3">$tablebot
$tabletop<b>4.</b></td><td>URL:</td><td><$textbox name=url4 width=100% value="$url4"></td></tr><tr> <td>Name:</td><td><$textbox name=name4 width=100% value="$name4">$tablebot
$tabletop<b>5.</b></td><td>URL:</td><td><$textbox name=url5 width=100% value="$url5"></td></tr><tr> <td>Name:</td><td><$textbox name=name5 width=100% value="$name5">$tablebot
<table width=100%
print "><tr><td align=right width=60%>
<select name=add text=\"$btxt\">
moreform

&cat; print <<endform; 
</select></td><td width=40%><$hide name=er value=y><$hide name=mode value=$add><$submit></form>
</td></tr></table><p><$hr><p>
endform
if ($shownote eq "on") { &showbook; } print "<p><$hr><p>"; &nav; print "</center></body></html>";
} }

sub admin { ++$error;  $reason = shift(@_); 
if ($error == 1) { &head; &body;
print "$adminhead <br><center><font size=+1>$reason";
if ($reason eq "" && $filetxt eq "") {print "Nothing saved in that category."; &cat; &nav; } print "</font><p><table width=100%>";

foreach $i (@data) { ($tmpurl,$tmpname) = split(/\"\>/,$i); 
$tmpurl =~ s/\<$OpV\=\"//; 
$tmpname =~ tr/ /_/; 
$tmpnam2 = $tmpname;
$tmpnam2 =~ tr/_/ /;

if ($tmpname ne "") { 
print <<modlinks;
<tr><td>$tmpnam2 - <font size="-2"><a href="$tmpurl" onMouseover="a('Go to: $tmpurl')" onMouseout="b()">View</a></font></td><td align=right><a 
href="?mode=$admin&action=edit&name=$tmpname&file=$file">Edit</a> - <a href="?mode=$admin&action=confirmdel&name=$tmpname&file=$file">Delete</a> </td></tr>
modlinks
} }

if ($showDelAll eq "on" && $filetxt ne "") {
print "<tr><td align=center colspan=2><p><br> <a href=\"?mode=$admin&action=confirmdelall&file=$file\">Delete ALL Links</a></td></tr>"; } print "</table>"; }
}

sub setup { &head; &body; print "<$h1clr><h1 align=center>Change Settings</h1></font>";
if ($varFiletxt eq "") { print "<center><b>All selections are currently set to default.</b></center><p>"; }

print <<changeSet;
<form method=post name=vars><table cellpadding=2 width=100%>
<tr><td colspan=4 align=right><font size=-1><a href="?mode=$help">Help</a></font></td></tr>

<tr><td align=center colspan=4><$h1clr size=+2>Page Options</font><br> <font size=-1>Settings for <u>all</u> pages</font><br><br></td></tr>
<tr><td align=center colspan=4>Title: <$textbox name="title" value="$title" size=40></td></tr>

<tr><td align=center colspan=4>
<table width=100%><tr><td align=center colspan=6>
Enter the name of each category below.</td></tr>
<tr><td>1</td><td><$textbox name="b1" value="$b1Name" size="16"></td>
<td>2</td><td><$textbox name="b2" value="$b2Name" size="16"></td>
<td>3</td><td><$textbox name="b3" value="$b3Name" size="16"></td></tr>
<tr><td>4</td><td><$textbox name="b4" value="$b4Name" size="16"></td>
<td>5</td><td><$textbox name="b5" value="$b5Name" size="16"></td>
<td>6</td><td><$textbox name="b6" value="$b6Name" size="16"></td></tr>
<tr><td>7</td><td><$textbox name="b7" value="$b7Name" size="16"></td>
<td>8</td><td><$textbox name="b8" value="$b8Name" size="16"></td>
<td>9</td><td><$textbox name="b9" value="$b9Name" size="16"></td></tr>
<tr><td>10</td><td><$textbox name="b10" value="$b10Name" size="16"></td>
<td>11</td><td><$textbox name="b11" value="$b11Name" size="16"></td>
<td>12</td><td><$textbox name="b12" value="$b12Name" size="16"></td></tr>
<tr><td>13</td><td><$textbox name="b13" value="$b13Name" size="16"></td>
<td>14</td><td><$textbox name="b14" value="$b14Name" size="16"></td>
<td>15</td><td><$textbox name="b15" value="$b15Name" size="16"></td></tr>
<tr><td>16</td><td><$textbox name="b16" value="$b16Name" size="16"></td>
<td>17</td><td><$textbox name="b17" value="$b17Name" size="16"></td>
<td>18</td><td><$textbox name="b18" value="$b18Name" size="16"></td></tr>
<tr><td>19</td><td><$textbox name="b19" value="$b19Name" size="16"></td>
<td>20</td><td><$textbox name="b20" value="$b20Name" size="16"></td>
<td>21</td><td><$textbox name="b21" value="$b21Name" size="16"></td></tr>
</table></td></tr>

<tr><td width=25%>Header Color:</td>
<td width=25%><$textbox name="header" value="$header" size="15"></td>
<td width=25%>Drop-down box text Color:</td>
<td width=25%><$textbox name="btxt" value="$btxt" size="15"></td></tr>

<tr><td>Background Color:</td>
<td><$textbox name="bgclr" value="$bgclr" size="15"></td>
<td>Text Color:</td>
<td><$textbox name="text" value="$text" size="15"></td></tr>

<tr><td>Link Color:</td>
<td><$textbox name="link" value="$link" size="15"></td>
<td>Visited Link Color:</td>
<td><$textbox name="vlink" value="$vlink" size="15"></td></tr>

<tr><td>Background color in text boxes:</td>
<td><$textbox name="txtbg" value="$txtbg" size="15"></td>
<td>Color of text in text boxes:</td>
<td><$textbox name="intxt" value="$intxt" size="15"></td></tr>

<tr><td colspan=2>Info Panel Logo URL:</td>
<td colspan=2><$textbox name="logoURL" value="$logoURL" size=40></td></tr>

<tr><td colspan=2>Info Panel Address:</td>
<td colspan=2><$textbox name="addy" value="$addy" size=40></td></tr>

<tr><td colspan=3 valign=middle>Display Add, Edit/Delete and Change Settings buttons at the bottom of each page: </td><td valign=middle align=center>
<input type=checkbox value=on name=navpanel
changeSet
if ($navpanel eq "on") { print " checked"; } print ">";
print <<changeSet;
</td></tr>

<tr><td colspan=3 valign=middle>Except Main Link Page: </td><td valign=middle align=center><input type=checkbox value=on name=navpanel2
changeSet
if ($navpanel2 eq "on") { print " checked"; } print ">";
print <<changeSet;
</td></tr>

<tr><td colspan=4 align=center><br><br><br><$hr><br><br><br> </td></tr>

<tr><td align=center colspan=4><$h1clr size=+2><a href="javascript:warn1()" nocolor>Main Link Page</a> Options</font></td></tr>

<tr><td colspan=2>Borders Around Fkeys Add Link and Search Options:</td><td colspan=2><input type=checkbox name=border value=on
changeSet

if ($border eq "on") { print " checked"; } print ">";
print "</td></tr>

<tr><td colspan=2>Add/Edit Link Options</td> <td colspan=2><input type=checkbox value=on name=priv"; if($linkpanel eq "on") { print " checked"; } print "></td></tr>

<tr><td colspan=2>Display Search Engine: </td> <td colspan=2><input type=checkbox value=on name=search"; if($searchbox eq "on") { print " checked"; } print "></td></tr>

<tr><td colspan=2>Recent Box: </td><td colspan=2><select name=recents text=$btxt width=200 onChange=\"rename()\">
<$OpV=0"; if ($recents == 0) {print " selected";} print ">No Recent Box
<$OpV=1"; if ($recents == 1) {print " selected";} print ">$b1Name
<$OpV=2"; if ($recents == 2) {print " selected";} print ">$b2Name
<$OpV=3"; if ($recents == 3) {print " selected";} print ">$b3Name
<$OpV=4"; if ($recents == 4) {print " selected";} print ">$b4Name
<$OpV=5"; if ($recents == 5) {print " selected";} print ">$b5Name
<$OpV=6"; if ($recents == 6) {print " selected";} print ">$b6Name
<$OpV=7"; if ($recents == 7) {print " selected";} print ">$b7Name
<$OpV=8"; if ($recents == 8) {print " selected";} print ">$b8Name
<$OpV=9"; if ($recents == 9) {print " selected";} print ">$b9Name
<$OpV=10"; if ($recents == 10) {print " selected";} print ">$b10Name
<$OpV=11"; if ($recents == 11) {print " selected";} print ">$b11Name
<$OpV=12"; if ($recents == 12) {print " selected";} print ">$b12Name 
<$OpV=13"; if ($recents == 13) {print " selected";} print ">$b13Name
<$OpV=14"; if ($recents == 14) {print " selected";} print ">$b14Name
<$OpV=15"; if ($recents == 15) {print " selected";} print ">$b15Name
<$OpV=16"; if ($recents == 16) {print " selected";} print ">$b16Name
<$OpV=17"; if ($recents == 17) {print " selected";} print ">$b17Name
<$OpV=18"; if ($recents == 18) {print " selected";} print ">$b18Name
<$OpV=19"; if ($recents == 19) {print " selected";} print ">$b19Name
<$OpV=20"; if ($recents == 20) {print " selected";} print ">$b20Name
<$OpV=21"; if ($recents == 21) {print " selected";} print ">$b21Name
</select></td></tr>";

print "<tr><td colspan=2>Add Clock:</td> <td colspan=2><select name=clock text=$btxt width=200><option";
if($clock eq "") { print " selected"; } print ">Clock Off\n <$OpV=top";
if($clock eq "top") { print " selected"; } print ">Top <$OpV=bottom";
if($clock eq "bottom") { print " selected"; } print ">Bottom";
print "</select></td></tr>
<tr><td colspan=2>Clock Color - <font size=-1>Only used if a clock is chosen:</font></td> <td colspan=2><$textbox name=clockclr value=\"$clockclr\" text=\"$intxt\"</td></tr>";

print "<tr><td colspan=4 align=center>Custom Top URL</td></tr>
<tr><td colspan=2><input type=checkbox value=on name=custOn"; if($custOn eq "on") { print" checked"; } print "> - Check box to activate</td><td colspan=2><$textbox name=custom size=40 value=\"$custom\"></td></tr>";

print "<tr><td colspan=4 align=center>Custom Bottom URL</td></tr>
<tr><td colspan=2><input type=checkbox value=on name=cust2On"; if($cust2On eq "on") { print" checked"; } print "> - Check box to activate</td><td colspan=2><$textbox name=custom2 size=40 value=\"$custom2\"></td></tr>";

print "<tr><td colspan=4 align=center><br><br><$hr><br><br></td></tr>

<tr><td align=center colspan=4>
<$h1clr size=+2><a href=\"javascript:warn2()\" nocolor>Add Link Page</a> Options</font></td></tr>

<tr><td colspan=3>Cookied Notepad: </td>
<td><input type=checkbox value=on name=notepad"; if($shownote eq "on") { print " checked"; } print "></td></tr>
<tr><td colspan=3>Do you want the Notepad to grow as you type? </td>
<td><input type=checkbox value=on name=grownote";  if($grownote eq "on") { print " checked"; } print "></td></tr>
<tr><td colspan=3><font size=-1>Note: There is always a cookied notepad of avaliable if you <a href=\"javascript:warn4()\">save this page</a>. And the Links/Info you save there will also be in the Add Links page notepad and vise-versa.</font></td></tr>";

print "<tr><td align=center colspan=4><br><br><$hr><br><br></td></tr>

<tr><td align=center colspan=4><$h1clr size=+2><a href=\"javascript:warn3()\" nocolor>Edit/Delete Links Page</a> Options</font></td></tr>

<tr><td colspan=3>Show a link to Delete All Links for the selected category: </td>
<td><input type=checkbox value=\"on\" name=\"showDelAll\""; if($showDelAll eq "on") { print " checked"; } print "></td></tr>";

print <<changeSet2;
<tr><td align=center colspan=4><br><br><$hr></td></tr>
<tr><td align=center colspan=4>
<$submit value="Save Changes" onClick="resetcat();"><$hide name=mode value=$setup><$hide name=action value=saveset><input type="reset" value="Undo Changes" text=$btxt></form> 
changeSet2

if ($varFiletxt ne "") {
print <<ShowRestore;
<form><$hide name=mode value=$setup>
<$hide name=setfile value=$setfile> <$hide name=action value=confirm>
<$hide name=b1 value="$b1Name"><$hide name=b2 value="$b2Name">
<$hide name=b3 value="$b3Name"><$hide name=b4 value="$b4Name">
<$hide name=b5 value="$b5Name"><$hide name=b6 value="$b6Name"> 
<$hide name=b7 value="$b7Name"><$hide name=b8 value="$b8Name">
<$hide name=b9 value="$b9Name"><$hide name=b10 value="$b10Name">
<$hide name=b11 value="$b11Name"><$hide name=b12 value="$b12Name"> 
<$hide name=b13 value="$b13Name"><$hide name=b14 value="$b14Name">
<$hide name=b15 value="$b15Name"><$hide name=b16 value="$b16Name">
<$hide name=b17 value="$b17Name"><$hide name=b18 value="$b18Name">
<$hide name=b19 value="$b19Name"><$hide name=b20 value="$b20Name">
<$hide name=b21 value="$b21Name">
<$submit value="Retore Default Settings"> </form>
ShowRestore
}

print "</td></tr></table></center></BODY></HTML>";
}

sub Clock { 
($day,$month,$year,$day2) = (localtime(time))[3,4,5,6];
@dow = ("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday");
@months = ("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
$end = "th";
if ($day==1 || $day==21 || $day==31) { $end="st"; }
if ($day==2 || $day==22) { $end="nd"; }
if ($day==3 || $day==23) { $end="rd"; }
if ($year < 2000) { $year = $year + 1900; }

print "<center><table><tr><td align=right><font color=\"$clockclr\">
$dow[$day2], $months[$month] $day$end, $year</font></td> 
<td align=left><font color=\"$clockclr\"><form name=clock><input type=text value=\"00:00:00 AP\" name=face readonly size=11 nobackground border=0 usestyle></form> </font> </td></tr></table></center>";
}

sub search { 
print "<form><table width=100% "; if ($border eq "on") { print "border=1 "; }
print "><tr><td align=center><$textbox name=search width=80% value=\"$search\">
<$hide name=mode value=$searchmode>
<$submit value=Search width=20%>
</td></tr></table></form>"; }

sub showbook { if ($grownote eq "on") { $grow = " growable"; }
print "<form name=clipForm><table width=100%>";

print <<EndClip;
<tr><td colspan=4> <textarea name=data width=100% rows=10 maxlength=3000 bgcolor="$txtbg" text="$intxt" cursor="$intxt"$grow></textarea></td></tr>

<tr><td><$btn value="Save" width="110" onClick="setCookie('NotePadCookie',document.clipForm.data.value);"></td>
<td><$btn value=Recall width=110 onClick="Update();"></td>
<td><input type=reset name=ResetButton value=Clear width=110 text="$btxt"></td>
<td><$btn value=Delete onClick="Remove('NotePadCookie');" width=110> </td></tr></table>
</form>
</center>

EndClip
}
print "<noembed>"; # VA KILL
# Warning: Edit this file at your own risk       # Type #! in find box for top of script