#!/usr/bin/perl
use Cwd;
use LWP::Simple qw(mirror getstore is_error status_message);
#use warnings;

#perl2exe_noopt "Opcode.pm"

#perl2exe_exclude "ExtUtils/MM_MacOS.pm"
#perl2exe_exclude "VMS/Filespec.pm"
#perl2exe_exclude "vmsish.pm"
#perl2exe_exclude "Mac/MoreFiles.pm"

#perl2exe_exclude "Digest/Perl/MD5.pm"
#perl2exe_exclude "Apache2/RequestRec.pm"
#perl2exe_exclude "Apache2/RequestIO.pm"
#perl2exe_exclude "Apache2/RequestUtil.pm"
#perl2exe_exclude "APR/Pool.pm"
#perl2exe_exclude "ModPerl/Util.pm"
#perl2exe_exclude "Apache2/Response.pm"
#perl2exe_exclude "Apache2/Response.pm"
#perl2exe_exclude "Apache2/RequestRec.pm"
#perl2exe_exclude "Apache2/RequestUtil.pm"
#perl2exe_exclude "Apache2/RequestIO.pm"
#perl2exe_exclude "APR/Pool.pm"
#perl2exe_exclude "Apache2/RequestUtil.pm"
#perl2exe_exclude "APR/Table.pm"

#perl2exe_include "CGI/Session/Driver/file.pm"
#perl2exe_include "CGI/Session/Serialize/default.pm"
#perl2exe_include "bytes.pm"
#perl2exe_include "CGI/Session/ID/md5.pm"
#perl2exe_include "ExtUtils/MM_Win32.pm"
#perl2exe_exclude "Compress/Bzip2.pm"
#perl2exe_include "HTTP/Message.pm"

#Net::SMTP related:
#perl2exe_exclude "Convert/EBCDIC.pm"
#perl2exe_exclude "Mac/InternetConfig.pm"
#perl2exe_exclude "Authen/SASL.pm"


#perl2exe_exclude "Carp/Heavy.pm"
use CGI::Carp qw(fatalsToBrowser);

use ExtUtils::Installed;


############################################
# Library Search 1.1.0 release 1
#
# (c) copyright 1998-2000 NCP Technologies, 
#                         At Connex Global Communication Systems Inc, 
#                         Jaywil Software Dev. Inc. 1-800-815-8370
#
# Derived from Library Search 1.0.1 release 1, 7-Feb-2002
#	by CCj/Clearline.
#	
#############################################################################
# Programming changes
# Oct.2008 - Emailing requests changed from using sendmail (unix) or 
#            smblat.exe (Windows) to using Perl Net::SMTP module
#############################################################################

#############################################################################
# Start of Main Program Section
# *NOTE* no changes are required in this file whatsoever.. view lib.conf
#############################################################################

#	&PrintHeader1;  						 # Print basic header info > WWW

	# check to see if CGI::Session is installed for password support
	my $UseSession = undef;
	my $installed = ExtUtils::Installed->new();
#	print "and ...";
	if (grep(/CGI::Session/,$installed->modules() )) {
		$UseSession = true;
#		print "found it.";
	}

#    # Find all the installed packages
#    print("Finding all installed modules...\n");
#    my $installed2 = ExtUtils::Installed->new();
#    foreach my $module ($installed2->modules) {
#       my $version = $installed2->version($module) || "???";
#       print("Found module $module Version $version\n");
#    }
#    
  
	$libConf = "lib.conf";
	$Jaywil_support_email = 'support@resoucemate.com';

# Find the configuration file. 
	# Original file path check for Unix-type servers & some NT servers too
	($libConf = $ENV{PATH_TRANSLATED}) =~ s/[^\\]*$/lib.conf/ unless ( -e $libConf);

	# Jan 20/2004 M.Whiting. Add a separate check to find lib.conf for NT servers, as
	#	they just don't seem to find it with the Unix check.  The check has never failed on
	#	Unix, so we've left it alone for them.
	$FileCheckCount = 0;
	unless (-e $libConf) {
		&FindConf;
	}

	&GetQueryData;
	&PrintHeader1;  							# Print basic header info > WWW

###### $virtual and $logoImage are used to describe web content on the forms
###### generated by this script.  They may be overridden by the  config
###### variables VIRTUAL and LOGO_IMAGE respectively.  Note the trailing
###### slash for virtual.
  $virtual   = "http://www.google.com/search/";
  $logoImage = "logo.gif";
  $script = "libsearch.cgi";
  $dirsep = "/";
	
###### $countpath defines the path to your count directory. Reads the value of
###### "pwd" to assign the correct count -- each new library created will have
###### a unique value, and this script will automatically generate a count data
###### file if it doesn't exist.  Define COUNTPATH in the config file to
###### override this default.  Note that on UNIX this may be a relative
###### pathname.  On NT it must be a fully qualified pathname.
  $countpath  = "tmp";

###### These may be overriden by the ORG_NAME, and ORG_URL config
###### vars respectively.
  $orgName  = "Our Favourite Org, Inc.";
  $orgUrl   = "http://www.google.com/";

###### Defaults for the search field labels, overridden by the SEARCH_FIELD_LABEL1,
###### SEARCH_FIELD_LABEL2, etc, values in lib.conf.
  $SearchFieldLabel1 = "Title";
  $SearchFieldLabel2 = "Author";
  $SearchFieldLabel3 = "Category";
  $SearchFieldLabel4 = "Subject";
  $SearchFieldLabel5 = "Dewey";
  $SearchFieldLabel6 = "ISBN";
  $SearchFieldLabel7 = "Publisher";
###### Seven more search fields added.  Nov.20/2006. M.Whiting
###### ($SearchFieldDisplayed and $SearchFieldSearchable defaults not declared here, 
######  code is written to effectively default to Y for both)
  $SearchFieldLabel8 = "User1";
  $SearchFieldLabel9 = "User2";
  $SearchFieldLabel10 = "User3";
  $SearchFieldLabel11 = "User4";
  $SearchFieldLabel12 = "User5";
  $SearchFieldLabel13 = "User6";
  $SearchFieldLabel14 = "User7";

###### Default for whether or not to show the 'request a book' area on the search results page.
  $AllowRequests = "Y";

