#!/usr/bin/perl
# ^ Path to Perl - May need to change to –    #!/usr/local/bin/perl

# Auto Box (autobox.cgi) - Version 1.0 - Released 9-30-2000
# by NESGamepro - http://www.wtv-zone.com/nesgamepro
# Please leave credit intact


# Instructions:
# To install this script on your server, simply transload or beam
# this file to your cgi enabled server, name it anything.cgi  or
# anything.pl, change the path to perl at the top (if script
# not working, 500 error) and change permissions (CHMOD)
# to 755 (if access denied, 401 error).

# There are two way to put the link box in your page, 
# 1. With Server Side Includes(SSI) - preferred
#           <!--#exec cgi="directory/autobox.cgi" -->
# 2. With <embed> or <object> - see notes
#           <embed src="directory/autobox.cgi">
#           <object data="directory/autobox.cgi">

# Notes:
# *It is recommended that you try using SSI before using
#  <embed> or <object>. Not all servers support SSI and it
#  can not be used in e-mail. Your host's help pages should
#  have information about using SSI.

# •If you must use <embed> or <object> to place the link box on
#  your page, it is not advisable to have the boxtype (first setting below)
#  set to web. The javascript in the page will cause strange effects.


# Begin Settings # # #___________________________

## Customize the select (link) box appearence -- 9 options

# Where will this box be used – Values = web, mail, blank same as web
$boxtype = "web";
$btntxt = "Go";         #  Words on submit button -  For "mail" type only
$btntxtclr = "blue";   #  Word color on submit button - For "mail" type only

# Enter any text - leave blank to disable
$firstOption="Choose One";

# Enter any attribute that would normally appear in a <select> tag.
$selectTag = "text=blue size=1 width=200";

# Show Admin Links – Values = top, bottom, or leave blank
$showadmin = "top";

# Enable a count of total links saved and the text to appear beside it
$showcount = "top";  # top, bottom or leave blank
$counttext = "Links Total";

# If you use <embed> to add the link box to you page/email,
# you should set this to the color of the background.
# Value can be a name (blue) or a #hex value (#0000ff).
$bgcolor="#181818";



# The keyword for each "mode" -- 3 options
# Enables access by URL - Change only for security purposes
# Type the URL of this file in to the goto box and then
#  ?modeword=modekeyword
# Example using defaults: http://..etc../autobox.cgi?favs=edit
$modeword = "favs";
$addmode = "add";
$editmode = "edit";

# END Settings # # # ___________________________



