\n"; } ############################################ # PrintLinks # Purpose: To Print the available commands # to the screen. ############################################ sub PrintLinks { print " "; if ($ConfigIn{'SHOW_ABOUT_LINK'} =~ /^y/i) {print "[$ConfigIn{'TEXT_ABOUT_LINK'}] ";} if ($ConfigIn{'SHOW_LIST_LIBRARIES_LINK'} =~ /^y/i) {print "[$ConfigIn{'TEXT_LIST_LIBRARIES_LINK'}] ";} if ($ConfigIn{'SHOW_CONTACT_ADMIN_LINK'} =~ /^y/i) {print "[$ConfigIn{'TEXT_CONTACT_ADMIN_LINK'}] ";} if ($ConfigIn{'SHOW_SEARCH_LINK'} =~ /^y/i) { if ($in{'dbNum'} ne '') { print "[$ConfigIn{'TEXT_SEARCH_LINK'}] "; } } print "\n
\n"; } ############################################ # PerformAction # Purpose: To perform the action requested # ############################################ sub PerformAction { if ($in{'action'} < 2 or $in{'action'} > 5) { &ListDatabases; return; } if ($in{'dbNum'} eq '' or $in{'dbNum'} < 1 or $in{'dbNum'} > $NumDbLineNames) { &ListDatabases; return; } my $LoggedIn = undef; if ($databasedata[($in{'dbNum'}*10)+2] eq '*' or $pwd eq $databasedata[($in{'dbNum'}*10)+2]) { $LoggedIn = 1; } unless ($LoggedIn) { if (defined $in{'CGISESSID'} or defined $in{'pwd'}) { print "
Invalid Password";
}
&PrintLoginForm;
} else {
# Get the number of fields in database. Newer db's have 21 fields instead of 14.
# The extra search boxes are only displayed if fields are present on file.
foreach $LibName (@{$DbLineNames[$in{'dbNum'}]}) {
open(SEARCH, $LibDef{$LibName}[2]);
$NumDbFields = scalar(split(/\t/, Unrecognized number of data fields in database file: $NumDbFields";
print " Please contact Jaywil at info\@jaywil.com for an update or to resolve this problem. $ConfigIn{'TEXT_VISITOR_NUMBER'} "
.&getCounterValue("count-lib-$databasedata[$in{'dbNum'}*10].txt")
." $ConfigIn{'SEARCHPAGE_TEXT_SEARCH'} ";
if ($ConfigIn{'SEARCHPAGE_TEXT_LIBRARY_NAME'} eq '') {
print $databasedata[$in{'dbNum'}*10];
} else {
print $ConfigIn{'SEARCHPAGE_TEXT_LIBRARY_NAME'};
}
print " $ConfigIn{'SEARCHPAGE_TEXT_ENTER_FIELDS'} ";
if ($ConfigIn{'RESULTSPAGE_TEXT_LIBRARY_NAME'} eq '') {
print $databasedata[$in{'dbNum'}*10];
} else {
print $ConfigIn{'RESULTSPAGE_TEXT_LIBRARY_NAME'};
}
print " $ConfigIn{'RESULTSPAGE_TEXT_YOUR_SEARCH_FOUND'} $NumBooksFound $ConfigIn{'RESULTSPAGE_TEXT_MATCHES'} No search parameters given!
Lib Name:$LibName, Lib Filename:$LibDef{$LibName}[2] - $NumDbFields
";
#print "
$NumDbFields";
if ($NumDbFields != 14 && $NumDbFields != 21) {
print "
(Database filename: $LibDef{$LibName}[2])";
print "
NCP
for ($i=1;$i<=14;$i++) {
last if ($MaxNumDbFields == 14 && $i == 8);
if (eval("\$SearchFieldSearchable$i") ne "N") {
print " " . chr(13);
print " " . chr(13);
}
}
print <" . eval("\$SearchFieldLabel$i") . ": " . chr(13);
print " ";
if ($ConfigIn{'SEARCHPAGE_SHOW_EXACT_PHRASE_CHECKBOX'} =~ /^y/i) {
print "";
}
print " " . chr(13);
print "
NCP
}
############################################
# SearchResults
# Purpose: To find entries..
#
############################################
sub SearchResults {
if (defined $in{'BtnNext'}) { $FirstNumDisplayed=$in{'PrevFirstNum'}+10; }
if (defined $in{'BtnPrev'}) { $FirstNumDisplayed=$in{'PrevFirstNum'}-10; }
&SearchDatabase;
if ($ConfigIn{'RESULTSPAGE_SHOW_LIBRARY_NAME'} =~ /^y/i) {
print "
(c) copyright $cpr_year Shell Point Retirement Community
Click here to return to $orgName.
$ConfigIn{'TEXT_VISITOR_NUMBER'} ".&getCounterValue("count-list-libs.txt")."
\n"; } if ($ConfigIn{'SHOW_TOTAL_LIBRARY_DATABASES'} =~ /^y/i) { print "$ConfigIn{'TEXT_TOTAL_LIBRARY_DATABASES'} $NumDbLineNames
"; } for ($a=1;$a<=$NumDbLineNames;$a++) { if (($databasedata[($a*10)+2] eq "*") || ($databasedata[($a*10)+2] eq "")) { print "$databasedata[($a*10)+0]"; } else { print "
$databasedata[($a*10)+0]";
}
if (($ConfigIn{'SHOW_NUM_DATABASE_ITEMS'} eq "Y") || ($ConfigIn{'SHOW_PASSWORD_REQUIRED'} eq "Y")) {
print " -";
}
if ($ConfigIn{'SHOW_PASSWORD_REQUIRED'} eq "Y") {
print " (";
if (($databasedata[($a*10)+2] ne "*") && ($databasedata[($a*10)+2] ne "")) {
print "$ConfigIn{'TEXT_PASSWORD_REQUIRED'}";
}
else {
print $ConfigIn{'TEXT_NO_PASSWORD_REQUIRED'};
}
print ")";
}
if ($ConfigIn{'SHOW_NUM_DATABASE_ITEMS'} eq "Y") {
print " [$databasedata[($a*10)+6] item(s)]";
}
}
}
############################################
# makeRequest
# Purpose: Request Item(s)
#
############################################
sub makeRequest {
if (($in{'name'} eq '') || ($in{'email'} eq '')) {
$errMsg = " Missing Email/Phone or Name
\n"
}
&SearchDatabase;
$selected = 0;
for($a=1;$a<=$NumBooksFound;$a++) {
if ($in{$a} eq "on") {
$selected++;
}
}
if ($selected==0) {
$errMsg = " No Items Selected!
\n";
}
if (defined $errMsg) {
print $errMsg;
print "Please hit the back button on your browser and make the\n";
print "necessary corrections\n";
return;
}
print "$databasedata[($in{'dbNum'}*10)+0]
";
print "$ConfigIn{'REQUESTPAGE_TEXT_REQUESTING'}
";
$i=0;
for($a=1;$a<=$NumBooksFound;$a++) {
if ($in{$a} eq "on") {
print " $SearchResults[($a*22+1)]
";
}
}
foreach $LibName (@{$DbLineNames[$in{'dbNum'}]}) {
$FoundOne = "N";
for($a=1;$a<=$NumBooksFound;$a++) {
if (($in{$a} eq "on") && ($SearchResults[($a*22)] eq $LibDef{$LibName}[0])) {
$FoundOne = "Y";
#print "
Found: $a, $SearchResults[($a*22)]";
}
}
next if $FoundOne eq "N";
open (MAIL, "|$mailProg") || die "Can't create pipe to $mailProg!\n";
print MAIL "Date: $mailheader_date -0500\n";
# Print only the email address, if so requested from lib.conf. Some servers don't handle the
# presence of the person's real-life name very well. May 18/2004-M.Whiting
$recipient = $LibDef{$LibName}[1];
# delete this line if no problems April 10/08
# $recipient = $LibDef{$DbLineNames[$in{'dbNum'}][$DbLineFileNum]}[1];
# print "
sending re:$LibName to [$recipient]";
if ($SmblatEmailOnly =~ /^Y/i) {
print MAIL "To: $recipient\n";
print MAIL "From: $adminEmail\n";
}
else {
print MAIL "To: Library Admin <$recipient>\n";
print MAIL "From: $adminName <$adminEmail>\n";
}
print MAIL "Subject: $ConfigIn{'EMAIL_TEXT_BORROW'}\n";
print MAIL "Organization: $orgName\n";
# Pass an instruction to the smblat program, if requested from lib.conf
print MAIL "SMTPServer: $SMTPServer\n" if (defined $SMTPServer);
# Add a parameter to instruct the smblat program, if requested from lib.conf - May 18/2004-M.Whiting
print MAIL "SmblatDebug: $SmblatDebug\n" if (defined $SmblatDebug);
print MAIL "\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_TITLE1'}\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_TITLE2'}\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_TITLE3'}\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_TITLE4'}\n";
# print MAIL "$ConfigIn{'EMAIL_TEXT_LIBRARY'}$DbLineNames[$in{'dbNum'}][$DbLineFileNum]\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_LIBRARY'}$LibDef{$LibName}[0]\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_NAME'}$in{'name'}\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_EMAIL'}$in{'email'}\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_DATE'}$mailheader_date\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_FOOTER1'}\n";
print MAIL "$ConfigIn{'EMAIL_TEXT_COMMENTS'}$in{'comm'}\n";
for($a=1;$a<=$NumBooksFound;$a++) {
if (($in{$a} eq "on") && ($SearchResults[($a*22)] eq $LibDef{$LibName}[0])) {
print MAIL "\n$ConfigIn{'EMAIL_TEXT_REQUESTED_ITEM'}\n";
for ($i=1; $i<=14; $i++) {
$FieldNum = eval("\$ConfigIn{'EMAIL_FIELD_DETAIL_LINE$i'}");
if ($FieldNum > 0) {
if ($FieldNum == 1) {$ArrayPosition = 1;}
if ($FieldNum == 2) {$ArrayPosition = 4;}
if ($FieldNum == 3) {$ArrayPosition = 8;}
if ($FieldNum == 4) {$ArrayPosition = 11;}
if ($FieldNum == 5) {$ArrayPosition = 9;}
if ($FieldNum == 6) {$ArrayPosition = 10;}
if ($FieldNum == 7) {$ArrayPosition = 7;}
if ($FieldNum >= 8) {$ArrayPosition = $FieldNum+7;}
print MAIL eval("\$SearchFieldLabel$FieldNum") . " : $SearchResults[($a*22)+$ArrayPosition]\n";
}
}
}
}
print MAIL "\n\n(c) copyright $cpr_year $orgName.\n";
close (MAIL);
}
print "
$ConfigIn{'REQUESTPAGE_TEXT_THANKYOU'}";
print "
$ConfigIn{'RESULTSPAGE_TEXT_RETURN'}
Login To $databasedata[($in{'dbNum'}*10)+0]
Password:
NCP } ############################################ # getCounterValue("filename") # # Increment and return the counter in "filename" in the counter directory. ############################################ sub getCounterValue { local $count = 0; open (COUNTER, "+>>".$countpath.$dirsep.$_[0]); flock(COUNTER, $LOCK_EX); seek(COUNTER, 0, 0); $count =Note: This page is for debugging purposes by Jaywil Software.
";
print "Please copy and paste this page into your email program
";
print "and send it to Jaywil Software. Thank-you.
"; print "
Start of Environment Variables:
"; foreach $key (sort keys(%ENV)) { print "$key = $ENV{$key}"; } print "
End of Environment Variables
"; exit; } ############################################ # GetQueryData # Purpose: To Get Information From The Query # String passed from The WWW ############################################ sub GetQueryData { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); } else { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } # Now digest the data, putting it into a more useful format. foreach $pair (@pairs) { ($key, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/\cM//; # print "$key = $value\n"; # eval("\$$key = \"$value\""); $in{$key} = $value; } local $QueryString = $ENV{'QUERY_STRING'}; # # Replace '+' chars with spaces and de-hex the query string. # $QueryString =~ s/\+/ /g; $QueryString =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge; $x=0; foreach $_ (split(/\&/, $QueryString )) { if ($_ =~ /show_var/i) { &ShowEnvVar(); } $x++; } # Handle any password or session variable in the query string. June 2007. M.Whiting # This can only be run before anything is outputed to the screen, for the browser redirection to work $pwd = undef; if (defined $UseSession) { if (defined $in{'pwd'} or defined $in{'CGISESSID'}) { use CGI; use CGI::Session; $cgi = new CGI; $sid = $cgi->param('CGISESSID') || undef; $session = new CGI::Session("driver:File", $sid, {Directory=>$SessionFilePath}) or die CGI::Session->errstr(); $sid = $session->id(); if (defined $in{'pwd'}) { # Store password just entered, then redirect with session id in query string # instead of pwd text in the query string (so it can't be bookmarked) $pwd = $in{'pwd'}; $session->param("pwd", $pwd); $session->save_param($cgi); $session->flush(); print 'Status: 302 Moved', "\r\n", 'Location: http://',$ENV{SERVER_NAME},$ENV{SCRIPT_NAME},'?dbNum=1&action=3&CGISESSID=', $sid, "\r\n\r\n"; exit; } elsif (defined $in{'CGISESSID'}) { $pwd = $session->param("pwd"); } } } else { if (defined $in{'pwd'}) {$pwd = $in{'pwd'}} } } ############################################ # FindConf # Purpose: For Windows servers, to check # various locations for lib.conf # This will also execute for any # Unix server that can't find it ############################################ sub FindConf { # Take SCRIPT_NAME environment variable and strip off the first directory. On some NT servers this is a virtual folder. $ShortenedScriptName = $ENV{SCRIPT_NAME}; $ShortenedScriptName =~ s/^\///; until ($ShortenedScriptName =~ /^[\/|\\]/) { $ShortenedScriptName =~ s/^.//; } $CwdDir = getcwd(); # Do the checking while (!(-e $libConf)) { if (++$FileCheckCount== 1) {$libConf = "$CwdDir$ENV{SCRIPT_NAME}";} elsif ($FileCheckCount == 2) {$libConf = "$ENV{PATH_TRANSLATED}$ENV{SCRIPT_NAME}";} elsif ($FileCheckCount == 3) {$libConf = "$CwdDir$ShortenedScriptName";} elsif ($FileCheckCount == 4) {$libConf = "$ENV{PATH_TRANSLATED}$ShortenedScriptName";} else { $FileCheckCount--; print "Content-type: text/html\n\n"; print "
Lib.conf file not found! ($FileCheckCount checks)
"; print "Please contact Jaywil Software for assistance.
"; exit; } $script2 = $libConf; # SCRIPT_NAME includes this file's filename, not lib.conf, so switch them, whichever name it is. $libConf =~ s/libsearch.exe/lib.conf/i; $libConf =~ s/libsearch.cgi/lib.conf/i; } # Session file path is the same as lib.conf, partly because lib.conf also contains the # pwd in plain text, and because we need an easy to determine file location relevant # to the libsearch program. (lib.conf has not been read in yet to use a user-set variable # as there can be no output to the screen yet when the pwd is first set (browser redirection)) ($SessionFilePath = $libConf) =~ s/lib.conf//i; $SessionFilePath = $SessionFilePath . 'tmp/'; if (!(-e $SessionFilePath)) {mkdir $SessionFilePath;} if (!(-e $SessionFilePath)) { print "Content-type: text/html\n\n"; print "
Temp folder for session file path not found!
"; print "Path attempted: $SessionFilePath
"; print "Please contact Jaywil Software for assistance.
"; exit; } } ############################################ # ReadConf # Purpose: To Get information from the # configuration file ############################################ ###### In the config file, elements are ":" separated -- this makes ###### it hard to enter a dos/windows style fully qualified pathname ###### because such paths require a drive specification with a colon, ###### eg: d:\srv\http\netutils.ccjclearline.com\cgi. The below code ###### handles such pathnames gracefully. sub ReadConf { $NumDbLineNames = 0; open (NCP, $libConf) || print ("can't open lib.conf"); @data =
LOCAL_DATA_PATH is invalid ($LocalDataPath)"; print "
Please contact Jaywil Software at info\@jaywil.com for assistance."; exit; } for $DbLineNum (1 .. $NumDbLineNames) { for $DbLineFileNum (0 .. $#{$DbLineNames[$DbLineNum]}) { $_ = $DbLineNames[$DbLineNum][$DbLineFileNum]; if ($_ =~ /^(www|http)/i ) { print "
'$databasedata[$DbLineNum*10]' database line specifies"; print "
library named '$_'."; print "
Cannot direct to a file using http. Contact Jaywil Software about the multi-library version of Web Search."; exit; } if ($_ !~ /.txt/i ) { $_ =~ tr/a-z/A-Z/; #convert lib def name to all uppercase if (defined $LibDef{$_}) { $DbLineNames[$DbLineNum][$DbLineFileNum] = $_; } else { print "
'$databasedata[$DbLineNum*10]' database line specifies"; print "
library named '$_'."; print "
No corresponding library definition statement was found in lib.conf file."; print "
Please enter a library definition or check spelling."; print "
(You can contact Jaywil at info\@jaywil.com if you need assistance)
"; exit; } } else { if (defined $DbLineNames[$DbLineNum][1]) { print "Multiple library locations specified on '$databasedata[$DbLineNum*10]' database line in lib.conf file."; print "
Please contact Jaywil Software about the multi-library version of Web Search.
"; exit; } else { # convert db name to uppercase to use as the key in the hash. Note that element 0 # of the hash is the same name in mixed case. ($Keyname = $databasedata[$DbLineNum*10]) =~ tr/a-z/A-Z/; ($LibDef{$Keyname}[0] = $databasedata[$DbLineNum*10]) =~ s/(^\s+|\s+$)//g; # library name ($LibDef{$Keyname}[1] = $databasedata[$DbLineNum*10+4]) =~ s/(^\s+|\s+$)//g; # email ($LibDef{$Keyname}[2] = $_) =~ s/(^\s+|\s+$)//g; # library data location $DbLineNames[$DbLineNum][$DbLineFileNum] = $Keyname; } } } } # Run through all the Library Definitions, downloading remote files & assigning local filenames $iTemp = 0; foreach $LibName (keys %LibDef) { $_ = $LibDef{$LibName}[2]; # put the file location into $_ if ($_ !~ /^(www|http)/i ) { #If no www/http reference, it's a local file if (!(-e $_)) { print "File not found for library named '$LibName'";
print "
(filename: $_)";
exit;
}
} else {
if ($_ =~ /^www/i ) {$_ = "http://" . $_;}
($DestFilename = $_) =~ s/^.+\///; # remove the path before the filename.
$DestFilename = $LocalDataPath."RemoteFile".++$iTemp."-".$DestFilename;
if (-e $DestFilename) {
$returncode = mirror($_, $DestFilename);
} else {
$returncode = getstore($_, $DestFilename); #one server had trouble with mirroring if file didn't already exist
}
if (is_error($returncode)) {
print "
Problem getting remote database file: $_"; print "
Transfer Error Message: ";
print status_message($returncode);
print "
(HTTP error code # $returncode)";
print "
Please contact Jaywil at info\@jaywil.com if you need assistance.
"; print exit; } #print "done ... " .status_message($returncode); $LibDef{$LibName}[2] = $DestFilename; #Reassign remote library path with local path } } # Set password timeout, now that any default override has been read in from lib.conf if (defined $session and defined $ConfigIn{'PASSWORD_TIMEOUT'}) { $session->expire($ConfigIn{'PASSWORD_TIMEOUT'}); } }