###### New variables, may be overridden by conf.var.  April 2007. M.Whiting
	$ConfigIn{'SCREEN_BGCOLOR'} = 'White';
	$ConfigIn{'GENERAL_FONT_TYPE'} = 'Verdana';
	$ConfigIn{'GENERAL_FONT_SIZE'} = '10pt';
	$ConfigIn{'GENERAL_FONT_COLOR'} = 'Black';
	$ConfigIn{'GENERAL_FONT_COLOR'} = 'Black';
	$ConfigIn{'SHOW_ABOUT_LINK'} = 'Y';
	$ConfigIn{'SHOW_LIST_LIBRARIES_LINK'} = 'Y';
	$ConfigIn{'SHOW_CONTACT_ADMIN_LINK'} = 'Y';
	$ConfigIn{'SHOW_SEARCH_LINK'} = 'Y';
	$ConfigIn{'SHOW_VISITOR_NUMBER'} = 'Y';
	$ConfigIn{'SHOW_TOTAL_LIBRARY_DATABASES'} = 'Y';
	$ConfigIn{'TEXT_ABOUT_LINK'} = 'About';
	$ConfigIn{'TEXT_LIST_LIBRARIES_LINK'} = 'List Libraries';
	$ConfigIn{'TEXT_CONTACT_ADMIN_LINK'} = 'Contact Admin';
	$ConfigIn{'TEXT_SEARCH_LINK'} = 'Search';
	$ConfigIn{'TEXT_VISITOR_NUMBER'} = 'Visitor Number:';
	$ConfigIn{'TEXT_TOTAL_LIBRARY_DATABASES'} = 'Total Library Databases:';
	$ConfigIn{'SHOW_PASSWORD_REQUIRED'} = 'Y';
	$ConfigIn{'TEXT_PASSWORD_REQUIRED'} = 'Password Required';
	$ConfigIn{'TEXT_NO_PASSWORD_REQUIRED'} = 'No Password';
	$ConfigIn{'PASSWORD_TIMEOUT'} = '10m';
	$ConfigIn{'SHOW_NUM_DATABASE_ITEMS'} = 'Y';
	$ConfigIn{'RESULTSPAGE_TEXT_PREV_BUTTON'} = 'Prev';
	$ConfigIn{'RESULTSPAGE_TEXT_NEXT_BUTTON'} = 'Next';
	$ConfigIn{'SEARCHPAGE_SHOW_SEARCH_LIBRARY'} = 'Y';
	$ConfigIn{'SEARCHPAGE_TEXT_SEARCH'} = 'Search';
	$ConfigIn{'SEARCHPAGE_TEXT_LIBRARY_NAME'} = ''; #leave blank for dynamic name generation
	$ConfigIn{'SEARCHPAGE_SHOW_ENTER_FIELDS'} = 'Y';
	$ConfigIn{'SEARCHPAGE_TEXT_ENTER_FIELDS'} = 'Enter field(s) to search, select the checkbox for an exact phrase match';
	$ConfigIn{'SEARCHPAGE_SHOW_EXACT_PHRASE_CHECKBOX'} = 'Y';
	$ConfigIn{'SEARCHPAGE_TEXT_SEARCH_BUTTON'} = 'Search';
	$ConfigIn{'SEARCHPAGE_TEXT_CLEAR_BUTTON'} = 'Clear';
	$ConfigIn{'RESULTSPAGE_SHOW_LIBRARY_NAME'} = 'Y';
	$ConfigIn{'RESULTSPAGE_TEXT_LIBRARY_NAME'} = ''; #leave blank for dynamic name generation
	$ConfigIn{'RESULTSPAGE_SHOW_YOUR_SEARCH_FOUND'} = 'Y';
	$ConfigIn{'RESULTSPAGE_TEXT_YOUR_SEARCH_FOUND'} = 'Your Search Found';
	$ConfigIn{'RESULTSPAGE_TEXT_MATCHES'} = 'Match(es)';
	$ConfigIn{'RESULTSPAGE_TEXT_REQUEST_NAME'} = 'Name:';
	$ConfigIn{'RESULTSPAGE_TEXT_REQUEST_EMAIL'} = 'Phone Number/Email Address:';
	$ConfigIn{'RESULTSPAGE_TEXT_REQUEST_COMMENTS'} = 'Comments:';
	$ConfigIn{'RESULTSPAGE_TEXT_REQUEST_BUTTON'} = 'Request To Borrow Checked Item(s)';
	$ConfigIn{'RESULTSPAGE_TEXT_RESULT_#'} = 'Result #';
	$ConfigIn{'RESULTSPAGE_SHOW_RESULT_#'} = 'Y';
	$ConfigIn{'RESULTSPAGE_TEXT_FROM'} = ', from';
	$ConfigIn{'RESULTSPAGE_TEXT_DATABASE'} = '';
	$ConfigIn{'REQUESTPAGE_TEXT_REQUESTING'} = 'Requesting Item(s):';
	$ConfigIn{'REQUESTPAGE_TEXT_THANKYOU'} = 'Your Items Have Been Requested, Thank You';
	$ConfigIn{'RESULTSPAGE_TEXT_RETURN'} = "(Please press your browser's \'Back\' button<br>to return to Search Results)";
	$ConfigIn{'EMAIL_TEXT_BORROW'} = 'Borrow Request';
	$ConfigIn{'EMAIL_TEXT_TITLE1'} = '******************************************************';
	$ConfigIn{'EMAIL_TEXT_TITLE2'} = '                  Borrow Request Form';
	$ConfigIn{'EMAIL_TEXT_TITLE3'} = '                   from Library Search';
	$ConfigIn{'EMAIL_TEXT_TITLE4'} = '******************************************************';
	$ConfigIn{'EMAIL_TEXT_LIBRARY'} = 'Library              : ';
	$ConfigIn{'EMAIL_TEXT_NAME'} = 'Name Of Requestor: ';
	$ConfigIn{'EMAIL_TEXT_EMAIL'} = 'Phone/Email     : ';
	$ConfigIn{'EMAIL_TEXT_DATE'} = 'Date/Time         : ';
	$ConfigIn{'EMAIL_TEXT_FOOTER1'} = '******************************************************';
	$ConfigIn{'EMAIL_TEXT_COMMENTS'} = 'COMMENTS: ';
	$ConfigIn{'EMAIL_TEXT_REQUESTED_ITEM'} = '***************** Requested Item *****************';
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE1'} = 1;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE2'} = 2;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE3'} = 5;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE4'} = 6;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE5'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE6'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE7'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE8'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE9'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE10'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE11'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE12'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE13'} = 0;
	$ConfigIn{'EMAIL_FIELD_DETAIL_LINE14'} = 0;

#
# Set up name arrays for weekdays and month names.
#
@weekdays=(	"Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun");
@months=(	"Jan", "Feb", "Mar", "Apr", "May", "Jun", 
		"Jul", "Aug", "Sep", "Oct", "Nov", "Dec");

#
# Translate timezone-localized 'time' into a "struct tm" array.
#
($sec, $min, $hour, $mday, $month, $year, $wday, $yday, $ds) = localtime(time);

if ($sec < 10) {$sec = ("0$sec");} # Put a zero in front of the seconds, if needed to make 2 digits
if ($min < 10) {$min = ("0$min");} # Same with minutes

#
# Save the year for use in the copyright message.
#
$cpr_year=1900+$year;

#
# Generate a datestring for use when generating mail.
#
$mailheader_date="$weekdays[$wday], $mday $months[$month] $cpr_year " .
		 "$hour:$min:$sec";

&ReadConf;
&PrintHeaderLinks;		# Print The Commands > WWW
&PerformAction;		# perform the specified action. 
&PrintFooter;	  	# Print The Footer Information > WWW

exit;

#############################################################################
# Sub Procedures ############################################################
#############################################################################


############################################
# PrintHeader
# Purpose: To print the initial html code 
#          at the top of the page.       
############################################
sub PrintHeader1 {
	print "Content-type: text/html\n\n";

  print <<NCP;
<html>
  <head>
    <title>Library Search</title>
    <meta name="author" content="NCP Technologies and At Connex Global Communication Systems Inc">
NCP
}

sub PrintHeader2 {
  print <<NCP;
    <STYLE TYPE="text/css">
      <!--
NCP
	print "        .generalfont{font-family:$ConfigIn{'GENERAL_FONT_TYPE'};font-size:$ConfigIn{'GENERAL_FONT_SIZE'};color:$ConfigIn{'GENERAL_FONT_COLOR'}}\n";
	print "        TD{font-family:$ConfigIn{'GENERAL_FONT_TYPE'};font-size:$ConfigIn{'GENERAL_FONT_SIZE'};color:$ConfigIn{'GENERAL_FONT_COLOR'}}\n";
  print <<NCP;
      --->
    </STYLE>
  </head>	

NCP
	print "  <body bgcolor=$ConfigIn{'SCREEN_BGCOLOR'} text=#000000 link=#ff0000 vlink=#ff0000 alink=#ff0000>\n";
	print "    <DIV CLASS=generalfont>\n";
  print "      <center><img src=$virtual$logoImage><br>\n";
}

