ok...I have my list set to open, confirm.
I'm the send-editor.
We have the gateway set to moderated so that all mail is supposed to go
to the list *then* to the newsreaders....
So, how did this guy get past it all and how can I keep this from
happening again? Our server is 1.8a and is still up on an IBM mainframe.
*pout*
-linda
ps. by the way, I tried to get onto the spam list, but the server
refused all my attempts to confirm. I wonder if people have the same
problem with my list?
 
************** here it is- header and pertinent program only *******
 
Path: news.ee.vill.edu!dsinc!newsfeed.pitt.edu!uunet!in2.uu.net!news.netrail.net!news.sprintlink.net!howland.reston.ans.net!vixen.cso.uiuc.edu!news.ecn.bgu.edu!ixc.ixc.net!ixc.ixc.net!not-for-mail
From: [log in to unmask](Bruce Maher)
Newsgroups: bit.listserv.pmdf-l,bit.listserv.pns-l,bit.listserv.politics,bit.listserv.por
Subject: Free Spam Program, Does it Work??
Date: 26 Sep 1995 00:28:20 -0400
Organization: Internet Exchange Carrier
Lines: 67
Sender: [log in to unmask]
Approved: [log in to unmask]
Message-ID: <[log in to unmask]>
NNTP-Posting-Host: ixc.ixc.net
Xref: news.ee.vill.edu bit.listserv.pmdf-l:8013 bit.listserv.pns-l:196 bit.listserv.politics:122492
 
-----------------------------------Cut Here--------------------
#!perl
#Assumes both Perl and Inews are accessible through
#your home directory.  If not, either place them in your path
#or adjust the script.
#You must also have a ascii text file called groups.txt, which
#contains a list of each group you want to spam.  One to a line.
#No punctuation at end of line.
#Your spam message must be called message.txt, and it should
#be in ascii.  The first line must be you subject header:
# For example:  Subject: this is a spam.
# You may add in other headers if you wish, but there must be a
#blank line before your actual message begins.
#run program by typing "perl spam.pl.
#
#
#!perl
print "Running...\n";
$newsrc =
"$ENV{'HOME'}/testgrps.txt";
open(GROUPS, "$newsrc");
while($group=<GROUPS>)
        {print "Posting to: $group";
 open(NEWS,"|inews -h");
print NEWS "Newsgroups: $group";
 open(MESSAGE, "message.txt");
while($line=<MESSAGE>) {
print NEWS $line;
 }
 close NEWS;
if($?==0) { $success++ }
else { $fail++
}}$total = $success + $fail;print "Tried to post to $total
groups.\n$success OK, $fail failed.\n";