Surcharge de méthode

Bonjour,

Je ne fais des scripts Perl que très occasionnellement, et je n'ai pas un très bon niveau de développeur :cry:

Je travaille actuellement sur un script nagios pour vérifier que des accès en écriture sont possible sur un partage.

J'ai mis mon script en pièce jointe.

Le texte de retour affiché par le plugin ne correspond pas à mon besoin (contraintes d'autres produits utilisé dans mon entreprise), je souhaite donc remplacer la méthode nagios_exit de la classe Nagios:: Plugin par une méthode que j'aurais moi même écrite (dans l'exemple j'ai repris le code standard que je modifierais ensuite en fonction de mes besoins).
Pouvez-vous me dire comment je peux faire cela ?

Si vous avez des suggestions d'amélioration du script, n'hésitez pas.

Cordialement,
Fred

Pour se faire, tu devrais procéder ainsi :

Créer une nouvelle classe Nagios::Plugin::Fred dans laquelle tu ajoutes :

Code:

---

use base qw(Nagios::Fred);

---

et dans laquelle tu définis ta nouvelle fonction nagios_exit.

Lors de la création de tes objets, tu fais alors appel à cette nouvelle classe.

Enfin, c'est ainsi que je tenterais la chose.

Bonjour,

Merci pour votre réponse

J'ai réussi en créant ma propre classe hérité de Nagios::Plugin

Code:

---

1 2 3 4 5 6 7 8

package PE_Nagios_Plugin_Functions; use strict; use Nagios::Plugin::Functions qw(%ERRORS %STATUS_TEXT @STATUS_CODES); use Nagios::Plugin; our @ISA = ("Nagios::Plugin");   sub nagios_exit { ...}

---

Puis en utilisant cette classe dans mon script.

C'est OK, merci pour tout

Je suis ravi que ça ait marché "aussi facilement".
Bonne journée.