#! /usr/local/bin/perl

# Filename: librefcwi.pl
# By: Huijie Chen
# Date: 3/27/97-
# Note: 

require "cgi-lib.pl";

MAIN:
{
  # Read in all the variables set by the form
  &ReadParse(*input);

  $host1 = $ENV{'REMOTE_HOST'};
  $host1 =~ s/hbg.psu.edu/host/; 
  $host2 = $ENV{'REMOTE_ADDR'};
  if (($host2 =~ /146.186.84/) || ($host2 =~ /146.186.85/) || ($host2 =~ /146.186.89/)) { 
  $host2 = "ok"; }

  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  $day=(Sunday,Monday,Tuesday,Wednesday,Thursday,Frieday,Saturday)[$wday];
  $month=(January,Febuary,March,April,May,June,July,August,September,October,November,December)[$mon];
 
  open(LOGFILE, ">>library-cgi/cwilog.txt") || &CgiDie("Couldn't open myfile.txt: $
!\n");

  print LOGFILE "$day $month $mday, 19$year $hour: $min:$sec : $ENV{'REMOTE_HOST'} $ENV{'REQUEST_METHOD'} $input{'school'} $input{'status'}\n";

  close (LOGFILE);

  if (($input{'doc_id'} ne "skZakms2kHeLszIBKo)o1USKxkmPS0x") || ($ENV{'REQUEST_METHOD'} ne "POST")) {

  print &PrintHeader;
  print &HtmlTop ("FirstSearch Logon Problem Report");

  print <<ENDOFTEXT;

  <b>User Information:</b>
  <pre>
    From: $ENV{'REMOTE_HOST'} $ENV{'REMOTE_IDENT'} $ENV{'REMOTE_USER'}
    Time: $day, $month $mday, 19$year $hour:$min:$sec
  Remark: Unknown system error or unable to process user request. 
  </pre>
  <b>Recommandation:</b>
<ul>Please print out this page and promptly
  report to library (948-6073 voice, 948-6381 fax) when it is open.  Thank you! 
</ul>

ENDOFTEXT

  print &HtmlBot;

} else {

  if (($host1 eq $ENV{'REMOTE_HOST'}) && ($host2 eq $ENV{'REMOTE_ADDR'})) {

  print &PrintHeader;
  print &HtmlTop ("FirstSearch Logon Problem Report");

  print <<ENDOFTEXT;
  Your are $ENV{'REMOTE_IDENT'} from $ENV{'REMOTE_HOST'}, which currently
  is not covered by our license arrangement.  You are welcome to use our
  other free services in the site. 

ENDOFTEXT

  print &HtmlBot;

} else {

  if (($input{'school'} eq "Unselected") || ($input{'status'} eq "Unselected") || ($input{'status'} eq " ") || ($input{'school'} eq "")) {

  print &PrintHeader;
  print &HtmlTop ("FirstSearch Logon Problem Report");

  print <<ENDOFTEXT;

  <b>User Information:</b>
  <pre> 
    From: $ENV{'REMOTE_HOST'} $ENV{'REMOTE_IDENT'}
  School: $input{'school'}
  Status: $input{'status'}
    Time: $day, $month $mday, 19$year $hour:$min:$sec
  Remark: User information possibly incomplete or inaccurate
  </pre>
  <b>Recommandation:</b>
<ul>Please go back to previous screen and make your selections again before submission.
If you have further question or this problem still exists, please print out this 
page and talk to a 
reference librarian.
</ul>
ENDOFTEXT

  print &HtmlBot;
 
} else {

  open(LOGFILE, ">>library-cgi/cwilog_a.txt") || &CgiDie("Couldn't open myfile.txt: $!\n");

  print LOGFILE "$day $month $mday, 19$year $hour: $min:$sec : $ENV{'REMOTE_HOST'} $input{'school'} $input{'status'}\n";

  close (LOGFILE);

system("/usr/web/cgi-bin/Webscript", "/usr/web/cgi-bin/library-cgi/bi.scr");

}
}
}
}