#!/usr/bin/perl

# <honey@missprint.org>

# Initialise filenames
$LOCALDIR="/usr/local";

require("cgi.pl");
require("sinister.pl");

# The URL of the parent page
$fromurl=$ENV{'HTTP_REFERER'}; 

# Get parameters
&ReadParse;

# Find which list we're after
$WHICH = $in{'list'};
if ( $WHICH eq "") {
  $WHICH="sinister";
}

# Output HTML header
&HTML_Header;

&Sinister_Header(STDOUT,"Membership of list $WHICH","hmm.gif",fromurl);

print "<P>Members lists are currently offline I'm afraid.  This is because it's clear that some evil souls have taken it on themselves ";

print "to use the lists to send unsolicited emails, which doesn't really seem fair does it, bearing in mind we aren't selling anything? ";

print "This was in spite of obscuring the email addresses to stop them being harvested by programs: so someone's doing it manually. ";

print "<P>For more details see <A HREF=\"/sinister/ip.pt.txt\">[grumpy mail number one]</A> and <A HREF=\"/sinister/bryterlayter.txt\">[grumpy mail number two]</A>. ";

print "Sorry this is a pain if you're trying to find out if you're subscribed ok.  You might want to try <A HREF=\"/cgi-bin/listee.cgi\">[the email search form]</A>. ";

print "<P>(Grrrr.....)";

&Sinister_Footer(STDOUT,fromurl);