#!/usr/bin/perl

######################################################
##                                                  ##
##  LinkUp                                          ##
##                                                  ##
##  User-submittable searchable URL links database  ##
##                                                  ##
##  (c) 2000, Uplink Productions                    ##
##      uplink@uplink.com.au                        ##
##      www.uplink.com.au                           ##
##                                                  ##
##  Australian-made software.                       ##
##                                                  ##
##  See Readme.txt for installation/setup details.  ##
##                                                  ##
######################################################

open(INF,"linkup.ini") or &ini;
	$tb = <INF>;
	$fc = <INF>;
	$latest = <INF>; chomp($latest);
close(INF);

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

open(INF,"linkheader.shtml");
@lh = <INF>;
close(INF);


foreach $lh (@lh) { print $lh }


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;
    $FORM{$name} = $value;
}

print "<form action=linksearch.cgi method=post>";
print "Search: ";
print "</font><input type=text name=search size=30 maxlength=100><font face=\"Geneva, Verdana, Arial\" color=$fc size=2>&nbsp;&nbsp;&nbsp;";
print "<input type=submit value=Search><br>";
print "<a href=\"linksearch.cgi?xrs=latest\">$latest</a>";
foreach $lf (@lf) { print $lf }

print "<br><b>Link Summary:</b><br><br>";

opening:
open(INF,"links.txt") or retry();
flock(INF,2);
@links = <INF>;
close(INF);

foreach $ex22 (@links) {
	$count2 = $count2 + 1;
}

open(INF,"linkareas.txt");
@areas = <INF>;
close(INF);

print "<table bgcolor=$tb border=1 bordercolor=000000>";

foreach $ex1 (@areas) {
	chomp($ex1);
	($name2,$code) = split(/\|/,$ex1);
	if (substr($name2,0,1) eq "+") {
		$al = length($name2) - 1;
		#print "<b>$al</b>"; exit;
		$name = substr($name2,1,$al);
	}
	else { $name = $name2 };
	$count = 0;
	foreach $ex2 (@links) {
		($lcode,$email,$url,$title,$date) = split(/\|/,$ex2);
		if ($lcode eq $code) { $count = $count + 1 }
	}
print "<tr valign=top><td width=510><font face=\"Geneva, Verdana, Arial\" color=$fc size=2><a href=linksum2.cgi?xrs=$code><b>$name</a><br></td><td width=40><font face=\"Geneva, Verdana, Arial\" color=$fc size=2>$count<br></td></tr>";
}
print "</table><br><br><font color=white>There are <b>$count2</b> links in the database.</font>";

open(INF,"linkfooter.shtml");
@lf = <INF>;
close(INF);

foreach $lf (@lf) { print $lf }
exit;

          sub dienice {
              my($errmsg) = @_;
              print "<h2>Error</h2>\n";
              print "$errmsg<p>\n";
              print "</body></html>\n";
              exit;
          }

          sub formerror {
              my($errmsg) = @_;
              print "<h2>Form Error</h2>\n";
              print "$errmsg<p>\n";
		   print "Use your browser's <b>back button</b> to go back and correct the mistake.<br>";
              print "</body></html>\n";
              exit;
          }

sub retry { goto("opening") }


sub ini { print "Error!  Can not open AreaBoard config file!"; exit; }