We'll see - seems to work for me George ### #!/usr/bin/perl -w ### use strict; ### ### # #FILENAME#- is for email testing of Greens problem ### # cf : http://archive.develooper.com/beginners%40perl.org/msg26413.html ### # http://www.wetware.com/drieux/pbl/email/useMailMailer.txt ### ### use strict; ### use Mail::Mailer; ### ### my $prog=$0; ### ### my $server = "mail"; ### ### my %headers = ( ### From => '[EMAIL PROTECTED]', ### To => '[EMAIL PROTECTED]', ### Subject => 'AboutDoes Mail::Mailer work? on OS X platform' ### ); ### ### # ### # warning - this part is NOT for the feint of Heart ### # ### my $body = "We'll see - seems to work for me George\n"; ### ### my $cmd = "perl -e \'open(FH,\"" . $prog . "\") ; \$_ =~ s/^/### / , print \$_ while(<FH>) ;close(FH)\' \|"; ### ### open(PI ,"$cmd") or die "way too wierd a Pipe:$!\n"; ### $body .= $_ while(<PI>) ; ### close(PI); ### ### # ### # we return you to your regularly Scheduled normal question space ### # ### ### my $mailer = new Mail::Mailer ("smtp", Server => $server); ### $mailer->open(\%headers); ### print $mailer $body; ### $mailer->close; ### ### =cut ### this ultimately showed up back in my email box as in the Original Test: ### ### From: [EMAIL PROTECTED] ### Date: Sat May 18, 2002 04:30:36 US/Pacific ### To: [EMAIL PROTECTED] ### Subject: Does Mail::Mailer work? ### Return-Path: <[EMAIL PROTECTED]> ### Received: from localhost.localdomain(jeeves.wetware.com[199.108.16.11]) (308 bytes) by wetware.wetware.com via sendmail with P:esmtp/D:user/T:local (sender: <[EMAIL PROTECTED]>) id <[EMAIL PROTECTED]> for <[EMAIL PROTECTED]>; Sat, 18 May 2002 16:30:36 -0700 (PDT) (Smail-3.2.0.114 2001-Aug-6 #1 built 2002-Jan-4) ### Message-Id: <[EMAIL PROTECTED]> ### X-Mailer: Mail::Mailer[v1.44] Net::SMTP[v2.22] ### ### We'll see ### ### ### =cut ### ### # end of the world as I knew it [EMAIL PROTECTED] all rights reserved ### # ginned On #CREATIONDATE# ### #
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
