#!/usr/bin/perl
##############################################################################
# Cliff's Free Links Script Version 2.14                                     #
# Copyright 1998 Shaven Ferret Productions                                   #
# Created 6/4/98            Last modified 1/5/2000                           #
# Available at http://www.shavenferret.com/scripts                           #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1998 Shaven Ferret Productions All Rights Reserved.              #
#                                                                            #
# This script can be used\modified free of charge as long as you don't       #
# change this header or any of the parts that give me credit for writing     #
# this.  If you really need to remove the return links, go to                #
# http://www.shavenferret.com/scripts/register.shtml                         #
# By using this script you agree to indemnify me from any liability           #
# that might arise from its use.  In simple English, if this script somehow  #
# makes your computer run amuck and kill the pope, it's not my fault.        #
#                                                                            #
# Redistributing\selling the code for this program without prior written     #
# consent is expressly forbidden.                                            #
##############################################################################

# Enter the PATH (not the URL) to the directory where you will keep the data
# files.  Do not include a trailing slash.
$datadir = "linkdata";

# Enter the PATH (not the URL) to the links page.
$linkspath = "/server/path/to/links.html";

# Enter the full URL of the links page.
$linksurl = "http://www.yourdomain.com/links.html";

# Enter the URL of the uploaded links.cgi file.
$scripturl = "/cgi-bin/links.cgi";

# Enter the path to your mail program.  
$mailprogram = "/usr/lib/sendmail";

##############################################################################
# Congratulations!  You've finished defining the variables.  If you want to, #
# you can continue screwing with the script, but it isn't necessary.         #
##############################################################################

unless(-e "$datadir/setup.txt") {
        open (DATA, ">$datadir/setup.txt");
        print DATA "#FFFFFF|#000000|#DD0000|#FF0000|#BB0000||shavenferret.com|No|No|138||My Free Links Page|||No|Yes|Yes|Yes|0\n";
        print DATA "Business|This section is for business web pages.\n";
        print DATA "Computers|This section is for pages that focus on computers.\n";
        print DATA "Education|This section is for pages that focus on education.\n";
        print DATA "Entertainment|This section is for pages that focus on entertainment.\n";
        print DATA "Government|This section is for pages that focus on government.\n";
        print DATA "Miscellaneous|This section is for pages that don't fit into any other catagory.\n";
        print DATA "Personal|This section is for personal web pages.\n";
        close(DATA);
}
unless(-e "$datadir/links.txt") {
        open (DATA, ">$datadir/links.txt");
        print DATA "clifftm\@shavenferret.com|Cliff's Perl Script Collection|http://www.shavenferret.com/scripts/|A bunch of free, and somewhat useful perl scripts.|Computers|0|01:05:78|09/18/79\n";
        print DATA "webmaster\@shavenferret.com|Shaven Ferret Productions|http://www.shavenferret.com/|Collection of tremendously violent animated gif movies|Entertainment|0|01:05:78|09/18/79\n";
        print DATA "clifftm\@shavenferret.com|The Sacred Brotherhood of Cliff|http://www.shavenferret.com/cliff/|Veritas, Decus, et Tantus Oryx|Miscellaneous|0|02:05:23|10/19/98\n";
        close(DATA);
}
{
        open (DATA, "$datadir/setup.txt");
        my @sects = <DATA>;
        close(DATA);
        chomp($sects[0]);
        ($bgcolor,$text,$link,$alink,$vlink,$background,$password,$tellthem,$oneemail,$maxlinks,$youremail,$pagetitle,$head,$foot,$lcase,$notify1,$notify2,$notify3,$tellhits) = split(/\|/, shift(@sects));
        foreach $sect(@sects) {
                chomp($sect);
                (my $x, my $y) = split(/\|/,$sect);
                push (@sectname,$x);
                push (@sectdesc,$y);
        }
}

if ($ENV{"REQUEST_METHOD"} eq 'GET') { $buffer = $ENV{'QUERY_STRING'}; }
else { 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;
        unless ($name eq "head" || $name eq "foot") {
                $value =~ s/<([^>]|\n)*>//g;
                $value =~ s/<//g;
                $value =~ s/>//g;
        }
        $value =~ s/\n/ /g;
        $FORM{$name} = $value;
}

unless ($FORM{'action'} eq "admin" || $FORM{'action'} eq "r") { &active; }
if ($FORM{'action'} eq "add_link") { &add_link; }
elsif ($FORM{'action'} eq "go") { &go; }
elsif ($FORM{'action'} eq "admin") { &admin; }
elsif ($FORM{'action'} eq "setup") { &setup; }
elsif ($FORM{'action'} eq "add_section") { &add_section; }
elsif ($FORM{'action'} eq "delete") { &delete; }
elsif ($FORM{'action'} eq "email") { &email; }
elsif ($FORM{'action'} eq "lockout") { &lockout; }
elsif ($FORM{'action'} eq "unlockout") { &unlockout; }
elsif ($FORM{'action'} eq "remove_section") { &remove_section; }
elsif ($FORM{'action'} eq "search") { &search; }
elsif ($FORM{'action'} eq "random") { &random; }
elsif ($FORM{'action'} eq "showdelete") { &showdelete; }
elsif ($FORM{'action'} eq "r") { &r; }

