|
Posted by jesse on February 20, 2007, 8:54 am
Please log in for more thread options
On Feb 19, 3:17 pm, "Mumia W." <paduille.4060.mumia.w
+nos...@earthlink.net> wrote:
> On 02/19/2007 12:33 PM, jesse wrote:
>
>
>
>
>
> > I have installed Mail Tools 1.74. I have also tried to use it in a
> > scripts but it bombs with this message.
>
> > Reference found where even-sized list expected at /usr/perl5/site_perl/
> > 5.6.1/Mail/Send.pm line 17, <VAULT> line 2318518.
> > Can't locate object method "send=hash(0x157a04)" via package
> > "mail::send=hash(0x157a04)" at /usr/perl5/site_perl/5.6.1/Mail/Send.pm
> > line 22, <VAULT> line 2318518.
>
> > This is how I'm using the module.
>
> > require Mail::Send;
> > my $MDATE = time2str("%m%d%y", time);
>
> > my $msg;
> > my $fh;
> > $msg = new Mail::Send
>
> > $msg = new Mail::Send Subject=>'Netbackup Logs', To=>'Storage';
>
> > $msg->to('jesse_ha...@premierinc.com');
> > $msg->subject('Netbackup Logs');
>
> > $fh = $msg->open("/export/home/jhardy/errors/log.$MDATE")or die "Can't
> > open file to mail: $!";
>
> It seems that you're supposed to give "open" the name of one of the
> $type options for Mail::Mailer->new.
>
> > print $fh;
> > $fh->close;
>
> > Any help would be greatly appreciated.
>
> > Thanks,
> > Jesse
>
> use File::Slurp qw(slurp);
> ...
> $fh = $msg->open; # The default mailing method is probably good.
> print $fh slurp("/export/home/jhardy/errors/log.$MDATE");
> $fh->close;
>
> WARNING: UNTESTED CODE
>
> --
> Windows Vista and your freedom in conflict:http://www.badvista.org/- Hide
quoted text -
>
> - Show quoted text -
Thanks that seems to have fixed the problem.
| 
XML Sitemap