#!/usr/bin/perl # # require("cgi.pl"); require("missprint.pl"); # The URL of the parent page $fromurl=$ENV{'HTTP_REFERER'}; # Get parameters &ReadParse; # Find which query we're after; do some magic guesswork for spaces $WHICH = $in{'query'}; $LISTNAME = $in{'list'}; $SMODE = $in{'smode'}; #$WHICH = s/\+/\ /; $WHICH = &escape($WHICH); # Generate html print < The $LISTNAME Mailing List (archive) EOT ;