#!/usr/bin/perl # define some global variables $fields = 10; # Number of fields in each record $filename = "bookworm.txt"; # The database file $results = 900; # maximum number of results to display $totalfound = 0; $counter=0; &parse_form; &open_file("FILE1","",$filename); $findrange = $FORM{'item'}; $looping = 0; $thistable = 0; print "Content-type: text/html\n\n"; print "\n"; print <Search Results tohere1a print <

Military Bookworm

$findrange

tohere1a $counter = 0; while (($line = &read_file("FILE1")) && ($counter < $results)) { # split the fields at the ,$ character @tabledata = split(/\s*\|\s*/,$line ,$fields); &check_record; if ($found == 1) { $counter++; &print_record; } } close(FILE1); if ($counter == 0) { print "

Sorry no books are available under this category at present we update our list
every 7 days.

\n"; } print < tohere1c print ""; ######################################### # # Print the matched record # ######################################### sub print_record { $looping++; $thistable++; if ($looping >= 1) { $thistable=1; } if ($thistable == 1) { print "

$FIELD1 $FIELD2
$FIELD4 $FIELD3 $FIELD5 $FIELD6 $FIELD7
Ł$FIELD8

\n"; } } ########################################## # # Check to see if record matches search criteria # ########################################## sub check_record { # get the data from the record read from the file. $tabledata $FIELD1 = $tabledata[0]; $FIELD2 = $tabledata[1]; $FIELD3 = $tabledata[2]; $FIELD4 = $tabledata[3]; $FIELD5 = $tabledata[4]; $FIELD6 = $tabledata[5]; $FIELD7 = $tabledata[6]; $FIELD8 = $tabledata[7]; $FIELD9 = $tabledata[8]; $FIELD10 = $tabledata[9]; #build the search line with all fields we want to search in $searchline = $FIELD10; #search by keywords $sfound = 0; $found = 0; $notfound = 1; $stlen = length($findrange); if ($stlen >= 1) { @words = split(/&/,$findrange); foreach $aword (@words) { if ($searchline =~ /\b$aword/i) { $totalfound++; $sfound = 1; } else { $notfound = 0; } } } if ($sfound == 1 && $notfound == 1) { $found = 1; } } sub parse_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } } sub open_file { local ($filevar, $filemode, $filename) = @_; open ($filevar,$filemode . $filename) || die ("Can't open $filename"); } sub read_file { local ($filevar) = @_; <$filevar>; } sub write_file { local ($filevar, $line) = @_; print $filevar ($line); }