Sure...here it is...
#=========================================
use Mail::Mailer;
sub threshold_check() {
my ($file_sys, $per_used, $threshold) = @_;
my %mail_headers =
('From' => '[EMAIL PROTECTED]',
'To' => ['[EMAIL PROTECTED]', '[EMAIL PROTECTED]'],
'Subject' => 'WARNING: File system space low');
if($per_used > $threshold) {
my $system_name = (uname)[1];
chomp($system_name);
my $mailer = Mail::Mailer->new(); # use UNIX sendmail first,
by default.
$mailer->open(\%mail_headers);
print $mailer <<EOF;
WARNING: File system ($file_sys) on system ($system_name) has exceeded its
space threshold of ($threshold)%.
File system ($file_sys) used space now at ($per_used)%.
EOF
$mailer->close();
}
return(int 0);
}
#========================================
good luck :-)
> Anthony (Tony) Esposito
> Senior Technical Consultant
> Inovis(tm)
> 2425 N. Central Expressway, Suite 900
> Richardson, TX 75080
> (972) 643-3115
> [EMAIL PROTECTED]
>
-----Original Message-----
From: Jair Santos [mailto:[EMAIL PROTECTED]
Sent: Monday, June 09, 2003 12:25 PM
To: [EMAIL PROTECTED]
Subject: Re: Mail::Mailer
Please, send the code to the list. I would like to know because have a
similar problem.
thanks
Jair
----- Original Message -----
From: "Tony Esposito" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 09, 2003 10:14 AM
Subject: RE: Mail::Mailer
> You all can ignore this thread.....I walked away and came back.....and
> figured it out.
> Thanks!
>
> > Anthony (Tony) Esposito
> > Senior Technical Consultant
> > Inovis(tm)
> > 2425 N. Central Expressway, Suite 900
> > Richardson, TX 75080
> > (972) 643-3115
> > [EMAIL PROTECTED]
> >
>
>
> -----Original Message-----
> From: Tony Esposito
> Sent: Monday, June 09, 2003 11:48 AM
> To: [EMAIL PROTECTED]
> Subject: RE: Mail::Mailer
>
>
> To be more precise, I need an example of sending email via UNIX sendmail
> using the Mail::Mailer module.
> Thanks much.
> :-)
>
> > Anthony (Tony) Esposito
> > Senior Technical Consultant
> > Inovis(tm)
> > 2425 N. Central Expressway, Suite 900
> > Richardson, TX 75080
> > (972) 643-3115
> > [EMAIL PROTECTED]
> >
>
>
> -----Original Message-----
> From: Tony Esposito
> Sent: Monday, June 09, 2003 11:39 AM
> To: [EMAIL PROTECTED]
> Subject: Mail::Mailer
>
>
> I need to get more info on the package Mail::Mailer, specifically how to
use
> the 'open' method.
> Can anyone assist, please?
> Thanks!
>
> > Anthony (Tony) Esposito
> > Senior Technical Consultant
> > Inovis(tm)
> > 2425 N. Central Expressway, Suite 900
> > Richardson, TX 75080
> > (972) 643-3115
> > [EMAIL PROTECTED]
> >
> >
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