############################################
# PrintHeaderLinks
# Purpose: To Print the available commands
#          to the screen.
############################################
sub PrintHeaderLinks {
  print "<! Header links section>\n";
  print "      ";
  if ($ConfigIn{'SHOW_ABOUT_LINK'} =~ /^y/i) {print "[<a href=\"$aboutpage\">$ConfigIn{'TEXT_ABOUT_LINK'}</a>] ";}
  if ($ConfigIn{'SHOW_LIST_LIBRARIES_LINK'} =~ /^y/i) {print "[<a href=\"$script\">$ConfigIn{'TEXT_LIST_LIBRARIES_LINK'}</a>] ";}
	#mail link is in unicode so that isn't as easy for spam bots to id (hopefully), email in variable is also
  if ($ConfigIn{'SHOW_CONTACT_ADMIN_LINK'} =~ /^y/i) {print "[<a href=\"".&TextToUnicode("mailto:$adminEmail")."\">$ConfigIn{'TEXT_CONTACT_ADMIN_LINK'}</a>] ";}
  if ($ConfigIn{'SHOW_SEARCH_LINK'} =~ /^y/i) {
    if ($in{'dbNum'} ne '') {
      print "[<a href=\"$script?dbNum=$in{'dbNum'}&action=3";
	  	if (defined $sid) {
	    	print "&CGISESSID=$sid";
	  	} elsif (defined $in{'pwd'}) {
	    	print "&pwd=$pwd";
	    }
      print "\">$ConfigIn{'TEXT_SEARCH_LINK'}</a>] ";
		}
  }
  print "\n      <hr width=90% height=1>\n";
  print "<! End of header links section>\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 "<p><b>Invalid Password</b>";
		}
    &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/, <SEARCH>));
	  	close(SEARCH);
#print "<br>Lib Name:$LibName, Lib Filename:$LibDef{$LibName}[2] - $NumDbFields<br>";
#print "<br>$NumDbFields";
			if ($NumDbFields != 14 && $NumDbFields != 21) {
				print "<p>Unrecognized number of data fields in database file: $NumDbFields";
				print "<br>(Database filename: $LibDef{$LibName}[2])";
				print "<p>Please contact Jaywil Software at support\@resourcemate.com for an update or to resolve this problem.</p>";
				&PrintFooter;
				exit;
	  	}
			$LibDef{$LibName}[3] = $NumDbFields; #Assigned here instead of in ReadConf so user can search db's that have correct #'s of fields
			$MaxNumDbFields = $NumDbFields if $NumDbFields > $MaxNumDbFields;
		}
  
    if ($in{'action'} eq 3) { &SearchForm; }
    if ($in{'action'} eq 4) { &SearchResults; }
    if ($in{'action'} eq 5) { 
      if (defined $in{'BtnPrev'}) {
#        $carryon=1;
        &SearchResults;
      } elsif (defined $in{'BtnNext'}) {
#        $carryon=1;
        &SearchResults;
      } elsif (defined ($in{'BtnRequest'})) {
        &makeRequest; 
      } else {
      	# Redisplay search results, if any other button is pressed.
#				$carryon=1;
				&SearchResults;
			}
    }
  }
}


############################################
# SearchForm
# Purpose: To Get Database Searching info
#          from the viewer.
############################################
sub SearchForm {

  if ($ConfigIn{'SHOW_VISITOR_NUMBER'} =~ /^y/i) {
		print "<p>$ConfigIn{'TEXT_VISITOR_NUMBER'} "
			.&getCounterValue("count-lib-$databasedata[$in{'dbNum'}*10].txt")
			."</p>";
  }

  if ($ConfigIn{'SEARCHPAGE_SHOW_SEARCH_LIBRARY'} =~ /^y/i) {
    print "<p><b>$ConfigIn{'SEARCHPAGE_TEXT_SEARCH'} ";
  	if ($ConfigIn{'SEARCHPAGE_TEXT_LIBRARY_NAME'} eq '') {
  		print $databasedata[$in{'dbNum'}*10];
  	} else {
  		print $ConfigIn{'SEARCHPAGE_TEXT_LIBRARY_NAME'};
  	}
    print "</b></p>";
  }
   
  if ($ConfigIn{'SEARCHPAGE_SHOW_ENTER_FIELDS'} =~ /^y/i) {
  	print "<p><b>$ConfigIn{'SEARCHPAGE_TEXT_ENTER_FIELDS'}</b></p>";
  }

	print <<NCP;
	
 <form action="$script" method="get">
  <input type="hidden" name="dbNum" value="$in{'dbNum'}">
  <input type="hidden" name="action" value="4">
NCP

	if (defined $sid) {
  	print "<input type=\"hidden\" name=\"CGISESSID\" value=\"$sid\">";
	} elsif (defined $in{'pwd'}) {
  	print "<input type=\"hidden\" name=\"pwd\" value=\"$pwd\">";
  }

	print <<NCP;
  <table border=0 cellpadding=5 cellspacing=0>
   <tr>
NCP
 	for ($i=1;$i<=14;$i++) {
 		last if ($MaxNumDbFields == 14 && $i == 8);
 		if (eval("\$SearchFieldSearchable$i") ne "N") {
 			print "   <tr>" . chr(13);
 			print "    <td>" . eval("\$SearchFieldLabel$i") . ":</td>" . chr(13);
  		print "    <td><input type=text name=Field$i>&nbsp&nbsp";
  		if ($ConfigIn{'SEARCHPAGE_SHOW_EXACT_PHRASE_CHECKBOX'} =~ /^y/i) {
  			print "<input type=checkbox name=chkExactMatch$i value=\'[\\s,.:;]\'>";
  		}
  		print "</td>" . chr(13);
  		print "   </tr>" . chr(13);
  	}
 	}

 print <<NCP;
   </tr>
  </table>
  <br>
  <input type="hidden" name="StartNum" value="1">
  <input type="submit" value="$ConfigIn{'SEARCHPAGE_TEXT_SEARCH_BUTTON'}">
  <input type="reset" value="$ConfigIn{'SEARCHPAGE_TEXT_CLEAR_BUTTON'}">
  </form>
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 "    <p><b>";
  	if ($ConfigIn{'RESULTSPAGE_TEXT_LIBRARY_NAME'} eq '') {
  		print $databasedata[$in{'dbNum'}*10];
  	} else {
  		print $ConfigIn{'RESULTSPAGE_TEXT_LIBRARY_NAME'};
  	}
    print "</b></p>\n";
  }

  if ($ConfigIn{'RESULTSPAGE_SHOW_YOUR_SEARCH_FOUND'} =~ /^y/i) {
  	print "<p><b>$ConfigIn{'RESULTSPAGE_TEXT_YOUR_SEARCH_FOUND'} $NumBooksFound $ConfigIn{'RESULTSPAGE_TEXT_MATCHES'}</b></p>";
  }
  
  if ($NumBooksFound eq 0) { &PrintFooter; exit(0); }
  
  if ($FirstNumDisplayed > $NumBooksFound) {
    $FirstNumDisplayed = $NumBooksFound;
  }
  if (($FirstNumDisplayed) <= 0) { $FirstNumDisplayed = 1; }  

  $LastNumDisplayed = $FirstNumDisplayed + 9;

  if ($LastNumDisplayed > $NumBooksFound) { 
    $LastNumDisplayed = $NumBooksFound;
  } 

  print "<small>$FirstNumDisplayed-$LastNumDisplayed of $NumBooksFound </small>"; 

  print "<form method=\"get\" action=\"$script\">";
  print "<input type=\"hidden\" name=\"dbNum\" value=\"$in{'dbNum'}\">";
  print "<input type=\"hidden\" name=\"action\" value=\"5\">";
	if (defined $sid) {
  	print "<input type=\"hidden\" name=\"CGISESSID\" value=\"$sid\">";
	} elsif (defined $in{'pwd'}) {
  	print "<input type=\"hidden\" name=\"pwd\" value=\"$pwd\">";
  }

 	for ($i=1;$i<=14;$i++) {
 		last if ($NumDbFields == 14 && $i == 8);
 		$FieldValue = eval("\$in{Field$i}");
 		if ($FieldValue ne "") {
		  print "<input type=hidden name=Field$i value=\"$FieldValue\">";
  	}
 		if (eval("\$in{chkExactMatch$i}") ne "") {
   		print "<input type=hidden name=chkExactMatch$i value=\'[\\s,.:;]\'>";
  	}
 	}
 	
  print "<input type=\"hidden\" name=\"PrevFirstNum\" value=\"$FirstNumDisplayed\">";

