#!/usr/bin/perl

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

#Program to open a database of merchants and display a list
#Display is for either ALPHABETICAL or CATAGORY list, plus a list of ALL Merchants
#Needs a either POST from a Form or GET including:-
# "List" which is the type of list (alpha or category or all), and
# "db" which is the name of the database to be opened



$localtime = localtime();
$header = "html/catheader.html";
$footer = "html/catfooter.html";
$fontcolor = "000000";
$fontsize = "2";
$fontface = "Verdana";



&parse_input;
&variables;
&print_header;
&get_data;
&print_footer;

#print "end of script";
exit;



#====================================================================================
# Parse User Input
sub parse_input{
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;
   $FORM{$name} = $value;
} 
}
#====================================================================================
sub variables{
$list = "$FORM{'list'}";
$database = "$FORM{'db'}";

$pageopen = $list;
$pageopen .= $database;
$datafile = $database;
$datafile .= ".dat";
}
exit;
#====================================================================================
sub get_data{
$longdesc = "";
$banner = "";
$count = "0";

	open(LIST2, "<../database/$list/$datafile") || &error("Cannot open HTML source file : $pageopen, Error $!\n");
	@list = <LIST2>;
	close(LIST2);

foreach $line(@list) {
  chomp($line);
  ($memid,$company,$websitename,$weburl,$desc,$mytime) = split(/\|/,$line);
	$count++;
	if($memid ne ""){
	&get_longdesc;

print <<EndHTML;
<br><br>
<table border="4" cellpadding="6" width="600" bgcolor="#FFCCCC" height="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFCCCC" align="center">
  <tr>
    <td width="400" height="60" valign="top" class="company">
	<a href="http://$weburl" target="_blank">$company</a></td>
    <td width="200" height="60" valign="top" align="center" class="link1">
	$banlink
	$bansrc</a></td>
  </tr>
  <tr>
    <td width="400" bgcolor="#FFFFCC" class="accred">Accreditation Number</td>
    <td width="200" bgcolor="#FFFFCC" class="accred" align="center"><b>$memid</b></td>
  </tr>
  <tr>
    <td width="600" colspan="2" class="desc">$websitename <br>$desc <br>$longdesc</td>
  </tr>
  <tr>
    <td width="400" valign="bottom" class="accred" colspan="2">Accredited since: $mytime</td>
  </tr>
</table>
EndHTML
$longdesc = "";
$banner = "";
	}
}
if($count eq "0"){
print <<EndNOWT;
<table border="4" cellpadding="6" width="600" bgcolor="#FFCCCC" height="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFCCCC" align="center">
  <tr>
    <td width="600" align="center" valign="top" class="company">
Sorry there are no members for your selection
</td></tr>
  <tr>
    <td width="600" align="center" valign="top" class="company">
              <form name='back' method='POST'>
              <button name='B3' onClick='javascript:history.go(-1)'>Back to the previouse page</button>
              </form>


</td></tr></table>
EndNOWT
}
}
exit;
#====================================================================================
sub get_longdesc{
$banlink = "<a href='http://$weburl' target='_blank'>";
$bansrc = "Web Site";

	open(LIST3, "<../database/longdescription/total.dat");
	@list3 = <LIST3>;
	close(LIST3);

foreach $rec(@list3) {
  chomp($rec);
  ($lookup_memid,$lookup_longdesc,$lookup_banner) = split(/\|/,$rec);
	if ($memid eq $lookup_memid){
		$longdesc = $lookup_longdesc;
		$banlink = "<a href='http://$weburl' target='_blank'>";
		$bansrc = "Web Site";
		if($lookup_banner ne ""){
			$banlink  = "<a href='http://";
			$banlink .= $weburl;
			$banlink .= "' target='_blank'>";
			$bansrc   = "<img src='http://";
			$bansrc  .= $lookup_banner;
			$bansrc  .= "' width='200' height='60' border='0'>";
		}
		return;
	}
}
}
#====================================================================================
sub print_header {

$show = $list;
if($list eq "alpha"){
	$show = "Alphabetical";
}


#  print "Content-type:text/html\n\n";
  open(FILE,"$header") || &error("The header file failed to open.");
  @data = <FILE>;
  close(FILE);

foreach $newline (@data){
	$newline =~ s/\$show/$show/gi;
	$newline =~ s/\$database/$database/gi;
   }

print @data;

}
exit;
#====================================================================================
sub print_footer {

 open(FILE,"$footer") || &error("The footer file failed to open.");
 @data = <FILE>;
 close(FILE);
  foreach $line (@data) {
   print "$line";
  }

}
exit;
#====================================================================================
sub error {

$error = $_[0];
# &header;
  print "<font face=\"$fontface\" color=\"\#$fontcolor\" size=\"$fontsize\">\n";
  print "<b>Error</b> - $error\n";
  print "<b>Error</b> - $error\n";
  print "<form name='back' method='POST'>";
  print "<button name='B3' onClick='javascript:history.go(-1)'>Back to the previous page</button>";
  print "</form>";
  print "<P>\n";
  print "</font>\n";
# &footer;
exit(0);

}
exit;
#====================================================================================
sub dienice{
print <<EndHTML;
<p>Ooops - sorry but something has gone wrong with your request<br>
Please press the Button below and try again</p>
<p>Thank you</p>
<p>$error</p>
<P>
              <form name='back' method='POST'>
              <button name='B3' onClick='javascript:history.go(-1)'>Back to the previouse page</button>
              </form>
EndHTML
exit;
}
exit;
#=======================================================================