#! /usr/local/bin/perl # Filename: libreffs.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/; $localtime = localtime (time); open(LOGFILE, ">>library-cgi/fslog.txt") || &CgiDie("Couldn't open myfile.txt: $ !\n"); print LOGFILE "$localtime : $ENV{'REMOTE_HOST'} $input{'school'} $input{'status'}\n"; close (LOGFILE); if ($host1 eq $ENV{'REMOTE_HOST'}) { print &PrintHeader; print &HtmlTop ("Problem Report for FirstSearch on the Web"); print <User Information:

 
    From: $ENV{'REMOTE_IDENT'} @ $ENV{'REMOTE_HOST'}
  School: $input{'school'}
  Status: $input{'status'}
    Time: $localtime

Diagnosis:

  User information possibly incomplete or inaccurate.  Please resubmit your selections.

Recommandation:

Please go back to logon screen and make your selections again before submission. If you have further question or the problem still exist, please print this page out and talk to a reference librarian. } else { print < Heindel Library -- OCLC FirstSearch Databases on the Web

OCLC FirstSearch on the Web

Super! You are $ENV{'REMOTE_IDENT'} from $ENV{'REMOTE_HOST'}, $input{'status'} at $input{'school'}. Welcome to access to FirstSearch.

Please be aware that due to many uncertainties, the automatic logon process may take a while. Please click on the logon button only once. When you finished your search, please exit out the database service using the exit function provided, instead of use the Back button on your browser. Thank you!

ENDOFTEXT print &HtmlBot; } } }