>> I whipped up a little message blasting module in perl:
>>
>> http://wx.iecc.com/Qspam.pm
>>
>> It's only 136 lines.
>
>This looks way cool. Thanks, John!
>
>One question: it doesn't look like qspam_send() removes the mail file once
>it has been sent (or queued, if the attempt failed). I am looking at using
>Qspam in a sort of mail merge program; will I need to unlink() the mail file
>myself?
I fiddled it a little more last night so when a delivery is done it
tells the callback routine that's called when a delivery is done
whether the delivery worked or not. If you don't use failure info to
update the address list (either immediately or when you pass some
threshold of bounces), it really would be spamware.
The callback routine does have to delete the file with the message.
The reason I did it that way is that at some point I want to see
whether it's faster to rewrite existing temp files than to unlink and
create a new one, in which case the callback would just push the temp
file on a list of available ones to reuse. Or the temp file might be
a named pipe fed by another program or something.
--
John R. Levine, IECC, POB 727, Trumansburg NY 14886 +1 607 387 6869
[EMAIL PROTECTED], Village Trustee and Sewer Commissioner, http://iecc.com/johnl,
Member, Provisional board, Coalition Against Unsolicited Commercial E-mail
