#! /usr/local/bin/perl
# PERL script
# Searches the gifs directory for keywords.
$HTDOCS="/usr/local/etc/httpd/htdocs/";
$GIFDIR="gifs";
$QUERY_STRING= $ENV{'QUERY_STRING'};
print "Content-type: text/html\n\n";
if ($QUERY_STRING) {
print "\n";
print "Find GIF \"$QUERY_STRING\"\n";
print "\n";
print "\n";
print "Find GIF \"$QUERY_STRING\"
\n";
print "\n";
open(DIR, "ls $HTDOCS$GIFDIR/*.gif |");
while () {
if (/$QUERY_STRING/i) {
($NAME) = m|$GIFDIR/(.*)|;
print "- /$GIFDIR/$NAME\n" ;
print "
![](\"/$GIFDIR/$NAME\")
\n";
print "\n";
}
}
print "
\n";
print "
\n";
}
else {
print <
Find GIF
Find GIF
EOM
}
print <
Icon
Calvin
Eye
EOM
exit;