#!/usr/bin/perl -w use strict; use CGI; my $q = new CGI; my $redirect; my $dir = "/home/chris/urls/"; unless ($q->param()) { print "Content-type: text/html\n\n\n"; print " Geosmith Enterprises \n"; print "\n"; print "



\n"; print "\n"; print "
Hello
\n Chances are you're here "; print "for the
Wilderness Schools"; print " Resource List .
I've taken down the rest of "; print "the site
while I rebuild it.
\n
\n"; print "
\n"; } else { $redirect = $q->param('keywords'); open (FILE, "$dir/$redirect") || die "can't find the file: $!\n"; while () { if ($_ =~ /^http/) { print "Location: $_\n\n"; } else { print "Location: http://$_\n\n"; } } close FILE; } exit;