sub add_link {
        print "Content-type: text/html\n\n";
        $temp = $FORM{'email'};
        $temp =~ s/-/a/g;
        $temp =~ s/_/a/g;
        unless ($temp =~ /\w+@\w+\.\w\w+/) {
                print "<html><head><title>Bad E-Mail Address</title></head>\n";
                &body("STDOUT");
                print "<h1>Bad e-mail address</h1>I'm sorry, but the e-mail\n";
                print "address $FORM{'email'} appears to be invalid.  Please\n";
                print "click <a href=\"$linksurl\">back</a> and try again.</body></html>\n";
                exit;
        }
        unless ($FORM{'url'} =~ /^(f|ht)tp:\/\/.+\..+/) {
                print "<html><head><title>Bad URL</title></head>\n";
                &body("STDOUT");
                print "<h1>Bad URL</h1>\n";
                print "I'm sorry, but the URL <a href=\"$FORM{'url'}\">\n";
                print "$FORM{'url'}</a> appears to be invalid.  Please click\n";
                print "<a href=\"$linksurl\">back</a> and try again.</body></html>\n";
                exit;
        }
        open (FILE,"$datadir/lockout.txt");
        @lockout = <FILE>;
        close(FILE);
        foreach $lock(@lockout) {
                chomp($lock);
                $lock =~ tr/A-Z/a-z/;
                @temp = ($FORM{'email'},$FORM{'url'},$FORM{'title'},$FORM{'description'});
                for ($i = 0; $i <= 3; $i++) { 
                        $temp[$i] =~ tr/A-Z/a-z/;
                        if ($temp[$i] =~ /$lock/) {
                                print "<html><head><title>Sorry, but that has been locked out.</title></head>\n";
                                &body("STDOUT");
                                print "<h1>Locked out</h1>\n";
                                print "I'm sorry, but your link contains text that I have locked out.\n";
                                if ($tellthem eq "Yes") { print "The specific text was <i>$lock</i>\n"; }
                                print "</body></html>\n";
                                exit;
                        }
                }
        }
        &readlinks;
        $i = 0;
        foreach $section(@sectname) {
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                $START{$section} = $i;
                while ($section eq $sect) {
                        if ($FORM{'email'} eq $email && $oneemail eq "Yes") {
                                print "<html><head><title>You are limited to one link per e-mail address.</title></head>\n";
                                &body("STDOUT");
                                print "<h1>One link per e-mail address</h1>I'm sorry,\n";
                                print "but I already have a link that was submitted by\n";
                                print "<a href=\"mailto:$email\">$email</a>.  The title\n";
                                print "of the link is <a href=\"$scripturl?action=go&link=$i\">$title</a>, and it\n";
                                print "is described as <i>$desc</i> in my $FORM{'section'} section.\n";
                                print "</body></html>\n";
                                exit;
                        }
                        if ($FORM{'url'} eq $url) {
                                print "<html><head><title>URL already listed</title></head>\n";
                                &body("STDOUT");
                                print "<h1>URL already listed</h1>I'm sorry, but your URL\n";
                                print "is already listed as <a href=\"$scripturl?action=go&link=$j\">$title</a> in\n";
                                print "my $sectname[$i] section.  It is described as $desc.</body></html>\n";
                                exit;
                        }
                        $i++;
                        ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                }
                $STOP{$section} = $i;
        }
        &gettime;
        if ($lcase eq "Yes") {
                $FORM{'title'} =~ tr/A-Z/a-z/;
                $FORM{'description'} =~ tr/A-Z/a-z/;
        }
        splice(@links,$START{$FORM{'section'}},0,"$FORM{'email'}|$FORM{'title'}|$FORM{'url'}|$FORM{'description'}|$FORM{'section'}|0|$time|$date\n");
        if ($maxlinks > 0) {
                while($STOP{$FORM{'section'}} - $START{$FORM{'section'}} >= $maxlinks) {
                        ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$STOP{$FORM{'section'}}]);
                        splice(@links,$STOP{$FORM{'section'}},1);
                        if ($notify2 eq "Yes") {
                                open(MAIL,"|$mailprogram -t");                                
                                print MAIL "To: $email\n";
                                print MAIL "From: $youremail\n";
                                print MAIL "Subject: Your link has expired.\n";
                                print MAIL "Unfortunately, I have the number of links\n";
                                print MAIL "per section limited to $maxlinks, and on $date\n";
                                print MAIL "at $time your link was rotated out.  If you'd\n";
                                print MAIL "like to come back and add your link again, please\n";
                                print MAIL "go to $linksurl.  Your link used to be:";
                                &desclink;
                                if ($hits > $tellhits || $tellhits == 0) {
                                        print MAIL "While your page was listed, you received\n";
                                        print MAIL "$hits hit(s).\n";
                                }
                                print MAIL "Thanks for your time!\n\n";
                                &emailsig;
                        }
                        $STOP{$FORM{'section'}}--;
                }


        }
        &writelinks;
        &makepage;
        if ($notify1 eq "Yes") {
                open(MAIL,"|$mailprogram -t");                                
                print MAIL "To: $FORM{'email'}\n";
                print MAIL "From: $youremail\n";
                print MAIL "Subject: Your link has been added.\n";
                print MAIL "Your URL, $FORM{'url'}, has been\n";
                print MAIL "successfully added to my links page at\n";
                print MAIL "$linksurl.  It is listed as:";
                print MAIL "\n\nTitle: $FORM{'title'}\n";
                print MAIL "URL: $FORM{'url'}\n";
                print MAIL "Description: $FORM{'description'}\n";
                print MAIL "Section: $FORM{'section'}\n";
                print MAIL "Time added: $time\n";
                print MAIL "Date added: $date\n\n";
                if ($maxlinks > 0) {
                        print MAIL "I have limited the number of links per\n";
                        print MAIL "section to $maxlinks.  Once this number\n";
                        print MAIL "is reached, your link will be automatically\n";
                        print MAIL "removed.";
                        if ($notify2 eq "Yes") {
                                print MAIL "  You will be notified by e-mail\n";
                                print MAIL "when this happens.";
                        }
                }
                print MAIL "\n\n";
                open (FILE,"$datadir/email.txt");
                @lines = <FILE>;
                close(FILE);
                foreach $line(@lines) { print MAIL "$line"; }
                print MAIL "\n";
                &emailsig;
        }                
        print "<html><head><title>Link Added</title></head>\n";
        &body("STDOUT");
        print "<h1>Link Added</h1>Your link has been added to my page.\n";
        print "Please click <a href=\"$linksurl\">back</a>.</body></html>\n";        
        exit;
}

sub body {
        $which = shift(@_);
        print $which "\n<body bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" alink=\"$alink\" vlink=\"$vlink\"";
        if ($background) { print $which " background=\"$background\""; }
        print $which ">\n";
}

