The tcsh mailing lists
Up
The tcsh mailing lists
There are three tcsh mailing lists:
-
tcsh@mx.gw.com
-
The tcsh maintainers and testers' mailing list.
-
tcsh-diffs@mx.gw.com
-
The same as tcsh@mx.gw.com, plus diffs for each new
patchlevel of tcsh.
-
tcsh-bugs@mx.gw.com
-
Bug reports.
You can subscribe to any of these lists by sending mail to
listserv@mx.gw.com with the
text "subscribe <list name> <your name>" on a line by
itself in the body. <list name> is the name of the mailing list,
without "@mx.gw.com", and <your name> is your real name, not your
email address. You can also ask the list server for help by sending
only the word "help".
Up
END
#!/usr/local/bin/perl
# Emulate #!/usr/local/bin/perl on systems without #!
eval '(exit $?0)' && eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
& eval 'exec /usr/local/bin/perl -S $0 $argv:q' if 0;
# Setup
# Location: doesn't work with relative URLs, so we need to know where to find
# the top and section files.
# If the search engine is in /cgi-bin, we need a hard-coded URL.
# If the search engine is in the same directory, we can figure it out from CGI
# environment variables.
$root = ROOTHERE;
$topfile = 'TOPFILEHERE';
@name = (
'NAMEHERE'
);
# Do the search
$input = $ENV{'QUERY_STRING'};
$input =~ s/^input=//;
$input =~ s/\+/ /g;
if ($input ne '' && ($key = (grep(/^$input/, @name))[0] ||
(grep(/^$input/i, @name))[0] ||
(grep( /$input/i, @name))[0] )) {
$key =~ /\t([^\t]*)$/;
print "Location: $root$1\n\n";
} else {
print "Location: $root$topfile\n\n";
}
END