#!/usr/planet/bin/perl5 

require ("include/bbn.pm");

use Msql;

$prefix = "client-html/source" ;
$preprefix = "/home/www/proof/htdocs";

#= END DEFINITIONS =======================================================

# carve off the session id from the file name
@path = split('/', substr($ENV{'PATH_INFO'}, 1), 2);
$SID = $path[0];
$fyle = "$prefix/$path[1]";
$shortfyle = "$path[1]";

&cgi_receive;
&cgi_decode;

#=========================================================================

# Make the database connection
$dbh = Connect Msql;
if (!$dbh) { &do_msql_error; exit; }
SelectDB $dbh $DB;

# look up session id in the DB, see if it is fresh
$query = "select dateused, datemade from $TBL_SESSION where session='$SID'";
$sth = Query $dbh $query;
if ($sth) {
   @result = FetchRow $sth;
} else {
   &reportStaleSession ;
}

# session id is there... now see if it is fresh
$curtime = time();
$dateused = $result[0];
$datemade = $result[1];
if (($curtime - $dateused) > $MAX_IDLE) { 
   &reportStaleSession 
} else {
   # update the date use field with current time     
   $query = 
	"update $TBL_SESSION set dateused=$curtime where session='$SID'";
   $sth = Query $dbh $query ;
   if (!$sth) { &do_msql_error } ;
}