sub makepage {
        open (FILE,">$linkspath");
        print FILE "<html><head><title>$pagetitle</title></head>\n";
        &body("FILE");
        print FILE "$head\n";
        print FILE "<form method=\"POST\" action=\"$scripturl\">\n";
        print FILE "<input type=\"hidden\" name=\"action\" value=\"add_link\">\n";
        print FILE "<center><table width=\"500\" border=\"5\"><tr><td>\n";
        print FILE "<center><h2>Add Your Link</h2></center>\n";
        print FILE "<table cols=\"2\"><tr><td align=\"right\">Your e-mail address:</td><td>\n";
        print FILE "<input type=\"text\" name=\"email\"></td></tr><tr>\n";
        print FILE "<td align=\"right\">Your page's URL:</td><td>\n";
        print FILE "<input type=\"text\" name=\"url\" value=\"http://\"></td></tr>\n";
        print FILE "<tr><td align=\"right\">Your page's title:</td><td>\n";
        print FILE "<input type=\"text\" name=\"title\" maxlength=\"77\"></td></tr><tr>\n";
        print FILE "<td align=\"right\">Your page's description:</td><td>\n";
        print FILE "<input type=\"text\" name=\"description\" maxlength=\"213\"></td></tr>\n";
        if ($#sectname > 0) {
                print FILE "<tr><td align=\"right\">Please pick a section:</td><td>\n";
                print FILE "<select name=\"section\">\n";
                foreach $sect(@sectname) { print FILE "<option value=\"$sect\">$sect\n"; }
                print FILE "</select></td></tr>\n";                
        }
        else { print FILE "<input type=\"hidden\" name=\"section\" value=\"$sectname[0]\">\n"; }
        print FILE "<tr><td align=\"right\"><input type=\"submit\" value=\" Add My Page \">\n";
        print FILE "</td><td><input type=\"reset\"></td></tr>\n";
        print FILE "</table></td></tr></table></form>\n";
        
        print FILE "<form method=\"POST\" action=\"$scripturl\">\n";
        print FILE "<table width=\"500\" border=\"5\"><tr><td><center><h2>\n";
        print FILE "Search this page\\Go to a random link</h2></center>\n";
        print FILE "<table cols=\"2\"><tr><td valign=\"top\" align=\"right\">What do you\n";
        print FILE "want to do?</td><td><input type=\"radio\" name=\"action\" ";
        print FILE "value=\"random\" CHECKED>Go to a random link<br>\n";
        print FILE "<input type=\"radio\" name=\"action\" value=\"search\">Search for:\n";
        print FILE "<input type=\"text\" name=\"search\" size=\"10\"></td></tr>\n";
        if ($#sectname > 0) {
                print FILE "<tr><td align=\"right\" valign=\"top\">What sections are\n";
                print FILE "you interested in?</td></td><td>\n";
                foreach $sect(@sectname) {            
                        print FILE "<input type=\"checkbox\" name=\"$sect\" ";
                        print FILE "value=\"-1\" CHECKED>$sect<br>\n";
                }
                print FILE "</td></tr>\n";                
        }
        else { print FILE "<input type=\"hidden\" name=\"$sectname[0]\" value=\"-1\">\n"; }
        print FILE "<tr><td align=\"right\"><input type=\"submit\" value=\" Do it! \">\n";
        print FILE "</td><td><input type=\"reset\"></td></tr>\n";
        print FILE "</table></td></tr></table></form>\n";
        if ($#sectname > 0) {
                print FILE "<p>[ ";
                foreach $sect(@sectname) {
                        print FILE "<a href=\"#$sect\">$sect</a>";
                        unless ($sect eq $sectname[$#sectname]) { print FILE " | "; }
                }
                print FILE " ]<p>\n";
        }
        if ($maxlinks > 0) {
                $temp = $#sectname + 1;
                if ($#sectname > 0) { print FILE "<b>Each of the <i>$temp</i> sections"; }
                else { print FILE "<b>This page"; }
                print FILE " can hold up to <i>$maxlinks</i> links</b><br>\n";
        }
        &gettime;
        print FILE "<b>Last link added on <i>$date</i> at <i>$time</i></b><br>\n";
        $temp = $#links + 1;
        print FILE "<b>There are <i>$temp</i> links on this page</b>\n";
        &sig("FILE");
        $j = 0;
        for ($i = 0; $i <= $#sectname; $i++) {
                print FILE "<p><a name=\"$sectname[$i]\">\n";
                print FILE "<table border=\"5\"><tr><td>\n";
                print FILE "<table width=\"580\" cols=\"2\"><tr>\n";
                print FILE "<td width=\"125\"><font size=\"+1\"><b>$sectname[$i]</b></font></td>\n";
                print FILE "<td width=\"445\"><font size=\"+1\"><i>$sectdesc[$i]</i></font></td>\n";
                print FILE "</tr></table><table cols=\"3\" border=\"1\" cellspacing=\"5\"><tr>\n";
                print FILE "<td width=\"140\"><center><b>Title</b></center></td>\n";
                print FILE "<td width=\"300\"><center><b>Description</b></center></td>\n";
                print FILE "<td width=\"110\"><center><b>Added</b></center></td></tr>\n";
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$j]);
                while ($sect eq $sectname[$i]) {
                        print FILE "<tr><td width=\"140\"><i><a target=\"new_window_$j\" href=\"$scripturl?action=go&link=$j\">";
                        print FILE "$title</a></td><td width=\"300\"><i>$desc";
                        print FILE "</i></td><td width=\"110\"><i><font size=\"-1\">$atime $adate</font>";
                        print FILE "</i></td></tr>\n";
                        $j++;
                        ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$j]);
                }
                print FILE "</table></td></tr></table>\n";
                print FILE "</a><p>\n";
        }
        &sig("FILE");
        print FILE "$foot\n";
        print FILE "<h2>Administration</h2><form method=\"POST\" action=\"$scripturl\">\n";
        print FILE "Password:<input type=\"password\" name=\"password\"><br>\n";
        print FILE "<input type=\"submit\"><input type=\"hidden\" name=\"action\"";
        print FILE " value=\"admin\"></form></body></html>\n";
        close(FILE);
}

sub gettime {
        ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
        $mon++;
        $year += 1900;
        if ($sec < 10) { $sec = "0$sec"; }
        if ($min < 10) { $min = "0$min"; }
        if ($hour < 10) { $hour = "0$hour"; }
        if ($mday < 10) { $mday = "0$mday"; }
        $date = "$mon/$mday/$year";
        $time = "$hour:$min:$sec";
}

sub emailsig {
        # Please DON'T screw with this sub, or any place where it is called.
        print MAIL "\n****************************************************\n";
        print MAIL "*       I'm using Cliff's Free Links Script.       *\n";
        print MAIL "* This FREE script is easy to manage, and has many *\n";
        print MAIL "*  useful features.  If you'd like to use it too,  *\n";
        print MAIL "* go to http://www.shavenferret.com/scripts/links/ *\n";
        print MAIL "****************************************************\n";
        close(MAIL);                
}

sub go {
        &readlinks;
        ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$FORM{'link'}]);
        $hits++;
        $links[$FORM{'link'}] = "$email|$title|$url|$desc|$sect|$hits|$atime|$adate";
        &writelinks;
        print "Location: $url\n\n";
}

