#! /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); $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 { if ($host1 eq $ENV{'REMOTE_HOST'}) { print &PrintHeader; print &HtmlTop ("Heindel Library -- FirstSearch on the Web"); print <