I'm not sure I understand the nature of the problem with
using the standard Email tricks through perl?
ciao
drieux
### #!/usr/bin/perl -w
### use strict;
###
### sub DoThatMailVoodoo {
### my ( $userName, $subject, $msg) = @_;
###
### my $bailFile = "/tmp/sendmail.bail.$$";
### my $sendmail = '/usr/lib/sendmail';
###
### # ok, so sharing the code back in may be over the top....
###
### open (FH, "sharIt $0 |") or die "unable to self Shar:$!\n";
### $msg .= $_ while(<FH>) ;
### close FH;
### $msg .= "\n\n"; # make sure it ends okish
###
### open (MAIL, "| $sendmail -t -oi 2>$bailFile")
### or die "unable to open sendmail:$!\n";
###
### print MAIL "To: $userName \n";
### print MAIL "Subject: $subject\n\n";
### print MAIL "$msg";
###
### close MAIL;
### # Ok so this is MASSED Paranoia
### if ( -f $bailFile and -s $bailFile) {
### print "we had an error case from sendmail\n";
### open(ER_FH, $bailFile) or die "unable to open Bail File:$!\n";
### my @err_msg=<ER_FH>;
### close(ER_FH);
### close(MAIL);
### unlink($bailFile);
### die "@err_msg\n\n";
### } else {
### unlink($bailFile);
### }
###
### } # DoThatMailVoodoo
###
### #-------------------
### # The Main Loop Section
###
### my $toWhom = '[EMAIL PROTECTED], [EMAIL PROTECTED]';
### my $about = ' RE: yahoo mail did\'t compile HTML mail ';
### my $msg =<<EOL;
###
### I'm not sure I understand the nature of the problem with
### using the standard Email tricks through perl?
###
### ciao
### drieux
###
### EOL
###
### DoThatMailVoodoo($toWhom, $about, $msg);
###
### # end of the world as I know it - [EMAIL PROTECTED]
###
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
