Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1749 connectés 

  FORUM HardWare.fr
  Linux et OS Alternatifs
  Codes et scripts

  erreur dans un script perl

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur dans un script perl

n°1108304
mickael de​ psagot
Posté le 28-01-2009 à 16:33:58  profilanswer
 

bonjour a tous!
 
j'ai besoin d'aide.
 
je dois ecrire un script qui enverra des mails d'alerte sous nagios/opsview. sans rentrer dans le detail du pourquoi/comment.
 
sans la moindre connaissance en perl, par comparaison/test/reflexion/logique, je suis arrive a un script qui a fonctionne mais dont les variables etaient inexactes.
 
j'ai modifie le bousin et ai essaye de le rendre plus "logique" en contractant les "if-then" recurrants.
 
depuis, des que je le teste, je recois une erreur de syntaxe ligne 27
 
le site qui m'indique quoi faire me dit de rajouter des parentheses quelques lignes plus haut, mais la, c'est un autre message d'erreur que je recois...
 
http://docs.opsview.org/doku.php?i [...] ionmethods
 
pouvez vous m'aider?
merci!
 

Code :
  1. #!/usr/bin/perl -w
  2. #
  3. #
  4. # SYNTAX:
  5. my $usage = qq{
  6. mail_custom
  7. Usage: mail_custom
  8. };
  9. use strict;
  10. use Switch;
  11. use lib "/usr/local/nagios/perl/lib";
  12. my $text;
  13. my $sub;
  14. my $mail;
  15. $mail = $ENV{NAGIOS_CONTACTEMAIL}
  16. if $ENV{NAGIOS_SERVICEDESC} {
  17. $text = "$ENV{NAGIOS_SERVICEDESC} on $ENV{NAGIOS_HOSTNAME} is $ENV{NAGIOS_SERVICESTATE}: $ENV{NAGIOS_SERVICEOUTPUT} ($ENV{NAGIOS_SHORTDATETIME})";
  18. $sub = "$ENV{NAGIOS_SERVICEDESC} on $ENV{NAGIOS_HOSTNAME} is $ENV{NAGIOS_SERVICESTATE}";
  19. system('/usr/bin/printf "%b" $text | /usr/bin/Mail -s $sub $mail')
  20. } else {
  21. $text = "$ENV{NAGIOS_HOSTNAME} is $ENV{NAGIOS_HOSTSTATE}: $ENV{NAGIOS_HOSTOUTPUT} ($ENV{NAGIOS_SHORTDATETIME})";
  22. $sub = "$ENV{NAGIOS_HOSTNAME} is $ENV{NAGIOS_HOSTSTATE}";
  23. system('/usr/bin/printf "%b" $text | /usr/bin/Mail -s $sub $mail')
  24. }
  25. exit;


Message édité par mickael de psagot le 28-01-2009 à 16:36:53
mood
Publicité
Posté le 28-01-2009 à 16:33:58  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Linux et OS Alternatifs
  Codes et scripts

  erreur dans un script perl

 

Sujets relatifs
Script pour compresser des fichiers (texte) tous les jours?Partimage coté serveur, bash: partimaged: command not found
Script bash: Permission non accordée !?[BASH] Amélioration de script (boucle et autre)
Grub disparu, erreur 22 et DD invisible sur Gpartederreur activation
Problème d'affichage des images web sous Squid/erreur 111erreur de sgmentation avec lecteur audio (wav)
comment enchainer des sed sur un fichier scriptRose online > wine > linux ubuntu 8.10: erreur :s
Plus de sujets relatifs à : erreur dans un script perl


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR