Bonjour,

Bonjour,

Je débute en perl, et j'essaye d'utiliser un script afin d'obtenir des rapport mensuels de nagios.
J'ai recupéré ce script sur nagiosexchange. Quand je le compile, il me retourne les erreurs:

Use of uninitialized value in print at ./check_reporter line 98.
Can't call method "mail" on an undefined value at ./check_reporter line 318.

La ligne 98 concerne cette partie du code:
$mailbody =~ s@<LINK REL=\'stylesheet\' TYPE=\'text/css\' HREF=\'/stylesheets/common.css\'>@@;
$mailbody =~ s@<LINK REL=\'stylesheet\' TYPE=\'text/css\' HREF=\'/stylesheets/summary.css\'>@$nagsssummary@;
}

open(FILE, "> /tmp/nagios-report-htmlout.html") or warn "can't open file /tmp/nagios-report-htmlout.html: $!\n";
print FILE $mailbody; <----- ligne 98
close FILE;

Et la 2e erreur concerne:
my $mailfrom ='nagios@nagios.com';
$smtp->mail($mailfrom);


Savez vous d'ou peuvent venir ces erreurs et comment les corriger?

Merci d'avance.