CGI Search Code Library

#!/usr/local/bin/perl
#
# search.pl
# version 961211
# copyright 1996 by bo larsson
# all rights reserved
#
# this CGI program will search a text file for the desired string and generate
# an html table on-the-fly. The text file should have tab-delimited fields and
# return-delimited records.
#
# bugs or feedback to bliss@seagull.net
# for information on how to use, visit http://www.seagull.net/bliss/

# what does the user want to find?
($dump,$search) = split(/=/,$ENV{'QUERY_STRING'});

# let's not make the search case-sensitive, ok?
$ucsearch = uc($search);

$the_file = "./search.txt";
$started_table = "no";

print "Content-type: text/html\n\n";
print "<HTML><BODY>";
print "<TITLE>Search Results</TITLE>";

if ($search ne "")
{
        print "<FONT SIZE=+4>Search Results for $search</FONT><HR>";

        if (open(THE_FILE, "$the_file"))
        {
                # begin the table
                while (<THE_FILE>)
                {
                        $record = $_;
                        $_ = uc($_);
                        if (/$ucsearch/)
                        {
                                if ($started_table eq "no")
                                {
                                        $started_table = "yes";
                                        print "<TABLE BORDER=1 WIDTH=100% BGCOLOR=\"#FFFFFF\">";
                                }
                                # begin one table row
                                print "<TR>";
                                @fields = split(/\t/,$record);
                                foreach $field (@fields)
                                {
                                        # display one data cell for the table row
                                        print "<TD VALIGN=TOP>$field</TD>";
                                }
                                # end of one table row
                                print "</TR>";
                        }
                }
                close(THE_FILE);
                # end of the table
                if ($started_table eq "yes")
                {
                        print "</TABLE>";
                }
                else
                {
                        print "what you were looking for could not be found.\n";
                }
                print "<P>";
        }
        else
        {
                print "unable to open the file $the_file.\n";
        }
}
else
{
        print "<FONT SIZE=+4>No query string given</FONT>";
}
print "</BODY></HTML>";