Hello,
The below piece of code doesn't work for me.
------------
$sfile = $req_file; open(RF,"<$req_file"); chop(@rflines=<RF>); close(RF);
use lib "/remote/xx/yy/SCRIPTS/libnet-1.12/"; use lib "/remote/xx/yy/SCRIPTS/";
use Mail::Mailer;
$mailer = Mail::Mailer->new("sendmail");
$mailer->open({From => '[EMAIL PROTECTED]',
To => '[EMAIL PROTECTED]',
})
or die "Can't open: $!\n";
print $mailer "@rflines\n";
$mailer->close();-----------------
I have "Mail" & "libnet-1.12" directories under /remote/xx/yy/SCRIPTS/libnet-1.12/.
My libnet-1.12 directory has :
ChangeLog Configure MANIFEST Net demos t Config.eg Hostname.pm.eg Makefile.PL README install-nomake
My "Mail" directory has :
ddress.pm Field Filter.pm Internet.pm Mailer.pm Util.pm Cap.pm Field.pm Header.pm Mailer Send.pm
Thanks, Ravi
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