# Print request-a-book area, if it has not be turned off in lib.conf;
  if ($AllowRequests =~ /^Y/i) {
    print <<NCP;
<hr width=40% height=1><br>
    <center>
    <table cellpadding=1 cellspacing=5 border=0>
NCP

		print "      <tr>\n";
		print "        <td nowrap align=right>$ConfigIn{'RESULTSPAGE_TEXT_REQUEST_NAME'} <input type=\"text\" name=\"name\" value=\"$in{'name'}\"></td>\n";
		print "        <td nowrap align=right>&nbsp&nbsp $ConfigIn{'RESULTSPAGE_TEXT_REQUEST_EMAIL'} <input type=\"text\" name=\"email\" value=\"$in{'email'}\"></td>\n      </tr>\n";
		print "      <tr>\n";
		print "        <td colspan=2 nowrap align=middle>$ConfigIn{'RESULTSPAGE_TEXT_REQUEST_COMMENTS'} <input type=\"text\" name=\"comm\" value=\"$in{'comm'}\" size=30></td>\n";

    print <<NCP;
      </tr>
    </table>
    <table border=0 cellpadding=4 cellspacing=4 width=70%><tr><td nowrap>
NCP

#   Print the books which have already been checked.
#    if ($carryon eq 1) {
			print "      <table>\n";
      for ($QryStrReqNum=1;$QryStrReqNum<$NumBooksFound;$QryStrReqNum++) {
        if ($in{$QryStrReqNum} eq "on") {
        	print "        <tr>\n";
          print "          <td><li>Checked: <i>$SearchResults[($QryStrReqNum*22+1)]</i>&nbsp&nbsp&nbsp</td>\n          <td>(#$QryStrReqNum";
        	if (defined $LibDef{$LibName}[1]) {
#        	if (defined $DbLineNames[$in{'dbNum'}][1]) { -delete this line if no problems
         		print ", from '$SearchResults[($QryStrReqNum*22)]'";
         	}
        	print ")";
#         Only print the field for the 'xx=on' query string item if we're not going to be printing it later as part of this screen's search results.
          if ($QryStrReqNum < $FirstNumDisplayed || $QryStrReqNum > $LastNumDisplayed) {
            print "<input type=\"hidden\" name=\"$QryStrReqNum\" value=\"on\">";
          }
        	print "</td>\n        </tr>\n";
        }
      }
			print "      </table>\n";    	
#    }

    print "      <p><center><input type=submit name=\"BtnRequest\" value=\"$ConfigIn{'RESULTSPAGE_TEXT_REQUEST_BUTTON'}\"></center></p></td></tr>" . chr(13);
    print "    </table>" . chr(13);
  }
# End of Request-a-book area.  

  print "    <hr width=40% height=1>";
  
# Print buttons at top of page
  if ($LastNumDisplayed <= 10) {$DisablePrev = 'disabled'};
  print "    <input type=\"submit\" name=\"BtnPrev\" value=\"$ConfigIn{'RESULTSPAGE_TEXT_PREV_BUTTON'}\" $DisablePrev>" . chr(13);
  if ($LastNumDisplayed == $NumBooksFound) {$DisableNext = 'disabled'};
	print "    <input type=\"submit\" name=\"BtnNext\" value=\"$ConfigIn{'RESULTSPAGE_TEXT_NEXT_BUTTON'}\" $DisableNext>" . chr(13);
  print "    <hr width=15% height=1>";

# Start looping through search results
  for ($SearchResultNum=$FirstNumDisplayed;$SearchResultNum<=$LastNumDisplayed;$SearchResultNum++) {
    print "    <table border=0 cellpadding=4 cellspacing=4 width=70%>" . chr(13);
	  print "      <tr><td colspan=2 align=left><small>$ConfigIn{'RESULTSPAGE_TEXT_RESULT_#'}";
	  if ($ConfigIn{'RESULTSPAGE_SHOW_RESULT_#'} =~ /^y/i) {
			print $SearchResultNum;
		}
		if (defined $DbLineNames[$in{'dbNum'}][1]) { 
			print "$ConfigIn{'RESULTSPAGE_TEXT_FROM'}";
			if ($ConfigIn{'RESULTSPAGE_TEXT_DATABASE'} eq '') {
				print " '$SearchResults[($SearchResultNum*22)]'";
			} else {
				print "$ConfigIn{'RESULTSPAGE_TEXT_DATABASE'}";
			}
  	}
 		print "</small></td></tr>";

#   Setup checkbox code for requesting books, if requesting not turned off
    if ($AllowRequests =~ /^Y/i) {
      $RequestBoxCode = "      <input type=checkbox name=$SearchResultNum value=on";

#     If this book entry is already checked, put a checkmark in the box.
      if ($in{$SearchResultNum} eq "on") {
        $RequestBoxCode = $RequestBoxCode . " checked";
      }
      $RequestBoxCode = $RequestBoxCode . "> ";
    }

		if ($SearchFieldDisplayed1 ne "N") {
	    print "      <tr><td bgcolor=\"#cccccc\" width=20%>$RequestBoxCode"; $RequestBoxCode = "";
      print "$SearchFieldLabel1 </td><td bgcolor=\"#dddddd\"><b>$SearchResults[($SearchResultNum*22)+1]";
      if ($SearchResults[($SearchResultNum*22)+2] ne '') {print " : $SearchResults[($SearchResultNum*22)+2]";}
      if ($SearchResults[($SearchResultNum*22)+3] ne '') {print " ($SearchResults[($SearchResultNum*22)+3])";}
      print "</b></td></tr>" . chr(13);
		}
		if ($SearchFieldDisplayed2 ne "N") {
  		print "      <tr><td bgcolor=\"#cccccc\">$RequestBoxCode"; $RequestBoxCode = "";
	    print "$SearchFieldLabel2 </td><td bgcolor=\"#eeeeee\">$SearchResults[($SearchResultNum*22)+4]";
	    if ($SearchResults[($SearchResultNum*22)+5] ne '') {
	      print ", $SearchResults[($SearchResultNum*22)+5]";
	    }
	    if ($SearchResults[($SearchResultNum*22)+6] ne '') {
	      print ", $SearchResults[($SearchResultNum*22)+6]";
	    }
      print "</td></tr>" . chr(13);
  	}
		if ($SearchFieldDisplayed3 ne "N") {
  		print "      <tr><td bgcolor=\"#cccccc\">$RequestBoxCode"; $RequestBoxCode = "";
      print "$SearchFieldLabel3</td><td bgcolor=\"#eeeeee\">$SearchResults[($SearchResultNum*22)+8]</td></tr>" . chr(13);
  	}
		if ($SearchFieldDisplayed4 ne "N") {
  		print "      <tr><td bgcolor=\"#cccccc\">$RequestBoxCode"; $RequestBoxCode = "";
      print "$SearchFieldLabel4 </td><td bgcolor=\"#eeeeee\">$SearchResults[($SearchResultNum*22)+11]";
	    if ($SearchResults[($SearchResultNum*22)+12] ne '') {print "<br>$SearchResults[($SearchResultNum*22)+12]";}
	    if ($SearchResults[($SearchResultNum*22)+13] ne '') {print "<br>$SearchResults[($SearchResultNum*22)+13]";}
	    if ($SearchResults[($SearchResultNum*22)+14] ne '') {print "<br>$SearchResults[($SearchResultNum*22)+14]";}
      print "      </td></tr>" . chr(13);
  	}
		if ($SearchFieldDisplayed5 ne "N") {
  		print "      <tr><td bgcolor=\"#cccccc\">$RequestBoxCode"; $RequestBoxCode = "";
      print "$SearchFieldLabel5 </td><td bgcolor=\"#eeeeee\">$SearchResults[($SearchResultNum*22)+9]</td></tr>" . chr(13);
  	}
		if ($SearchFieldDisplayed6 ne "N") {
  		print "      <tr><td bgcolor=\"#cccccc\">$RequestBoxCode"; $RequestBoxCode = "";
      print "$SearchFieldLabel6 </td><td bgcolor=\"#eeeeee\">$SearchResults[($SearchResultNum*22)+10]</td></tr>" . chr(13);
  	}
		if ($SearchFieldDisplayed7 ne "N") {
  		print "      <tr><td bgcolor=\"#cccccc\">$RequestBoxCode"; $RequestBoxCode = "";
      print "$SearchFieldLabel7</td><td bgcolor=\"#eeeeee\">$SearchResults[($SearchResultNum*22)+7]</td></tr>" . chr(13);
		}

	 	# 7 new fields. Nov 30/2006. M.Whiting
#	 	if ($LibDef{$SearchResults[($SearchResultNum*22)]}[3] > 14) {
	 	($_ = $SearchResults[($SearchResultNum*22)]) =~ tr/a-z/A-Z/;
	 	if ($LibDef{$_}[3] > 14) {
#	 	if ($LibDef{$SearchResults[($SearchResultNum*22)]}[3] > 14) {
		 	for ($i=8; $i<=14 ; $i++) {
		 		if (eval("\$SearchFieldDisplayed$i") ne "N") {
  				print "      <tr><td bgcolor=\"#cccccc\">$RequestBoxCode"; $RequestBoxCode = "";
		 			print eval("\$SearchFieldLabel$i") . "</td><td bgcolor=#eeeeee>$SearchResults[($SearchResultNum*22)+7+$i]</td></tr>" . chr(13);
		  	}
		  }
	 	}
    print "    </table><hr width=15% height=1>" . chr(13);
  }

  if ($LastNumDisplayed <= 10) {$DisablePrev = 'disabled'};
  print "    <input type=\"submit\" name=\"BtnPrev\" value=\"$ConfigIn{'RESULTSPAGE_TEXT_PREV_BUTTON'}\" $DisablePrev>" . chr(13);
  if ($LastNumDisplayed == $NumBooksFound) {$DisableNext = 'disabled'};
	print "    <input type=\"submit\" name=\"BtnNext\" value=\"$ConfigIn{'RESULTSPAGE_TEXT_NEXT_BUTTON'}\" $DisableNext>" . chr(13);
  print "  </form>" . chr(13);
}

