#!/usr/bin/perl
#
# search.pl
# TheLitterBox. Copyright 2000.
#
# 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 = "/ddrive/thelitterbox.net/foti/nodelist.now";
# $THE_FILE = "../nodelist.mas";
# open THE_FILE or die "can't find file: $!\n";
print "Content-type: text/html\n\n";
print "";
print "";
print "FOTI Current Nodelist Search Results";
print "";
print "
";
print "FOTI's Current Nodelist Search
";
print "
";
print "Searching for '$search'
";
print "
";
print "";
if ($search ne "")
{
if (open(THE_FILE, "/var/www/html/foti/nodelist.now"))
# 30
{
# begin the table
while ()
{
$record = $_;
$_ = uc($_);
if (/$ucsearch/)
{
print "$record
";
}
}
close(THE_FILE);
}
}
else
{
print "No query string given";
}
print "
";
print "";
print "
";
print "
";
print "";