#! /usr/local/bin/perl # Filename: libfs.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); $localtime = localtime (time); open(MYFILE, ">library-cgi/fslog.txt") || &CgiDie("Couldn't open myfile.txt: $!\n"); print MYFILE "User: $in{'pw'} $ENV{'REMOTE_HOST'} $localtime\n"; close (MYFILE); $host1 = $ENV{'REMOTE_HOST'}; $host1 =~ s/hbg.psu.edu/host/; if ($input{'pw'} eq "liaspuBhBg") { print < Heindel Library -- OCLC FirstSearch Databases on the Web

Super! You are $ENV{'REMOTE_IDENT'} from $ENV{'REMOTE_HOST'}. You are quarified to access FirstSearch.

Please click here to start the automatic logon process. Or use the back button on your browser to go back.

Please be aware that due to many uncertainties of the Internet connectivities, this automation logon may take a while. Sometimes you may need to click on the above button again if the connection fails... ENDOFTEXT print &HtmlBot; } else { print &PrintHeader; print &HtmlTop ("Heindel Library -- FirstSearch on the Web"); if ($host1 eq $ENV{'REMOTE_HOST'}) { print <email us a message if you have a question.

ENDOFTEXT } print &HtmlBot; } }