############################################
# SearchDatabase
# Purpose: Does the actual search  
#          
############################################
sub SearchDatabase {

# Transfer all $Fieldxx into a new field so that we can manipulate the new field without
# changing the original details, which are needed intact to pass to the next screen.
# Bail if all the match strings are empty.
	$ValidFieldFound = "";
  my $i=0;
  foreach ($in{'Field1'}, $in{'Field2'}, $in{'Field3'}, $in{'Field4'},
	     		 $in{'Field5'}, $in{'Field6'}, $in{'Field7'}, $in{'Field8'},
  	   		 $in{'Field9'}, $in{'Field10'},$in{'Field11'},$in{'Field12'},
    	 		 $in{'Field13'},$in{'Field14'}) {
		$_ =~ s/(^\s+|\s+$)//; # Strip any leading & trailing whitespace from each field
		$SearchTerm[++$i] = $_;
    if ($SearchTerm[$i] ne '') {
    	$ValidFieldFound = "Y";
			$SearchTerm[$i] =~ s/([\Q*[]+{}()^$'"@.\E])/\\$1/g; # Substitute in escape backslash for characters regex sees as metacharacters.
  	}
  }

  unless ($ValidFieldFound) {
  	print "<p>No search parameters given!</p>";
  	&PrintFooter;
  	exit;
	}
	
# Set the results counter and an initial empty slot of
# the @SearchResults array. 
#
  $NumBooksFound=0;
  push(@SearchResults, "", "", "", "", "", "", "", "", "", "", "",
                       "", "", "", "", "", "", "", "", "", "", "");

# Open the database file and read it line by line.  Try to match every
# criteria against each line.  If all criteria match a line, push() that
# line into the @SearchResults array.
#
	foreach $LibName (@{$DbLineNames[$in{'dbNum'}]}) {
  	open (SEARCH, $LibDef{$LibName}[2]);
	  while (<SEARCH>) {
	    @BookDataFields = split(/\t/, $_); 
	    foreach (@BookDataFields) {s/^\"//; s/\"$//;}; #Remove doublequotes from db fields, they screw up checking for whitespace at start/end of field
	
	    #Start searching
	    next if ($SearchTerm[1] ne ''		#By default, the Title search field
		     && $BookDataFields[0] !~ m/(\A|$in{chkExactMatch1})$SearchTerm[1](\Z|$in{chkExactMatch1})/i
		     && $BookDataFields[1] !~ m/(\A|$in{chkExactMatch1})$SearchTerm[1](\Z|$in{chkExactMatch1})/i
		     && $BookDataFields[2] !~ m/(\A|$in{chkExactMatch1})$SearchTerm[1](\Z|$in{chkExactMatch1})/i);
	
	    next if ($SearchTerm[2] ne ''  	#By default, the Author search field
		     && $BookDataFields[3] !~ m/(\A|$in{chkExactMatch2})$SearchTerm[2](\Z|$in{chkExactMatch2})/i
		     && $BookDataFields[4] !~ m/(\A|$in{chkExactMatch2})$SearchTerm[2](\Z|$in{chkExactMatch2})/i
		     && $BookDataFields[5] !~ m/(\A|$in{chkExactMatch2})$SearchTerm[2](\Z|$in{chkExactMatch2})/i);
	
	    next if ($SearchTerm[3] ne '' && $BookDataFields[7] !~ m/(\A|$in{chkExactMatch3})$SearchTerm[3](\Z|$in{chkExactMatch3})/i); #By def, Category
	
	    next if ($SearchTerm[4] ne ''		#By default, the Subject search field
		     && $BookDataFields[10] !~ m/(\A|$in{chkExactMatch4})$SearchTerm[4](\Z|$in{chkExactMatch4})/i
		     && $BookDataFields[11] !~ m/(\A|$in{chkExactMatch4})$SearchTerm[4](\Z|$in{chkExactMatch4})/i
		     && $BookDataFields[12] !~ m/(\A|$in{chkExactMatch4})$SearchTerm[4](\Z|$in{chkExactMatch4})/i
		     && $BookDataFields[13] !~ m/(\A|$in{chkExactMatch4})$SearchTerm[4](\Z|$in{chkExactMatch4})/i);
	
	    $in{chkExactMatch5} =~ s/.+/\\s/; #Dewey 'exact-match' filter only searches for whitespace, as periods are signicant in Dewey's.
	    next if ($SearchTerm[5] ne '' && $BookDataFields[8] !~ m/(\A|$in{chkExactMatch5})$SearchTerm[5](\Z|$in{chkExactMatch5})/i); #By def, Dewey
	    next if ($SearchTerm[6] ne '' && $BookDataFields[9] !~ m/(\A|$in{chkExactMatch6})$SearchTerm[6](\Z|$in{chkExactMatch6})/i); #By def, ISBN
	    next if ($SearchTerm[7] ne '' && $BookDataFields[6] !~ m/(\A|$in{chkExactMatch7})$SearchTerm[7](\Z|$in{chkExactMatch7})/i); #By def, Publisher
	
			# Nov.20/2006. M.Whiting. Seven new fields added to the data file exported from RM.
			# Check if new format before trying to do search.
			if ($LibDef{$LibName}[3] > 14) {
				next if ($SearchTerm[8] ne '' && $BookDataFields[14] !~ m/(\A|$in{chkExactMatch8})$SearchTerm[8](\Z|$in{chkExactMatch8})/i); 
				next if ($SearchTerm[9] ne '' && $BookDataFields[15] !~ m/(\A|$in{chkExactMatch9})$SearchTerm[9](\Z|$in{chkExactMatch9})/i); 
				next if ($SearchTerm[10] ne '' && $BookDataFields[16] !~ m/(\A|$in{chkExactMatch10})$SearchTerm[10](\Z|$in{chkExactMatch10})/i); 
				next if ($SearchTerm[11] ne '' && $BookDataFields[17] !~ m/(\A|$in{chkExactMatch11})$SearchTerm[11](\Z|$in{chkExactMatch11})/i); 
				next if ($SearchTerm[12] ne '' && $BookDataFields[18] !~ m/(\A|$in{chkExactMatch12})$SearchTerm[12](\Z|$in{chkExactMatch12})/i);  
				next if ($SearchTerm[13] ne '' && $BookDataFields[19] !~ m/(\A|$in{chkExactMatch13})$SearchTerm[13](\Z|$in{chkExactMatch13})/i); 
				next if ($SearchTerm[14] ne '' && $BookDataFields[20] !~ m/(\A|$in{chkExactMatch14})$SearchTerm[14](\Z|$in{chkExactMatch14})/i);
			}
	
	  	# If we get to this point we have a match.
	    $NumBooksFound++; 
	  
			# Add the extra 7 slots for older libsearch databases.
			if ($LibDef{$LibName}[3] == 14) {
				push(@BookDataFields, "", "", "", "", "", "", "");
			}
			# Push library name into first of 22 slots allotted for this book result
			push(@SearchResults, $LibDef{$LibName}[0]);
			# Push @BookDataFields into the other 21 slots of the array
	    push(@SearchResults, @BookDataFields);
	  }
	
	  close(SEARCH);
	}
}


############################################
# PrintFooter
# Purpose: To Print The footer info to the
#          WWW
############################################
sub PrintFooter {
	print "<br><br><br>\n";
  print "<! Footer section>\n";
	&PrintFooterLinks;
	print <<NCP;
      <hr width=90% height=1>
      <small><small><small<br>(c) copyright $cpr_year <a href="$orgUrl">$orgName.</a></small></small></small><br>
<! End of footer section>
    </DIV>
  </body>
</html>
NCP
}

############################################
sub PrintFooterLinks {
	# 10 new links. Oct 2009. M.Whiting
  print "      <table width=100%><tr><td width=5%>&nbsp</td><td width=90% align=$ConfigIn{'ADDITIONAL_LINK_JUSTIFY'}>\n";	
 	for ($i=1; $i<=10 ; $i++) {
 		if ((eval("\$ConfigIn{'ADDITIONAL_LINK_LABEL$i'}") ne "")
 		 && (eval("\$ConfigIn{'ADDITIONAL_LINK_URL$i'}"  ) ne "")) {
			print "        <a href=\"", eval("\$ConfigIn{'ADDITIONAL_LINK_URL$i'}"), "\">";
			print eval("\$ConfigIn{'ADDITIONAL_LINK_LABEL$i'}");
			print "</a><br>";
			if ($ConfigIn{'ADDITIONAL_LINK_DOUBLESPACE'} =~ /^y/i) {print '<br>'}
			print "\n";
  	}
	}
	print "      </td><td width=5%>&nbsp</td></tr></table>";
}

############################################
# ListDatabases
# Purpose: To list the available databases
#          
############################################
sub ListDatabases {

  if ($ConfigIn{'SHOW_VISITOR_NUMBER'} =~ /^y/i) {
		print "      <p>$ConfigIn{'TEXT_VISITOR_NUMBER'} ".&getCounterValue("count-list-libs.txt")."</p>\n";
	}

  if ($ConfigIn{'SHOW_TOTAL_LIBRARY_DATABASES'} =~ /^y/i) {
   print "      <p><b>$ConfigIn{'TEXT_TOTAL_LIBRARY_DATABASES'} $NumDbLineNames</b></p>\n";
  }
  for ($a=1;$a<=$NumDbLineNames;$a++) {
   if (($databasedata[($a*10)+2] eq "*") || ($databasedata[($a*10)+2] eq "")) {
    print "      <p><a href=\"$script?dbNum=$a&action=3\">$databasedata[($a*10)+0]</a>";
   }
   else {
    print "      <p><a href=\"$script?dbNum=$a&action=2\">$databasedata[($a*10)+0]</a>";
   }
   if (($ConfigIn{'SHOW_NUM_DATABASE_ITEMS'} eq "Y") || ($ConfigIn{'SHOW_PASSWORD_REQUIRED'} eq "Y")) {
		 print " -";
	 }
   if ($ConfigIn{'SHOW_PASSWORD_REQUIRED'} eq "Y") {
		 print " (<i>";
		 if (($databasedata[($a*10)+2] ne "*") && ($databasedata[($a*10)+2] ne "")) {
		 	#mail link is in unicode so that isn't as easy for spam bots to id (hopefully), email in variable is also
	    print "<a href=\"".&TextToUnicode("mailto:$databasedata[($a*10)+3]")."\">$ConfigIn{'TEXT_PASSWORD_REQUIRED'}</a>";
	   }
	   else {
	    print $ConfigIn{'TEXT_NO_PASSWORD_REQUIRED'};
	   }
	   print "</i>)";
	 }
   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 = "<b> Missing Email/Phone or Name </b><br>\n"
 }

 &SearchDatabase;

 $selected = 0;
 for($a=1;$a<=$NumBooksFound;$a++) {
  if ($in{$a} eq "on") {
   $selected++; 
  }
 }
 
 if ($selected==0) { 
  $errMsg = "<b> No Items Selected! </b><br>\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 "<b>$databasedata[($in{'dbNum'}*10)+0]</b><br><br>";
 print "<b>$ConfigIn{'REQUESTPAGE_TEXT_REQUESTING'}</b><br><br>";
 $i=0;
 for($a=1;$a<=$NumBooksFound;$a++) {
  if ($in{$a} eq "on") {
   print " $SearchResults[($a*22+1)]<br>";
  }
 }
	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 "<br>Found: $a, $SearchResults[($a*22)]";
			}
    }
    next if $FoundOne eq "N";
		
for my $addr ( split /,/, $LibDef{$LibName}[1] ) {
		use Net::SMTP;		
		$SMTPServer = 'localhost' unless (defined $SMTPServer);
	  $NetSMTP = Net::SMTP->new($SMTPServer, Timeout => 60 ) || die "Unable to open connection to SMTP server named '$SMTPServer'.\nError Message: $! \n";
    $NetSMTP->mail($adminEmail);
    $NetSMTP->to($addr);
#    print "sending from [$adminEmail] to [$LibDef{$LibName}[1]]";
    $NetSMTP->data();

    # 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
    if ($SmblatEmailOnly =~ /^Y/i) {
    	$NetSMTP->datasend("To: $addr\n");
    	$NetSMTP->datasend("From: $adminEmail\n");
    } else {
    	$NetSMTP->datasend("To: Libary Admin <$addr>\n");
    	$NetSMTP->datasend("From: $adminName <$adminEmail>\n");
  	}

		$NetSMTP->datasend("Date: $mailheader_date -0500\n");
    $NetSMTP->datasend("Subject: $ConfigIn{'EMAIL_TEXT_BORROW'}\n");
    $NetSMTP->datasend("Organization: $orgName\n");
    $NetSMTP->datasend("\n");

    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_TITLE1'}\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_TITLE2'}\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_TITLE3'}\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_TITLE4'}\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_LIBRARY'}$LibDef{$LibName}[0]\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_NAME'}$in{'name'}\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_EMAIL'}$in{'email'}\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_DATE'}$mailheader_date\n");
    $NetSMTP->datasend("$ConfigIn{'EMAIL_TEXT_FOOTER1'}\n");
    $NetSMTP->datasend("$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])) {
      	$NetSMTP->datasend("\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;}
        		$NetSMTP->datasend(eval("\$SearchFieldLabel$FieldNum") . "                 : $SearchResults[($a*22)+$ArrayPosition]\n");
        	}
        }
    	}
    }
    $NetSMTP->datasend("\n\n(c) copyright $cpr_year $orgName.\n");
    $NetSMTP->dataend();
    $NetSMTP->quit;
} # multi addr for loop
  }
  print "<br><br><b>$ConfigIn{'REQUESTPAGE_TEXT_THANKYOU'}</b>";
	print "<p><br>$ConfigIn{'RESULTSPAGE_TEXT_RETURN'}</p>" . chr(13);
}