## WARNING: Edit Below this line at your own risk
$scripturl = "$ENV{'SCRIPT_NAME'}";
$fullurl = 'http://' . $ENV{'SERVER_NAME'} . $scripturl;               # The URL of this file
@urlparts = split(/\//,$scripturl); $linkdata = @urlparts[-1] . '.txt';  # URL of the data file

# Get the data from GET method
@values = split(/&/,$ENV{'QUERY_STRING'}); 
foreach $i (@values) {
 ($varname, $thedata) = split(/=/,$i);
      # Translate plus signs and %-encoding 
 $thedata =~ tr/+/ /;  $thedata =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
 $thedata =~ tr/\n//;                    # dis-allow newlines
 $thedata =~ s/<!--(.|\n)*-->//g;   # dis-allow SSI
 $thedata =~ s/<([^>]|\n)*>//g;    # dis allow html
 $FORM{$varname} = $thedata;
}

# Count Saved Links
 open(DATA,"$linkdata"); $rawcount = <DATA>; close(DATA);
 @linkcount = split(/§/, $rawcount); # Get saved link data and save to array
$countloops = 0; foreach $i (@linkcount) { ++$countloops; }

print "Content-type: text/html\n\n";



# BEGIN Show Link Box
if ($FORM{$modeword} eq "") {

if ($boxtype eq "web" || $boxtype eq "" || $boxtype eq " ") { # BEGIN Web Box/with JS
print "<script><!--";

if ($firstOption ne "" && $firstOption ne " ") { print qq~
function jsbug() { document.favform.$modeword.options[0].text = "$firstOption"; }\n~; }

print qq~
function LinkBox() {
 if (document.favform.$modeword.value == "$addmode") {
  linkurl = prompt("Enter the URL for the link you wish to save." ,
   "$ENV{'HTTP_REFERER'}");
  if (linkurl != "" && linkurl != null) {
   linkname = prompt("Enter the Name you wish to use for the link you just entered.");
   if (linkname != "" && linkname != null) {
      document.favform.linkurl.value = linkurl;
      document.favform.linkname.value = linkname;
       document.favform.submit();
   }
  }
 }
 else {
  if (document.favform.$modeword.value == "$editmode") {
   window.document.location =  "$fullurl?$modeword=$editmode";
  }
  else { if (document.favform.$modeword.value != "") {
   window.document.location = document.favform.$modeword.value; }
  }
 }
}

// -->
</script>
<body onLoad="jsbug()">

<table bgcolor="$bgcolor"><tr><td>
<form name=favform action="$fullurl" method=get>
<select name="$modeword" onChange="LinkBox()" $selectTag>\n~;

 if ($firstOption ne "" && $firstOption ne " ") { print qq~<option value="">JS Error: Reload Page\n\n~; }

 if ($showadmin eq "top") {
  print qq~<option value="$addmode">Add Links\n<option value="$editmode">Edit/Delete Links\n~; }
 if ($showcount eq "top") { print qq~<option value="">$countloops $counttext\n~; }
 if ($showadmin eq "top" || $showcount eq "top") { print qq~<option value="">\n\n~; }


 open(DATA,"$linkdata"); $rawdata = <DATA>; close(DATA);
 @data = split(/§/, $rawdata); # Get saved link data and save to array
  foreach $i (sort @data) { ($name,$value) = split(/\|/,$i); # split link array
   print qq~<option value="$value">$name\n~;
  }

 if ($showadmin eq "bottom" || $showcount eq "bottom") {
  print qq~\n<option value="">\n~; }
 if ($showcount eq "bottom") { print qq~<option value="">$countloops $counttext~;\n }
 if ($showadmin eq "bottom") {
  print qq~<option value="$addmode">Add Links\n<option value="$editmode">Edit/Delete Links\n~; }

print qq~\n<input type=hidden name=linkurl>
<input type=hidden name=linkname>
</select></form>\n</td></tr></table>~;
}  # END Web Box type - with JS


elsif ($boxtype eq "mail") {         # BEGIN E-mail Box - no JS
$redirectprog = "http://www.wtv-zone.com/nesgamepro/scripts/redirect.cgi";

print qq~
<table bgcolor="$bgcolor"><tr><td>
<form action="$redirectprog" method=post>
<select name=url name="$modeword" $selectTag>\n~;

 if ($firstOption ne "" && $firstOption ne " ") { 
 print qq~<option value="">$firstOption\n\n~; }

 if ($showadmin eq "top") {
  print qq~<option value="$fullurl?$modeword=$addmode">Add Links\n<option value="$fullurl?$modeword=$editmode">Edit/Delete Links\n~; }
 if ($showcount eq "top") { print qq~<option value="">$countloops $counttext\n~; }
 if ($showadmin eq "top" || $showcount eq "top") { print qq~<option value="">\n\n~; }

 open(DATA,"$linkdata"); $rawdata = <DATA>; close(DATA);
 @data = split(/§/, $rawdata); # Get saved link data and save to array
  foreach $i (sort @data) { ($name,$value) = split(/\|/,$i); # split link array
   print qq~<option value="$value">$name\n~;
  }

 if ($showadmin eq "bottom" || $showcount eq "bottom") {
  print qq~\n<option value="">\n~; }
 if ($showcount eq "bottom") { print qq~<option value="">$countloops $counttext\n~; }
 if ($showadmin eq "bottom") {
  print qq~<option value="$fullurl?$modeword=$addmode">Add Links\n<option value="$fullurl?$modeword=$editmode">Edit/Delete Links\n~; }

print qq~\n</select>
<input type=submit text="$btntxtclr" value="$btntxt"></form>\n</td></tr></table>~;
}   # END E-mail Box - no JS

}



## BEGIN Add Link
if ($FORM{$modeword} eq "$addmode") {
 if ($FORM{'linkurl'} && $FORM{'linkname'}) { 
  $FORM{'linkurl'} =~ s/ //;  # dis-allow spaces in url
  open(NEW,">>$linkdata");
  print NEW "$FORM{'linkname'}|$FORM{'linkurl'}§"; 
  close(NEW);
  print qq~<title>Link Saved</title>
  <center><a href="$FORM{'linkurl'}">$FORM{'linkname'}</a> Saved<p>~;
 
  if ($boxtype eq "mail") { print qq~<form><input type=button text=blue value=Done onClick="history.go(-2);"></form>~; }
  else { print qq~<form><input type=button text=blue value=Done onClick="history.go(-1);"></form>~; }

 print "</center>";
 }
 else { print qq~
<title>Add Links</title>
<script><!--
function jsbug() { document.favform.err.value = ""; }

function LinkBox() {
 linkurl = prompt("Enter the URL for the link you wish to save.");
 if (linkurl != "" && linkurl != null) {
  linkname = prompt("Enter the Name you wish to use for the link you just entered.");
  if (linkname != "" && linkname != null) {
     document.favform.linkurl.value = linkurl;
     document.favform.linkname.value = linkname;
     document.favform.submit();
  }
 }
}


//-->
</script>
<body onLoad="jsbug()">

<center>
<form name=favform action="$fullurl" method=get>
<input type=hidden name="$modeword" value="$addmode">
<input type=hidden name=linkurl>
<input type=hidden name=linkname>
<input type=text name=err value="JS Error! Reload Page!" readonly usestyle nobackground border=0><p>
<input type=button value="Add Link" text=blue onClick="LinkBox()">
</form><br>

<form><input type=button text=blue value=Done onClick="history.go(-1);"></form>
</center>~;
 }
}


## BEGIN Edit/Delete Links
if ($FORM{$modeword} eq "$editmode") {
open(DATA,"$linkdata"); $rawdata = <DATA>; close(DATA); 
@data = split(/§/, $rawdata);  # Get saved links data and save to array


 if ($FORM{'action'} eq "") { # Main Edit/Delete page
print qq~
<title>Edit/Delete Links</title>
<table width=100%>~;
  $delnum = 0;
  foreach $i (sort @data) { ++$delnum; $delform = 'delform' . $delnum;
  ($name, $value) = split(/\|/,$i);  # split link array
print qq~
<tr><td width=70%>
<a href="$value" onMouseover="window.status = 'Go to: $value'" onMouseout="window.status = ''">$name</a></td>

<td width=15%>
<form action="$fullurl" method=get>
<input type=submit text=blue width=100 value=Edit>
<input type=hidden name="$modeword" value="$editmode">
<input type=hidden name=action value=edit>
<input type=hidden name=realurl value="$value">
<input type=hidden name=realname value="$name">
</form></td>

<td width=15%>
<form name="$delform" action="$fullurl" method=get>
<input type=button text=blue width=100 value=Delete onClick="doit = confirm('Are you sure you want to delete\\n\\n $name?\\n\\nPress OK for Yes and Cancel for No.');
 if (doit == true) { document.$delform.submit(); }">
<input type=hidden name="$modeword" value="$editmode">
<input type=hidden name=action value=delete>
<input type=hidden name=realurl value="$value">
<input type=hidden name=realname value="$name">
</form></td></tr>~;
  }
print qq~</table><p><center>$countloops $counttext<br>
  <form><input type=button text=blue value=Done onClick="history.go(-1);"></form>
  </center>~; 
 }


 if ($FORM{'action'} eq "edit") { $grab = 0;   # Edit Link Page
  foreach $i (@data) { ($name,$value) = split(/\|/,$i);    # split link array
   if ($FORM{'realname'} eq "$name" && $FORM{'realurl'} eq "$value") {
   $graburl = $value;    $grabname = $name; ++$grab;
   }
  } 

print qq~
<title>Edit Link</title>
<p>Change the existing URL/Name to a new URL and/or Name below.<p>
<form method=get>
URL:<br><input name=newurl value="$graburl" width=550><p>
Name:<br><input name=newname value="$grabname" width=550><p>
<input type=hidden name="$modeword" value=$editmode>
<input type=hidden name=action value=save>
<input type=hidden name=realurl value="$FORM{'realurl'}">
<input type=hidden name=realname value="$FORM{'realname'}">

<center><input type=submit text=blue value=Save>
<input type=reset text=blue value=Reset></form><br>
<form><input type=button text=blue value=Done onClick="history.go(-2);"></form>
</center>~;
 if ($grab > 1) { print "<p><b>You have an exact duplicate of this link! If you change this link the duplicate will also be changed.</b>"; }
 }



 if ($FORM{'action'} eq "save") { $grab = 0;  # Link Edited Page
  if ($FORM{'newurl'} && $FORM{'newname'}) {
  $FORM{'newurl'} =~ s/ //;  # dis-allow spaces in url
  open(EDIT,">$linkdata"); #Save edited link and the rest too

   foreach $i (@data) { ($tmpname,$tmpurl) = split(/\|/,$i);    # split link array
    if ($FORM{'realname'} eq "$tmpname" && $FORM{'realurl'} eq "$tmpurl") {
     print EDIT "$FORM{'newname'}|$FORM{'newurl'}§"; ++$grab; } 
    else { print EDIT "$tmpname|$tmpurl§";  } 
   }
  } 
  close(EDIT);

  if ($grab != 0) {
print qq~<title>Link Edited</title><center>
<a href="$FORM{'realurl'}">$FORM{'realname'}</a> was changed to 
<a href="$FORM{'newurl'}">$FORM{'newname'}</a><br>
<form><input type=button text=blue value=Done onClick="history.go(-3);"></form>
</center>~;
    if ($grab > 1) { print "<p><center>Duplicate Links found and changed!</center>"; }
  }
  else { print qq~<center>Nothing was Changed!<br>
  <form><input type=button text=blue value=Done onClick="history.go(-3);"></form>
  </center>~;}
 }


 if ($FORM{'action'} eq "delete") { $grab = 0;  # Link Deleted Page
 open(DEL,">$linkdata"); # delete selected link and save the rest

  foreach $i (@data) { ($tmpname,$tmpurl) = split(/\|/,$i);    # split link array
    if ($FORM{'realname'} eq $tmpname && $FORM{'realurl'} eq $tmpurl) {++$grab;}
    else { print DEL "$tmpname|$tmpurl§"; }
   }
  close(DEL);

  if ($grab != 0) { print qq~<title>Link Deleted</title><center>
Deleted <a href="$FORM{'realurl'}">$FORM{'realname'}</a>.<br>
<form><input type=button text=blue value=Done onClick="history.go(-2);"></form>
</center>~;
   if ($grab > 1) { print "<p><center>Duplicate Links found and deleted!";  }
  } 
  else { print qq~<center>Nothing was Deleted!<br>
  <form><input type=button text=blue value=Done onClick="history.go(-2);"></form>
  </center>~; }
 }
}

## WARNING: Edit Between the warning signs at your own risk
# Settings can be found at the top