# figure out if the requested file is html or not... 
# by looking for the ".html" or ".htm" file extension
if ($fyle =~ /.htm$/) { $fyle =~ s/.htm$/.html/ } # a hack file bug fix
if ($fyle =~ /.html$/) {
   &cgi_head; 
   open(FYLE,"$preprefix/$fyle") 
     || open(FYLE,"$preprefix/$shortfyle") 
     || die "<h3>Sorry... we can't seem to open the requested file</h3> \n";

   #====================================================================
   # parse the html file and process it dynamically
   #  1) insert the RER stuff near the top
   #  2) look for special comment #  <!-- keywords ... >
   #     and build a checkbox form at the end of the file 
   #     using these keywords
   #====================================================================

   #$TBLS = -e "$SESSION_PATH/$SID/hastables" ;

   while ($line = <FYLE>) { 
      if ($line =~ /<title>/) { 
	 # nab the title as the customer name
	 print $line ;
	 $TITLE = $line;
	 $TITLE =~ s|<title>||;
	 $TITLE =~ s|</title>||;
	 $TITLE =~ s| |%20|g;
	 chop($TITLE);
      } elsif ($line =~ /$REPLACE_STRING_RER/) { 
	 # generate RER panel
	 $hasRER = "yes";
	 print qq|<a href="/cgi-bin/rer?sid=$SID&customer=$TITLE">\n|;
         print qq|<img src="/pix/rer-0.gif" alt="RER form" ></a>\n|;
      } elsif ($line =~ /<!-- keywords/) { 
	 # generate a checkbox form
	 # first split out the keywords 
	 while ($line !~ /-->/) { $line = $line.<FYLE>; }
	 print $line;
	 $line =~ s/<!-- keywords//;
	 $line =~ s/\n//;
	 $line =~ s/-->//;
	 $_ = $line;
	 @keys = split;
	 # now get the translation table
         open(KTBL, "<$KEYTABLE")
	    || die "Sorry... we can't get keyword translation table\n";
	 foreach $item (<KTBL>) {
	    @pair = split(' ',$item,2);
	    $kwtt{$pair[0]} = $pair[1];
	    }
      } else {
	 # nothing interesting found in this line
         print $line; 
	 }
   } # end while
   if ($keys[0]) {
      print "<form action=\"/cgi-bin/fullsearch\" method=\"post\">\n";
      print "<img src=\"/pix/line1.gif\"><br><br>\n";
      
      # dih 12/30/95:
      open(DIRF, "<$SESSION_PATH$SID/curdir");
      $_ = <DIRF>;
      $curdir = $_;
      tr/a-z/A-Z/;
      $capdir = $_;
      close DIRF;
      print "<b>You are searching across ";
      if ($capdir ne 'SOURCE') {
        print "CatoSource listings only in the $capdir directory.";
	} else {
	print "ALL CatoSource listings.";
      }	
      
      print "<br><br><img src=\"/pix/line1.gif\"><br><br>\n";
      print "To find related providers, check one or more keywords";
      print " and search again.";
      print "<br>You may also change to another type of search using ";
      print "the icons below.</b>\n";
      print "<br><br>\n";
      $i = 0;
      while ($keys[$i]) {
         print "<input type=\"checkbox\" name=\"pattern\" ";
	 print "value=\"$keys[$i]\">\n";
	 if ($kwtt{$keys[$i]}) 
	    { print "$kwtt{$keys[$i]}\n"; } 
	    else { print "$keys[$i]\n"; }
         $i = $i + 1;
	 }
      print "<br>\n";
      print "<br>\n";
      if ($#keys > 0) {
      print "<b>What type of match would you like?</b>\n";
      print "<center>\n";
      print "<input type=\"radio\" name=\"connect\" ";
      print "value=\"or\" checked>Match ANY keyword (or)\n";
      print "<input type=\"radio\" name=\"connect\" ";
      print "value=\"and\">Match ALL keywords (and)\n";
      print "</center>\n";
      } else {
         print "<input type=\"hidden\" name=\"connect\" value=\"or\">\n";
      }
      print "<center>\n";
      print "<input type=\"submit\" value=\"Search now\">\n";
      print "<input type=\"reset\" value=\"Clear selections\">\n";
      print "<input type=\"hidden\" name=\"session\" value=\"$SID\">\n";
      print "<input type=\"hidden\" name=\"swishopts\" value=\"-t c\">\n";
      print "<input type=\"hidden\" name=\"dir\" value=\"$curdir\">\n";
      print "</center>\n";
      print "</form>\n";

      # now generate toolkit imagemap with proper map file
      print "<center>\n";
      if ($hasRER) {
	 $TTLNS = $TITLE;
	 $TTLNS =~ s/%20//g ;
	 $csmapfyle = $SESSION_PATH.$SID."/combined-ico.cli.".$TTLNS.".map" ;
	 if (!(-e $csmapfyle)) { 
	    # make the customer-specific map file
	    $mapfyle = $SESSION_PATH.$SID."/combined-ico.cli.map" ;
	    open(MAP,"<$mapfyle") 
	       || die "Can't open MAP file for reading";
	    open(CSMAP,">$csmapfyle") 
	       || die "Can't open Client MAP file for writing";
	    while ($lyne = <MAP>) {
	       $lyne =~ s/rer\?sid=/rer\?customer=$TITLE\&sid=/ ;
	       print CSMAP $lyne;
	    }
	    close CSMAP;
	    close MAP;
	 }
         print "<a href=\"/sessions/$SID/combined-ico.cli.$TTLNS.map\">\n";
      } else {
         print "<a href=\"/sessions/$SID/combined-ico.cli.map\">\n";
      }
      print "<img src=\"/pix/combined-ico.gif\" ISMAP></a>\n";
      print "</center>\n";
   }
} else { 
   # file is not html... just dump the file to output as is
   print <FYLE>;
}

#####################################################################
#### SUBROUTINES ####################################################

sub reportStaleSession {
    &cgi_header;
    print "<H1 ALIGN=CENTER>Session Id is Stale</H1>\n";
    print "Please re-enter CatoSource to ";
    print "<a href=\"/logon.html\">get a fresh session</a>.";
    print "<P>\n";
    print "</BODY></HTML>\n";
    exit;
}

sub do_msql_error {

  &cgi_header;
  print "<H1 ALIGN=CENTER>Unable to connect to database</H1>\n";
  print "The database is currently down for maintenance.\n";
  print "Please try connecting again in a few minutes.\n";
  print "<P>\n";
  print "</BODY></HTML>\n";
  exit;
}