############################################
# PrintLoginForm
# Purpose: To Print The Login Form
#          
############################################
sub PrintLoginForm {
 print <<NCP;
 <b><p>Login To $databasedata[($in{'dbNum'}*10)+0]</p></b>
 <p>Password: 
 <form action="$script" method="get">
  <input type="hidden" name="dbNum" value="$in{'dbNum'}">
  <input type="password" name="pwd">
  <input type="hidden" name="action" value="3">
  <br><br><input type="submit" value="Login">
  <input type="reset" value="Reset">
 </form>
 </p>
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 = <COUNTER> unless (eof(COUNTER));
 truncate(COUNTER, 0);
 print COUNTER (++$count);
 close(COUNTER);
 return $count;
}


############################################
# ShowEnvVar 
# Purpose: For Jaywil debugging purposes,
#          outputs all server environment 
#          variables to the screen.
#          Added Jan/2004. M.Whiting.
############################################
sub ShowEnvVar {
# Note this procedure won't produce much under IIS.  IIS requires you to
# explicity specify each parameter you want to see, running through them
# in a foreach loop won't coax them out of the server.

 	#mail link is in unicode so that isn't as easy for spam bots to id (hopefully), email in variable is also
  print "Content-type: text/html\n\n"; 
  print "<tt>\n";
  print "<p>Note: This page is for debugging purposes by Jaywil Software.<br><br>";
  print "Please copy and paste this page into your email program<br>";
  print "and send it to <a href=\"".&TextToUnicode("mailto:").$Jaywil_support_email."\">Jaywil Software</a>.  Thank-you.</p><br>";
  print "<p>Start of Environment Variables:</p>"; 
  foreach $key (sort keys(%ENV)) { 
    print "$key = $ENV{$key}<br>"; 
  }
  print "<p>End of Environment Variables</p>"; 
  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<BR>\n";
  		# eval("\$$key = \"$value\"");
      $in{$key} = $value;
      
			if ($key =~ /show_var/i) {&ShowEnvVar()};
			if ($key =~ /encrypt/i) {&EncryptEmailAddress($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;
  
  # 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 "<br>Lib.conf file not found! ($FileCheckCount checks)<br>";
	 	#mail link is in unicode so that isn't as easy for spam bots to id (hopefully), email in variable is also
		print "Please <a href=\"".&TextToUnicode("mailto:").$Jaywil_support_email."\">contact Jaywil Software</a> for assistance.<br>";
		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 "<br>Temp folder for session file path not found!<br>";
		print "Path attempted: $SessionFilePath<br>";
 		#mail link is in unicode so that isn't as easy for spam bots to id (hopefully), email in variable is also
		print "Please <a href=\"&#109;&#97;&#105;&#108;&#116;&#111;&#58;$Jaywil_support_email\">contact Jaywil Software</a> for assistance.<br>";
		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 = <NCP>;
close(NCP);

foreach $stream (@data) {
  chomp($stream);
  @config = split(/:/, $stream);
 	$NumFields = scalar(@config);
 	
  ($confvar = shift(@config)) =~ s/(^\s+|\s+$)//g;
 	next if (scalar(@config) == 0);

  if ($confvar eq "DATABASE") {
  	$NumDbLineNames++;
		$a = $NumDbLineNames*10;
		$b = 0;

		($databasedata[$a++] = $config[$b++]) =~ s/(^\s+|\s+$)//g;  #name of library
		($databasedata[$a++] = $config[$b++]) =~ s/(^\s+|\s+$)//g;  #location of library
		($databasedata[$a++] = $config[$b++]) =~ s/(^\s+|\s+$)//g;  #library password
		($databasedata[$a++] = $config[$b++]) =~ s/(^\s+|\s+$)//g;  #email one - for password request
		($databasedata[$a++] = $config[$b++]) =~ s/(^\s+|\s+$)//g;  #email two - for requests, unless there are LIB_DEF statements in lib.conf, they are used instead
		
  	# The next element is the path and filename that contains the library
  	# data.  If the path contains colons (like c:/sample.txt) the split operation
  	# will separate the path into several fields at the colons. Check for 
  	# extra fields and append them back together.
 		$databasedata[$a] = $config[$b++];
 		if ($NumFields > 8) {
	 		for ($i=1;$i<=$NumFields-8;$i++) {
	  		$databasedata[$a] = $databasedata[$a] . ":" . $config[$b++];
	  	}
  	}
		# Split the library data into a new array at commas & store into $DbLineNames array for later validation.
  	@_ = split(/,/, $databasedata[$a]);
  	$DbLineNames[$NumDbLineNames] = [@_];

  	$databasedata[++$a] = $config[$b];  # number of records
	
  }

  if ($confvar eq "LIBRARY_DEFINITION") {
		# Remove leading/trailing spaces from Library Definition fields
		# $config[0] is the library name, convert to uppercase & use that to
		# create a hash to store all the location info.  Note that element 0
		# of the hash is the same name in mixed case.
		($Keyname = $config[0]) =~ tr/a-z/A-Z/;
		($LibDef{$Keyname}[0] = $config[0]) =~ s/(^\s+|\s+$)//g; # multi-case name
		($LibDef{$Keyname}[1] = $config[1]) =~ s/(^\s+|\s+$)//g; # email
		($LibDef{$Keyname}[2] = $config[2]) =~ s/(^\s+|\s+$)//g; # library data location 

  	# If the library path contains colons (like c:/sample.txt) the earlier split operation
  	# separated the path into several fields at the colons. Check for 
  	# extra fields and append them back together into one field.
  	# This loop depends on there being no other fields after the library data location field (a little
  	# different than what happens with the splitting up of the DATABASE line.
 		if ($NumFields > 4) {
 			# Loop through extra indices, subtract 1 from $NumFields for first lib.conf line not in config array, and 1 for the diff in zero vs 1-based array counting
	 		for ($i=3;$i<=$NumFields-2;$i++) {
	 			# Attached indices beyond the library data location field back to it (they
	 			# were 'split' on a colon which was part of the location name
	  		$LibDef{$Keyname}[2] = $LibDef{$Keyname}[2] . ":" . $config[$i];
	  	}
  	}
  }

	# Handle normal config vars, removing leading or trailing whitespaces.
  ($virtual    = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "VIRTUAL");
  ($logoImage  = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "LOGO_IMAGE");
  ($adminEmail = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "ADMINEMAIL");
  ($aboutpage  = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "ABOUTPAGE");
  ($adminName  = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "ADMINNAME");
  ($dirsep     = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "DIRSEP");
  ($script     = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "CGISCRIPT");
  ($orgName    = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "ORG_NAME");
  ($SMTPServer = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "SMTPSERVER");
  ($AllowRequests = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "ALLOW_REQUESTS");
  ($SmblatEmailOnly = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "SMBLAT_EMAIL_ONLY");
  ($MultiLocEnableCode = $config[0]) =~ s/(^\s+|\s+$)//g if ($confvar eq "MULTILOC_ENABLE_CODE");

  if (substr($confvar,0,18) eq "SEARCH_FIELD_LABEL") {
  	eval('($SearchFieldLabel' . substr($confvar,18,2) . ' = $config[0]) =~ s/(^\s+|\s+$)//g');
  }
  if (substr($confvar,0,23) eq "SEARCH_FIELD_SEARCHABLE") {
		# remove any leading whitespace, only first alpha character is kept.
  	$config[0] =~ s/^\s//g;
  	eval('$SearchFieldSearchable' . substr($confvar,23,2) . ' = uc(substr("$config[0]",0,1))');
  }
  if (substr($confvar,0,22) eq "SEARCH_FIELD_DISPLAYED") {
		# remove any leading whitespace, only first alpha character is kept.
  	$config[0] =~ s/^\s//g;
  	eval('$SearchFieldDisplayed' . substr($confvar,22,2) . ' = uc(substr("$config[0]",0,1))');
  }

# Handle config vars that might have colons in them (removing lead/trailing whitespaces)
# This is harmless if the value had no colons in it.
	($countpath = join(":", @config)) =~ s/(^\s+|\s+$)//g if ($confvar eq "COUNTPATH");
	($virtual   = join(":", @config)) =~ s/(^\s+|\s+$)//g if ($confvar eq "VIRTUAL");
	($orgUrl    = join(":", @config)) =~ s/(^\s+|\s+$)//g if ($confvar eq "ORG_URL");
	($LocalDataPath = join(":", @config)) =~ s/(^\s+|\s+$)//g if ($confvar eq "LOCAL_DATA_PATH");

# Handle all & any new config vars. April 2007. M.Whiting
	$ConfigIn{$confvar} = join(":", @config);
	if ($confvar !~ /TEXT/) {$ConfigIn{$confvar} =~ s/(^\s+|\s+$)//g;} #Strip whitespace for non *TEXT* fields
	if ($confvar =~ /SHOW/) {$ConfigIn{$confvar} =~ tr/[a-z]/[A-Z]/;} #Change Y/N fields to uppercase
 }

# All config info is stored, so print the rest of the HTML header (some header info is in config file)
	&PrintHeader2;

	# Decrypt all email addresses if required, now that encryption indicator from lib.conf is stored
	if ($ConfigIn{'EMAIL_ADDRESSES_ENCRYPTED'} =~ /^y/i) {
  	for ($loopnum=1;$loopnum<=$NumDbLineNames;$loopnum++) {
  		$databasedata[$loopnum*10+3] = DecryptEmailAddress($databasedata[$loopnum*10+3]); #password request email
  		$databasedata[$loopnum*10+4] = DecryptEmailAddress($databasedata[$loopnum*10+4]); #book request email
  	}
  	foreach $LibName (keys %LibDef) {
  		$LibDef{$LibName}[1] = DecryptEmailAddress($LibDef{$LibName}[1]);
  	}
  	$adminEmail = DecryptEmailAddress($adminEmail);
	}
	
# Check for other stuff
  if (defined $in{"ShowLibConfVar"}) {print "lib.conf variable ",$in{"ShowLibConfVar"},": [",$ConfigIn{$in{"ShowLibConfVar"}},"]";	exit;}
	
	unless (defined $LocalDataPath) {$LocalDataPath = getcwd() . "/";}
	
	# Test that $LocalDataPath exists.  This is an issue in Winserver 2003
	unless (-e $LocalDataPath) {
		print "<br>LOCAL_DATA_PATH is invalid ($LocalDataPath)";
		print "<br>Please contact Jaywil Software at support\@resourcemate.com for assistance.";
	exit;
	}
	
 	for $DbLineNum (1 .. $NumDbLineNames) {
		for $DbLineFileNum (0 .. $#{$DbLineNames[$DbLineNum]}) {
			$_ = $DbLineNames[$DbLineNum][$DbLineFileNum];

			if ($_ =~ /^(www|http)/i ) {
					print "<br>'$databasedata[$DbLineNum*10]' database line specifies";
					print "<br>library named '$_'.";
					print "<br>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 "<br>'$databasedata[$DbLineNum*10]' database line specifies";
					print "<br>library named '$_'.";
					print "<br>No corresponding library definition statement was found in lib.conf file.";
					print "<br>Please enter a library definition or check spelling.";
					print "<p>(You can contact Jaywil Software at support\@resourcemate.com if you need assistance)</p>";
					exit;
				} 					
			} else {
				if (defined $DbLineNames[$DbLineNum][1]) {
					print "<br>Multiple library locations specified on '$databasedata[$DbLineNum*10]' database line in lib.conf file.";
					print "<p>Please contact Jaywil Software about the multi-library version of Web Search.</p>";
					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 "<p>File not found for library named '$LibName'";
	 			print "<br>(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 "<p>Problem getting remote database file: $_";
	 			print "<p>Transfer Error Message: ";
				print status_message($returncode);
				print "<br>(HTTP error code # $returncode)";
				print "Please <a href=\"&#109;&#97;&#105;&#108;&#116;&#111;&#58;$Jaywil_support_email\">contact Jaywil Software</a> for assistance.<br>";
				print 
				exit;
	 		}
#print "<BR>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'});
	}
}

sub EncryptEmailAddress {
	$_ = $_[0];
  print "Content-type: text/html\n\n";
	print "</head><h1>Library Search - Email Encryption</h1>";
  print "<p>This is a simple screen to show you what the encrypted form of an email<br>";
  print "address should be.  Copy & paste the encrypted text below into your lib.conf file.<br>";
	print "Please <a href=\"&#109;&#97;&#105;&#108;&#116;&#111;&#58;$Jaywil_support_email\">contact Jaywil Software</a> for assistance.<br>";
  print "<p>Starting email is: $_";

	my $ascii_offset = 10;
	my @text_as_arr=split(//,$_);
	my @newarr = undef;
	#designed to handle ascii codes 33 through 126
	foreach $character (@text_as_arr) {
#		print "<br>[$character]";
		if (ord($character)<=(126-$ascii_offset)) {
			push @newarr, chr(ord($character)+$ascii_offset);
			
#  		print ",[",chr(ord($character)+$ascii_offset),"],",ord($character)+$ascii_offset;
		} else {
		  push @newarr, chr(ord($character)+$ascii_offset-94);
#  		print ",[",chr(ord($character)+$ascii_offset-94),"],",ord($character)+$ascii_offset-94;
		}
	}
	my $newstring = join "", @newarr;
	
	($displaystring = $newstring) =~ s/</&#60/g; # convert the less than symbol to html-friendly code for display only
	print "<p>New encrypted text for lib.conf:<br>$displaystring";
	exit;
}

sub DecryptEmailAddress {
  my $plain_text_address = undef;
	my $ascii_offset = 10;
	my $encrypted_email = $_[0];
 	my @encrypted_as_single_chars=split(//,$encrypted_email);
	my @newarr = undef;
	#designed to handle ascii codes 33 through 126
	foreach $character (@encrypted_as_single_chars) {
		#print "<br>[$character]";
		if (ord($character)>=(33+$ascii_offset)) {
		  push @newarr, chr(ord($character)-$ascii_offset);
  	#	print ",[",chr(ord($character)-$ascii_offset),"],",ord($character)-$ascii_offset;
		} else {
		  push @newarr, chr(ord($character)-$ascii_offset+94);
  	#	print ",[",chr(ord($character)-$ascii_offset+94),"],",ord($character)-$ascii_offset-94;
		}
	}
	$plain_text_address = join "", @newarr;
}

sub TextToUnicode {
	$plain_text_address = $_[0];
	#  print "<br>plain_text_address:",$plain_text_address,"";

# Take the (decrypted) email address & change to unicode characters, they display fine on
# the browser but don't look like anything useful in the source code (anti-spam bot method).
 	my @plaintext_as_single_chars=split(//,$plain_text_address);
 	@newarr = undef;
 	foreach $character (@plaintext_as_single_chars) {
#		print "<br>[$character]";
 		push @newarr, "&#".ord($character).";";
#		print ",[",$character,"],","&# ".ord($character).";";
 	}
	my $unicode_address = join "", @newarr;
#	print "<br>unicode_address:",$unicode_address,"<p>";
# print "----------------------------------<p>";

	return $unicode_address;
}