[CLUE-Tech] Open source mass mailing software?

[Grant Johnson]

After fighting with the SMTP module, and only getting weird replies, I 
have made this quickie script.  It will get larger, more complex, and 
much cooler in the next few days, as I take currently hard coded 
information, and move it out to files.

#!/usr/bin/perl
###################################################################################
#Copyright Grant Johnson 2002
#Initially Authored 3/1/2002
#Distribution of this software is permissible under the terms of GNU 
Public License
#Available at http://www.gnu.org/licenses/gpl.txt
###################################################################################
use Socket;
socket (SH,PF_INET,SOCK_STREAM,getprotobyname('tcp'))||die $!;
$dest=sockaddr_in(25,inet_aton('dencbis50'));
connect(SH,$dest)||die $!;
select (SH);
while ($input_line=<STDIN>)
{
($fname,$lname,$commonname,$emailaddr) = split(/%%/, $input_line);
chomp($fname,$lname,$commonname,$emailaddr);
$today=localtime;
print"HELO twcable.com\n";
print"MAIL from:<return\@mydomain.com>\n";
print"RCPT to:<$emailaddr>\n";
print"DATA\n";
print"Date: $today\n";
print"From: return\@mydomain.com\n";
print"Subject: EPD Login information for $commonname\n";
print "To: $emailaddr\n";
print"\n";
print"\n";
print"        DepartmentExtract.dat created successfully.\n";
print"        The Attached file is in semicolon delimited format. \n";
print"\n";
print"\n";
print"\n";
print".\n";
}
print"QUIT\n";
close(SH);



Matt Gushee wrote:

>On Fri, Mar 01, 2002 at 09:31:57AM -0700, Jim Ockers wrote:
>
>>Here is what I do for mass mailings:
>>
>>===============SHELL SCRIPT===============
>>
>
>Man, do you know how many consultants you just put out of work?
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://cluedenver.org/pipermail/clue-tech/attachments/20020301/b1cd14dc/attachment.html