Mail Archives: djgpp/1995/10/01/18:00:27
Here's a patch to make Bittner's spamming program more useful. Too
bad his account was just deactivated. :-)
-Mat
*** spam.pl.orig Sun Oct 1 14:55:46 1995
--- spam.pl Sun Oct 1 14:56:57 1995
***************
*** 20,26 ****
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>) {
--- 20,26 ----
open(GROUPS, "$newsrc");
while($group=<GROUPS>)
{print "Posting to: $group";
! open(NEWS,"|/usr/lib/sendmail cbittner AT squeaky DOT free DOT org");
print NEWS "Newsgroups: $group";
open(MESSAGE, "message.txt");
while($line=<MESSAGE>) {
- Raw text -