<html>
<head>
</head>
<body>
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.<br>
<br>
#!/usr/bin/perl<br>
###################################################################################<br>
#Copyright Grant Johnson 2002<br>
#Initially Authored 3/1/2002<br>
#Distribution of this software is permissible under the terms of GNU Public
License<br>
#Available at <a class="moz-txt-link-freetext" href="http://www.gnu.org/licenses/gpl.txt">http://www.gnu.org/licenses/gpl.txt</a><br>
###################################################################################<br>
use Socket;<br>
socket (SH,PF_INET,SOCK_STREAM,getprotobyname('tcp'))||die $!;<br>
$dest=sockaddr_in(25,inet_aton('dencbis50'));<br>
connect(SH,$dest)||die $!;<br>
select (SH);<br>
while ($input_line=<STDIN>)<br>
{<br>
($fname,$lname,$commonname,$emailaddr) = split(/%%/, $input_line);<br>
chomp($fname,$lname,$commonname,$emailaddr);<br>
$today=localtime;<br>
print"HELO twcable.com\n";<br>
print"MAIL from:<a class="moz-txt-link-rfc2396E" href="mailto:return\@mydomain.com"><return\@mydomain.com></a>\n";<br>
print"RCPT to:<$emailaddr>\n";<br>
print"DATA\n";<br>
print"Date: $today\n";<br>
print"From: return\@mydomain.com\n";<br>
print"Subject: EPD Login information for $commonname\n";<br>
print "To: $emailaddr\n";<br>
print"\n";<br>
print"\n";<br>
print" DepartmentExtract.dat created successfully.\n";<br>
print" The Attached file is in semicolon delimited format. \n";<br>
print"\n";<br>
print"\n";<br>
print"\n";<br>
print".\n";<br>
}<br>
print"QUIT\n";<br>
close(SH);<br>
<br>
<br>
<br>
Matt Gushee wrote:<br>
<blockquote type="cite" cite="mid:20020301170218.GA388@swordfish.havenrock.com">
<pre wrap="">On Fri, Mar 01, 2002 at 09:31:57AM -0700, Jim Ockers wrote:<br></pre>
<blockquote type="cite">
<pre wrap="">Here is what I do for mass mailings:<br><br>===============SHELL SCRIPT===============<br></pre>
</blockquote>
<pre wrap=""><!----><br>Man, do you know how many consultants you just put out of work?<br><br></pre>
</blockquote>
<br>
</body>
</html>