sub admin {       
        &checkpassword;
        print "<html><head><title>Administration</title></head>\n";
        &body(STDOUT);        
        unless(-e "$datadir/active.txt") {
                print "<form method=\"POST\" action=\"http://www.shavenferret.com/cgi-bin/activate.cgi\">\n";
                print "<input type=\"hidden\" name=\"script\" value=\"links\">\n";
                print "<input type=\"hidden\" name=\"version\" value=\"2.13\">\n";
                print "<center>Hello.  I am trying to keep track of how many people\n";
                print "are using this script.  Please click the button below to let\n";
                print "me know that you are using it.  After you do this, you will be\n";
                print "able to access the real admin page.\n";
                print "<br><input type=\"submit\" value=\" Click Me! \">\n";
                print "</form></body></html>\n";
                exit;
        }
	print "<center><a href=\"http://www.cgi-resources.com/rate?02077\">Rate this Script @ The CGI Resource Index</a></center>\n";
        print "<h1>Administration</h1>\n";
        print "<center><form method=\"POST\" action=\"http://www.shavenferret.com/cgi-bin/list/subscribe.cgi\"> \n";
        print "<input type=\"hidden\" name=\"action\" value=\"subscribe\"> \n";
        print "<input type=\"hidden\" name=\"6\" value=\"-1\"> \n";
        print "<table width=\"300\" bgcolor=\"#FF0000\" border=\"3\">\n";
        print "<tr><td><center><font color=\"#000000\"><b>Want to be notified whenever I release a new version of this script?\n";
        print "</b><br><b>Your e-mail:</b><input type=\"text\" name=\"email\" value=\"$youremail\"><br><input type=\"submit\" value=\" Subscribe me! \">\n";
        print "</font></center></td></tr></table></form></center>\n";
        &readlinks;
        if (@links) {
                print "<h2>Delete a link</h2><form method=\"POST\">\n";
                print "To keep this page from getting to big, this feature\n";
                print "has been moved to its own page.  To go there, click\n";
                print "<input type=\"hidden\" name=\"action\" value=\"showdelete\">\n";
                print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
                print "<input type=\"submit\" value=\" this button \">.</form>\n";
                print "<center><hr width=\"400\"></center>\n";
        }
        $i = 0;
        $thits = 0;
        $ex[3] = -1;
        foreach $link(@links) {
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$link);
                $thits += $hits;
                if ($hits > $ex[0]) { $ex[0] = $hits; $ex[1] = $title; $ex[2] = $i; }
                if ($hits < $ex[3] || $ex[3] == -1) { $ex[3] = $hits; $ex[4] = $title; $ex[5] = $i; }
                $i++;
        }
        print "<h2>Stats</h2><ul>\n";
        print "<li>Total outgoing hits: $thits\n";
        $ex[6] = $#links + 1;
        print "<li>Total links: $ex[6]\n";
        if ($ex[6] != 0) { $av = $thits / $ex[6]; }
        print "<li>Average hits per page: $av\n";
        print "<li>Page receiving most hits: <a href=\"$scripturl?action=go&link=$ex[2]\">$ex[1]</a> ($ex[0] hits)\n";
        print "<li>Page receiving least hits: <a href=\"$scripturl?action=go&link=$ex[5]\">$ex[4]</a> ($ex[3] hits)\n";
        
        print "</ul></center><h2>Lock out text</h2><form method=\"POST\">\n";
        print "<input type=\"hidden\" name=\"action\" value=\"lockout\">\n";
        print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
        print "<center><table width=\"580\" border=\"5\"><tr><td><table cols=\"2\">\n";
        print "<tr><td align=\"right\">Text to lock out:</td><td>\n";
        print "<input type=\"text\" name=\"lockout\"></td></tr><tr><td align=\"right\">\n";
        print "Should I e-mail webmasters whose links are removed?</td><td>\n";
        print "<select name=\"email\"><option selected value=\"0\">No\n";
        print "<option value=\"1\">Yes, don't tell the offending text\n";
        print "<option value=\"2\">Yes, give the offending text\n";
        print "</select></td></tr><tr><td align=\"right\">\n";
        print "<input type=\"submit\" value=\" Lock out \"></td><td>\n";
        print "<input type=\"reset\"></td></tr></table></td></tr></table></form>\n";
        print "<hr width=\"400\"></center><h2>Un-lock out text</h2><center>\n";
        print "<form method=\"POST\">\n";
        print "<input type=\"hidden\" name=\"action\" value=\"unlockout\">\n";
        print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
        print "<table width=\"500\" border=\"5\"><tr><td><table cols=\"2\">\n";
        open (FILE,"$datadir/lockout.txt");
        @lockout = <FILE>;
        close(FILE);
        for($i = 0; $i <= $#lockout; $i++) {
                print "<tr><td width=\"10\"><input type=\"checkbox\" name=\"$i\" value=\"-1\">";
                print "</td><td width=\"480\">$lockout[$i]</td></tr>\n";
        }
        print "</table><center><input type=\"submit\" value=\" Un-lock out \">\n";
        print "<input type=\"reset\"></td></tr></table></form><hr width=\"400\">\n";
        if ($#sectname > 0) {
                print "</center><h2>Remove a section</h2><form method=\"POST\">\n";
                print "<input type=\"hidden\" name=\"action\" value=\"remove_section\">\n";
                print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
                print "<center><table width=\"500\" border=\"5\"><tr><td><table cols=\"2\">\n";
                print "<tr><td align=\"right\">What section do you want to remove?</td><td><select name=\"kill\">\n";
                foreach $sect(@sectname) { print "<option value=\"$sect\">$sect\n"; }
                print "</select></td></tr><tr><td align=\"right\">What should I do with\n";
                print "the links in that section?</td><td><select name=\"do\"><option selected value=\"delete\">Delete them\n";
                foreach $sect(@sectname) { print "<option value=\"$sect\">Move them to $sect\n"; }
                print "</select></td></tr><tr><td align=\"right\">Should I e-mail the people\n";
                print "who have links in the section you are removing to let them know what\n";
                print "is going on?</td><td><select name=\"email\"><option selected>No\n";
                print "<option>Yes</select></td></tr><tr><td align=\"right\"><input type=\"submit\" value=\" Delete \">\n";
                print "</td><td><input type=\"reset\"></td></tr></table></td></tr></table></form><hr width=\"400\">\n";
        }
        print "</center><h2>Add a section</h2><form method=\"POST\">\n";
        print "<input type=\"hidden\" name=\"action\" value=\"add_section\">\n";
        print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
        print "<center><table width=\"500\" border=\"5\"><tr><td><table cols=\"2\">\n";
        print "<tr><td align=\"right\">Name:</td><td><input type=\"text\" name=\"name\">\n";
        print "</td></tr><tr><td align=\"right\">Description:</td><td>\n";
        print "<input type=\"text\" name=\"description\" value=\"This section is for\"></td></tr><tr><td align=\"right\">\n";
        print "<input type=\"submit\" value=\" Add Section \"></td><td><input type=\"reset\">\n";
        print "</td></tr></table></td></tr></table></form><hr width=\"400\">\n";
        print "</center><h2>E-mail confirmation</h2><form method=\"POST\">\n";
        print "<input type=\"hidden\" name=\"action\" value=\"email\">\n";
        print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
        print "When the script e-mails someone after their link is added, it will\n";
        print "first tell them the basic information about their link, then if it will ever be\n";
        print "rotated out, and then if they will be e-mailed when it is rotated out.\n";
        print "After that, it will send whatever you put in the text area below.\n";
        print "You might want to put a short description of your page, or request\n";
        print "a link exchange (if you want a link exchange script, go <a href=\"http://www.shavenferret.com/scripts/linkt\">\n";
        print "here</a>)<center><textarea name=\"email\" rows=\"5\" cols=\"40\" wrap=\"soft\">\n";
        open (FILE,"$datadir/email.txt");
        @lines = <FILE>;
        close(FILE);
        foreach $line(@lines) { print "$line"; }
        print "</textarea>\n";
        print "<br><input type=\"submit\" value=\" Update e-mail message \"><input type=\"reset\"></form>\n";
        print "</center><h2>Setup</h2><center>\n";
        print "<form method=\"POST\">\n";
        print "<input type=\"hidden\" name=\"action\" value=\"setup\">\n";
        print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
        print "<table width=\"580\" border=\"5\"><tr><td>\n";
        print "<table cols=\"2\" cellpadding=\"1\"><tr><td align=\"right\">1) Background color:</td>\n";
        print "<td><input type=\"text\" name=\"bgcolor\" value=\"$bgcolor\" size=\"7\"></td></tr>\n";
        print "<tr><td align=\"right\">2) Text color:</td><td>\n";
        print "<input type=\"text\" name=\"text\" value=\"$text\" size=\"7\"></td></tr>\n";
        print "<tr><td align=\"right\">3) Link color:</td><td>\n";
        print "<input type=\"text\" name=\"link\" value=\"$link\" size=\"7\"></td></tr>\n";
        print "<tr><td align=\"right\">4) Active link color:</td><td>\n";
        print "<input type=\"text\" name=\"alink\" value=\"$alink\" size=\"7\"></td></tr>\n";
        print "<tr><td align=\"right\">5) Visited link color:</td><td>\n";
        print "<input type=\"text\" name=\"vlink\" value=\"$vlink\" size=\"7\"></td></tr>\n";
        print "<tr><td align=\"right\">6) URL of background image:</td><td>\n";
        print "<input type=\"text\" name=\"background\" value=\"$background\"></td></tr>\n";
        print "<tr><td align=\"right\">7) Administrative password:</td><td>\n";
        print "<input type=\"text\" name=\"pw\" value=\"$FORM{'password'}\"></td></tr>\n";
        print "<tr><td align=\"right\">8) When someone tries to add a link that contains locked-";
        print "out text, should I tell them what that text was?</td><td>\n";
        print "<select name=\"tellthem\"><option value=\"Yes\"";
        if ($tellthem eq "Yes") { print " selected>Yes<option value=\"No\">No"; }
        else { print ">Yes<option value=\"No\" selected>No"; }
        print "</select></td></tr><tr><td align=\"right\">9) Should I limit people\n";
        print "to one link per e-mail address?</td><td>\n";
        print "<select name=\"oneemail\"><option value=\"Yes\"";
        if ($oneemail eq "Yes") { print " selected>Yes<option value=\"No\">No"; }
        else { print ">Yes<option value=\"No\" selected>No"; }
        print "</select></td></tr><tr><td align=\"right\">10) What is the maximum\n";
        print "number of links you want per section?<br><i>Enter 0 to keep them all</i>\n";
        print "</td><td><input type=\"text\" name=\"maxlinks\" value=\"$maxlinks\" size=\"3\">\n";
        print "</td></tr><tr><td align=\"right\">11) What is your e-mail address?</td>\n";
        print "<td><input type=\"text\" name=\"youremail\" value=\"$youremail\"></td></tr>\n";
        print "<tr><td align=\"right\">12) What is the title for your free links page?</td><td>\n";
        print "<input type=\"text\" name=\"pagetitle\" value=\"$pagetitle\"></td></tr>\n";
        print "<tr><td align=\"right\">13) If you'd like anything displayed at the top of the page,\n";
        print "enter the HTML here:</td><td><textarea name=\"head\" cols=\"20\" rows=\"2\" wrap=\"soft\">$head</textarea>\n";
        print "</td></tr><tr><td align=\"right\">14) If you'd like anything displayed below\n";
        print "the links, enter the HTML here:</td><td><textarea name=\"foot\" cols=\"20\" rows=\"2\" wrap=\"soft\">$foot</textarea>\n";
        print "</td></tr><tr><td align=\"right\">15) Would you like me to convert all titles and\n";
        print "descriptions to lower case?</td><td>\n";
        print "<select name=\"lcase\"><option value=\"Yes\"";
        if ($lcase eq "Yes") { print " selected>Yes<option value=\"No\">No"; }
        else { print ">Yes<option value=\"No\" selected>No"; }
        print "</select></td></tr><tr><td align=\"right\">17) Do you want the script to e-mail\n";
        print "webmasters when their link is added?</td><td><select name=\"notify1\">\n";
        print "<option value=\"Yes\"";
        if ($notify1 eq "Yes") { print " selected>Yes<option value=\"No\">No"; }
        else { print ">Yes<option value=\"No\" selected>No"; }
        print "</select></td></tr><tr><td align=\"right\">18) Do you want the script to e-mail\n";
        print "webmasters when their link is removed?</td><td><select name=\"notify2\">\n";
        print "<option value=\"Yes\"";
        if ($notify2 eq "Yes") { print " selected>Yes<option value=\"No\">No"; }
        else { print ">Yes<option value=\"No\" selected>No"; }
        print "</select></td></tr><tr><td align=\"right\">19) Do you want the script to e-mail\n";
        print "you when someone tries to guess your password?</td><td><select name=\"notify3\">\n";
        print "<option value=\"Yes\"";
        if ($notify3 eq "Yes") { print " selected>Yes<option value=\"No\">No"; }
        else { print ">Yes<option value=\"No\" selected>No"; }
        print "</select></td></tr><tr><td align=\"right\">20) Do you want the script\n";
        print "to tell webmasters how many hits their page received when their\n";
        print "link is rotated out?<br><i>ignore this if you answered no for question 18</i></td>\n";
        print "<td><input type=\"radio\" name=\"tellhits\" value=\"-1\"";
        if ($tellhits == -1) { print "checked>No<br><input type=\"radio\" name=\"tellhits\" value=\"0\">\n"; }
        else { print ">No<br><input type=\"radio\" name=\"tellhits\" value=\"0\" checked>\n"; }
        print "Yes, but only if the page receives more than <input type=\"text\"";
        print " name=\"th\" value=\"$tellhits\" size=\"3\">hits</td></tr>\n";
        print "<tr><td align=\"right\"><input type=\"submit\" value=\" Update Setup \">\n";
        print "</td><td><input type=\"reset\">\n";
        print "</table></tr></tr></table></form></body></html>\n";
        exit;
}

