#! /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"; print "
\n"; } else { print < Find GIF

Find GIF

EOM } print <
  • Icon
  • Calvin
  • Eye Stanford CS dept PCD grp Pictures
    EOM exit;