Empecher un retour de script

Bonjour,

Voila, je me suis fait un petit script me permettant de tester si ma connexion MySQL est toujours active ou non et dans ce cas, en cas de retour, je redémarre un logiciel.

Je suis débutant sur PERL, donc je ne connais pas encore toutes les astuces de ce langage ...

Voici le code qui me pose problème :

Code:

---

1 2 3 4 5 6 7 8 9

my $dbh = DBI->connect( "DBI:mysql:database=$database;host=$hostname", $login, $mdp ) or panneSQL("Impossible de se connecter au serveur MySQL");   if ( $sqlError == 1 ) { unlink( $f_mysql ) ; my $retour = system( "/etc/init.d/xxxxxxxx restart" ) ; sendMail() ; die ""; }

---

Ce script tourne en CRON. Le problème, c'est que dés lors que le script m'envoie un email, j'ai aussi le retour de script de mon crontab :

Dans le cas où la connexion MySQL ne marche pas :

Code:

---

DBI connect('database=XXXXXXX;host=XXXXXXX','XXXXXXXXXX',...) failed: Access denied for user 'XXXXXXXXXXX'@'%' to database 'XXXXXXXXXX' at /home/XXXXXXXXX/perl/checkStart line 83 Died at /home/XXXXXXXXXX/perl/checkStart line 38.

---

En cas de retour de la connexion MySQL :

Code:

---

1 2 3

Stopping XXXXXXX: M4UClient/etc/init.d/XXXXXXX: line 39: start-stop-daemon: command not found . Starting XXXXXXX: XXXXXXX/etc/init.d/XXXXXXX: line 30: start-stop-daemon: command not found failed! Died at /home/XXXXXXX/perl/checkStart line 90.

---

Je ne sais pas comment faire pour rendre muet PERL sans le passer en DAEMON ... En plus, il aime pas executer un script shell de restart ...

Merci d'avance pour votre aide.

Salut,

Alors 4 remarque à faire dans un premier temps:

1) déja quand je vois ça :

Code:

---

1 2 3 4

Stopping XXXXXXX: M4UClient/etc/init.d/XXXXXXX: line 39: start-stop-daemon: command not found . Starting XXXXXXX: XXXXXXX/etc/init.d/XXXXXXX: line 30: start-stop-daemon: command not found failed! Died at /home/XXXXXXX/perl/checkStart line 90.

---

je me dis que ça part mal ...

2) peut on voir ta crontab ?

3) tu unlink quoi la

Code:

---

unlink( $f_mysql )

---

?

4) ici ta variable ne sert a rien

Code:

---

my $retour = system( "/etc/init.d/xxxxxxxx restart" ) ;

---

si tu veux récupérer l'état utilise plutot qx{} au lieu de system().

A partir de la on pourra travailler ;) .

Cdlt

Pour le point 1 :

Quand je lance la commande manuellement, elle se lance correctement, j'ai jamais eu de soucis, maintenant, quand je la lance a partir de PERL, elle n'a pas l'air d'aimer ...

Pour le point 2 :

Code:

---

* * * * * /home/XXXXXXXX/perl/checkStart

---

Pour le point 3 :

Code:

---

my $f_mysql = "/home/XXXXXXXX/perl/rapport" ;

---

C'est un fichier qui se créer en cas de perte de la connexion, pour qu'au prochain cron, le script effectue un test supplémentaire. C'est un fichier texte bidon.

Pour le point 4 :

En fait, espéré stocker le message de retour du script du style :

Code:

---

1 2	Stopping XXXXXXX. Starting XXXXXXX.

---

alors ajoute ceci dans ta crontab pour qu'il se "taise":

Code:

---

1 2	* * * * * /home/XXXXXXXX/perl/checkStart >/dev/null 2>&1

---

ensuite utilise bien qx{} et dis nous ce que ça donne.
;)

Impécable, je ne reçois plus de mail dû au CRON.

Pour le lancement de commande, j'ai QX mais le restart FAILED. Voici le retour que je reçois par mail :

Code:

---

1 2	Retour: Stopping XXXClient: XXXClient. Starting XXXClient: XXXClient failed!

---

Pourquoi un script qui se lance normalement, ne se lance pas via un autre script ? Quelle est la différence ?

Bon déja on avance, a je vais quitter le taff donc je ne pourrais plus répondre mais as tu regarder les permissions de ton script?

Cdlt.

Problème corrigé !

Il fallait rajouter dans le SHELL qui faisait le restart :

Code:

---

PATH=/usr/sbin:/usr/bin:/sbin:/bin:/etc/init.d

---

Tout marche bien. Un grand merci messinese ;-)