sub checkpassword {
        print "Content-type: text/html\n\n";
        if ($FORM{'password'} eq "") {
                print "<html><head><title>You need a password for that!</title></head>\n";
                &body("STDOUT");
                print "I'm sorry, but you need the password to do that.</body></html>\n";
                exit;
        }
        elsif ($FORM{'password'} ne $password) {
                if (($ENV{'REMOTE_HOST'} eq $ENV{'REMOTE_ADDR'}) && ($ENV{'REMOTE_ADDR'} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/)) {
                        $Address = pack('C4', $1, $2, $3, $4);
                        $DNS_Address = (gethostbyaddr($Address, 2))[0];
                        $ENV{'REMOTE_HOST'} = $DNS_Address if $DNS_Address;
                }
                print "<html><head><title>Bad password</title></head>\n";
                &body("STDOUT");
                print "<h1>Bad Password</h1><br>\n";
                print "The password you entered, $FORM{'password'}, is incorrect.\n";
                if ($notify3 eq "Yes" && $youremail) {
                        print "The following information has been mailed to the owner of\n";
                        print "this Free Links page.<ul>\n";
                        &gettime;
                        print "<li>Date/Time: $date $time\n";
                        print "<li>Domain: $ENV{'REMOTE_HOST'}\n";
                        print "<li>IP Address: $ENV{'REMOTE_ADDR'}";
                        print "<li>Password: $FORM{'password'}\n";
                        print "</ul></body></html>\n";
                        open (MAIL,"|$mailprogram -t");
                        print MAIL "To: $youremail\n";
                        print MAIL "From: hell.if\@i.know\n";
                        print MAIL "Subject: Attempted hack\n\n";
                        print MAIL "Someone has tried to guess your password for your\n";
                        print MAIL "Free Links page!  The following information was logged:\n";
                        print MAIL "* Date/Time: $date $time\n";
                        print MAIL "* Domain: $ENV{'REMOTE_HOST'}\n";
                        print MAIL "* IP Address: $ENV{'REMOTE_ADDR'}\n";
                        print MAIL "* Password: $FORM{'password'}\n";
                        close (MAIL);
                }
                exit;
        }
}

sub setup {
        &checkpassword;
        open (DATA, ">$datadir/setup.txt");
        if ($FORM{'tellhits'} == 0) { $FORM{'tellhits'} = $FORM{'th'}; }
        $temp = "$FORM{'bgcolor'}|$FORM{'text'}|$FORM{'link'}|$FORM{'alink'}|$FORM{'vlink'}|$FORM{'background'}|$FORM{'pw'}|$FORM{'tellthem'}|$FORM{'oneemail'}|$FORM{'maxlinks'}|$FORM{'youremail'}|$FORM{'pagetitle'}|$FORM{'head'}|$FORM{'foot'}|$FORM{'lcase'}|$FORM{'notify1'}|$FORM{'notify2'}|$FORM{'notify3'}|$FORM{'tellhits'}\n";
        print DATA "$temp";
        for ($i = 0; $i <= $#sectname; $i++) { print DATA "$sectname[$i]|$sectdesc[$i]\n"; }
        close(DATA);
        ($bgcolor,$text,$link,$alink,$vlink,$background,$password,$tellthem,$oneemail,$maxlinks,$youremail,$pagetitle,$head,$foot,$lcase,$notify1,$notify2,$notify3,$tellhits) = split(/\|/, $temp);
        &readlinks;
        &makepage;
        print "<html><head><title>Setup changed</title></head>\n";
        &body("STDOUT");
        print "<h1>Setup changed</h1>The setup has been changed.\n";
        &goback($FORM{'pw'});
}

sub goback {
        $pw = shift(@_);
        print "Click<form method=\"POST\"><input type=\"hidden\" name=\"action\" value=\"admin\">\n";
        print "<input type=\"hidden\" name=\"password\" value=\"$pw\">\n";
        print "<input type=\"submit\" value=\" this button \"></form> to go back.\n";
        print "</body></html>\n";
        exit;
}

sub add_section {
        &checkpassword;
        push(@sectname,"$FORM{'name'}");
        push(@sectdesc,"$FORM{'description'}");
        open (DATA, ">$datadir/setup.txt");
        print DATA "$bgcolor|$text|$link|$alink|$vlink|$background|$password|$tellthem|$oneemail|$maxlinks|$youremail|$pagetitle|$head|$foot|$lcase|$notify1|$notify2|$notify3|$tellhits\n";
        for ($i = 0; $i <= $#sectname; $i++) { print DATA "$sectname[$i]|$sectdesc[$i]\n"; }
        close(DATA);
        &readlinks;
        &makepage;
        print "<html><head><title>Section Added</title></head>\n";
        &body("STDOUT");
        print "<h1>Section Added</h1>The section has been added.\n";
        &goback($FORM{'password'});
}

sub delete {
        &checkpassword;
        &readlinks;
        for ($i = $#links; $i >= 0; $i--) {
                if ($FORM{$i} eq "delete") {
                        if ($FORM{'email'} eq "Yes") {
                                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                                open(MAIL,"|$mailprogram -t");
                                print MAIL "To: $email\n";
                                print MAIL "From: $youremail\n";
                                print MAIL "Subject: Your link has been removed.\n";
                                print MAIL "Hello.  This is to let you know that your link has been\n";
                                print MAIL "removed from my free links page at $linksurl\n";
                                if ($FORM{'why'} eq "something else.") { $FORM{'why'} = $FORM{'other'}; }
                                print MAIL "$FORM{'why'}\n\n";
                                print MAIL "Your link was:";
                                &desclink;
                                &emailsig;
                        }
                        splice(@links,$i,1);
                }
        }
        &writelinks;
        &makepage;
        print "<html><head><title>Deleted</title></head>\n";
        &body("STDOUT");
        print "<h1>Deleted</h1>All checked off links have been deleted.\n";
        &goback($FORM{'password'});
}

sub desclink {
        print MAIL "\n\nTitle: $title\n";
        print MAIL "URL: $url\n";
        print MAIL "Description: $desc\n";
        print MAIL "Section: $sect\n";
        print MAIL "Time added: $atime\n";
        print MAIL "Date added: $adate\n";
}

sub email {
        &checkpassword;
        open (FILE,">$datadir/email.txt");
        print FILE "$FORM{'email'}\n";
        close(FILE);
        print "<html><head><title>E-mail Confirmation Changed.</title></head>\n";
        &body("STDOUT");
        print "The following will go out in confirmation e-mails:\n";
        print "<center><table width=\"400\" border=\"5\"><tr><td><pre>\n";
        print "$FORM{'email'}</pre></td></tr></table></center>\n";
        &goback($FORM{'password'});
}

sub sig {
        # Please DON'T screw with this sub, or any place where it is called.
        $which = shift(@_);
        print $which "<center><hr width=\"70%\">Free Links script by <a href=\"ht";
        print $which "tp://www.shavenferret.com/cliff/\" target=\"new\">Cliff(tm)</a>, <a ";
        print $which "href=\"http://www.shavenferret.com\" target=\"new\">Shaven ";
        print $which "Ferret Productions</a>, and can be found at <a href=\"http:";
        print $which "//www.shavenferret.com/scripts\" target=\"new\">http://www.";
        print $which "shavenferret.com/scripts</a>.<hr width=\"70%\"></center>\n";
}

sub lockout {
        &checkpassword;
        open (FILE,">>$datadir/lockout.txt");
        print FILE "$FORM{'lockout'}\n";
        close(FILE);
        &readlinks;
        for ($i = $#links; $i >= 0; $i--) {
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                $FORM{'lockout'} =~ tr/A-Z/a-z/;
                @temp = ($title,$desc,$email,$url);
                for ($j = 0; $j <= 3; $j++) {
                        $temp[$j] =~ tr/A-Z/a-z/;
                        if ($temp[$j] =~ /$FORM{'lockout'}/) {
                                splice (@links,$i,1);
                                if ($FORM{'email'} > 0) {
                                        open(MAIL,"|$mailprogram -t");
                                        print MAIL "To: $email\n";
                                        print MAIL "From: $youremail\n";
                                        print MAIL "Subject: Your link has been removed.\n";
                                        print MAIL "Hello.  Your link:";
                                        &desclink;
                                        print MAIL "has been removed from my links page at\n";
                                        print MAIL "$linksurl because\n";
                                        print MAIL "the title, description, or URL contained";
                                        print MAIL " text that I have locked out.";
                                        if ($FORM{'email'} == 2) { print MAIL "  That\ntext was $FORM{'lockout'}\n"; }
                                        &emailsig;                                                                
                                }
                        }
                }
        }
        &writelinks;
        &makepage;
        print "<html><head><title>Locked out</title></head>\n";
        &body("STDOUT");
        print "<h1>Locked Out</h1>The text has been locked out, and all\n";
        print "pages containing it have been removed.\n";
        &goback($FORM{'password'});
}

sub unlockout {
        &checkpassword;
        open (FILE,"$datadir/lockout.txt");
        @locks = <FILE>;
        close(FILE);
        for ($i = $#locks; $i >= 0; $i--) { if ($FORM{$i} == -1) { splice(@locks,$i,1); } }
        open (FILE,">$datadir/lockout.txt");
        foreach $lock(@locks) { print FILE "$lock"; }
        close(FILE);
        print "<html><head><title>Un-Locked out</title></head>\n";
        &body("STDOUT");
        print "<h1>Un-Locked Out</h1>The text has been un-locked out.\n";
        &goback($FORM{'password'});       
}

sub remove_section {
        &checkpassword;
        if ($FORM{'kill'} eq $FORM{'do'}) {
                print "<html><head><title>Can't do that...</title></head>\n";
                &body("STDOUT");
                print "<h1>Sorry</h1>You asked me to move all links from the\n";
                print "section that you're deleting to the section you're deleting.\n";
                &goback($FORM{'password'});
        }                
        &readlinks;
        for($i = $#links; $i >= 0; $i--) {
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                if ($sect eq $FORM{'kill'}) {
                        if ($FORM{'do'} ne "delete") { 
                                $links[$i] = "$email|$title|$url|$desc|$FORM{'do'}|$hits|$atime|$adate";
                                splice(@moves,0,0,$links[$i]);
                        }
                        splice(@links,$i,1);
                        if ($FORM{'email'} eq "Yes") {
                                open(MAIL,"|$mailprogram -t");
                                print MAIL "To: $email\n";
                                print MAIL "From: $youremail\n";
                                if ($FORM{'do'} eq "delete") { print MAIL "Subject: Your link has been removed.\n"; }
                                else { print MAIL "Subject: Your link has been moved.\n"; }
                                print MAIL "Hello.  Your link,";
                                &desclink;
                                if ($FORM{'do'} eq "delete") { print MAIL "has been deleted from my page\nat $linksurl\n"; }
                                else { print MAIL "has been moved to the $FORM{'do'} section\nof my links page at $linksurl\n"; }
                                print MAIL "because I have removed my $FORM{'kill'} section.\n";                                        
                                &emailsig;
                        }
                }
        }
        open (DATA, ">$datadir/setup.txt");
        print DATA "$bgcolor|$text|$link|$alink|$vlink|$background|$password|$tellthem|$oneemail|$maxlinks|$youremail|$pagetitle|$head|$foot|$lcase|$notify1|$notify2|$notify3|$tellhits\n";
        for ($i = 0; $i <= $#sectname; $i++) {
                unless($FORM{'kill'} eq $sectname[$i]) { print DATA "$sectname[$i]|$sectdesc[$i]\n"; }
                else { splice(@sectname,$i,1); $i--; }
        }        
        $i = 0;
        foreach $section(@sectname) {                
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                $START{$section} = $i;
                while ($section eq $sect) {
                        $i++;
                        ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                }                
        }
        if ($FORM{'do'} ne "delete") { foreach $move(@moves) { splice(@links,$START{$FORM{'do'}},0,$move); } }
        &writelinks;
        close(DATA);

        &makepage;
        print "<html><head><title>Section Removed</title></head>\n";
        &body("STDOUT");
        print "<h1>Section Removed</h1>The section has been removed.\n";
        &goback($FORM{'password'});       
}

sub search {
        $FORM{'search'} =~ tr/A-Z/a-z/;
        &readlinks;
        print "Content-type: text/html\n\n";
        print "<html><head><title>Results</title></head>\n";
        &body("STDOUT");
        print "<h1>Results</h1>The following pages contained the text <i>$FORM{'search'}</i>:\n";
        &sig("STDOUT");
        print "<center><table width=\"580\" border=\"5\" cellspacing=\"5\" cols=\"3\"><tr>\n";
        print "<td width=\"110\"><center><b>Section</b></center></td>\n";
        print "<td width=\"140\"><center><b>Title</b></center></td>\n";
        print "<td width=\"300\"><center><b>Description</b></center></td></tr>\n";
        for($i = 0; $i <= $#links; $i++) {
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                $url =~ tr/A-Z/a-z/;
                $desc =~ tr/A-Z/a-z/;
                $title =~ tr/A-Z/a-z/;
                if (($title =~ /$FORM{'search'}/ || $url =~ /$FORM{'search'}/ || $desc =~ /$FORM{'search'}/) && ($FORM{$sect} == -1)) {
                        print "<tr><td width=\"110\"><a href=\"$linksurl#$sect\">$sect</a></td>\n";
                        print "<td width=\"140\"><a href=\"$scripturl?action=go&link=$i\">$title</a></td>\n";
                        print "<td width=\"300\"><i>$desc</i></td></tr>\n";
                }
        }
        print "</table></center>\n";
        &sig("STDOUT");
        print "</body></html>\n";
}

sub random {
        &readlinks;
        for($i = 0; $i <= $#links; $i++) {
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$i]);
                if ($FORM{$sect}) { push(@results,$i); }
        }
        unless ($#results >= 0) {
                print "Content-type: text/html\n\n";
                print "<html><head><title>Please try again</title></head>\n";
                &body("STDOUT");
                print "<h1>Please try again</h1>I'm sorry, but I don't have any\n";
                print "links in the section(s) you checked off.  Please click back\n";
                print "and try again.</body></html>\n";
                exit;
        }
        else {
                srand();
                $i = int(rand($#results+1));
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$links[$results[$i]]);
                $hits++;
                $links[$results[$i]] = "$email|$title|$url|$desc|$sect|$hits|$atime|$adate";
                &writelinks;
                print "Location: $url\n\n";
        }
}

sub writelinks {
        open (FILE,">$datadir/links.txt");
        flock (FILE, 2);
        foreach $line(@links) { print FILE "$line"; }
        close(FILE);
}

sub readlinks {
        open (FILE,"$datadir/links.txt");
        @links = <FILE>;
        close(FILE);
}

sub showdelete {
        &checkpassword;
        print "<html><head><title>Delete a link.</title></head>\n";
        &body("STDOUT");
        print "<form method=\"POST\">\n";
        print "<input type=\"hidden\" name=\"action\" value=\"delete\">\n";
        print "<input type=\"hidden\" name=\"password\" value=\"$FORM{'password'}\">\n";
        print "<center><table border=\"5\" width=\"580\"><tr><td>\n";
        print "<table cols=\"4\">\n";
        &readlinks;
        $i = 0;
        $thits = 0;
        $ex[3] = -1;
        foreach $link(@links) {
                ($email,$title,$url,$desc,$sect,$hits,$atime,$adate) = split(/\|/,$link);
                $thits += $hits;
                if ($hits > $ex[0]) { $ex[0] = $hits; $ex[1] = $title; $ex[2] = $i; }
                if ($hits < $ex[3] || $ex[3] == -1) { $ex[3] = $hits; $ex[4] = $title; $ex[5] = $i; }
                print "<tr><td width=\"10\"><input type=\"checkbox\" name=\"$i\" value=\"delete\">";
                print "</td><td width=\"150\"><a href=\"$scripturl?action=go&link=$i\">$title</a>";
                print "</td><td width=\"330\">$desc</td><td width=\"80\">$hits hits</tr>\n";
                $i++;
        }
        print "</table><table cols=\"2\"><tr><td align=\"right\">\n";
        print "Should I e-mail the webmasters whose links are removed?</td><td>\n";
        print "<select name=\"email\"><option select>No\n";
        print "<option>Yes</select></td></tr><tr><td align=\"right\">\n";
        print "If you answered yes, why are you deleting this link?</td>\n";
        print "<td><select name=\"why\"><option selected>for spamming my link page.\n";
        print "<option>because the URL is 404.\n";
        print "<option>because the content was innapropriate.\n";
        print "<option>just for the hell of it.\n";
        print "<option>something else.</select></td></tr><tr><td align=\"right\">\n";
        print "If you answered &quot;something else&quot;, please explain why you\n";
        print "are deleting this link.</td><td>\n";
        print "<input type=\"text\" value=\"because\" name=\"other\"></td></tr>\n";
        print "<tr><td align=\"right\"><input type=\"submit\" value=\" Delete \"></td>\n";
        print "<td><input type=\"reset\"></td></tr></table></td></tr></table>\n";
        print "</form></body></html>\n";
}

sub active {
        unless(-e "$datadir/active.txt") {
                print "Content-type: text/html\n\n";
                print "<html><head><title>Please activate the script first</title></head>\n";
                &body("STDOUT");
                print "Please go to the admin page and activate the script, first.\n";
                print "</body></html>\n";
                exit;
        }
}

sub r {
        open(FILE,">$datadir/active.txt");
        close(FILE);
        &admin;
}