Discussion :

[furtif1]

Bonjour à toute et à tous,

J'ai besoin dans un script php d'executer un script en perl.
Le script perl s'execute de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl check_storage_bw.pl -H ADRESSE IP - C public -g -w 80 -90

Je ne vois pas trop comment l'executer dans mon php. Pourriez vous m'aider ? sachant que je dois l'executer dans une boucle car j'ai 165 serveurs. Le script me permet d'obtenir une bande passante moyenne ainsi que la bande passante utilisé pour chaque serveur.

Je vous remerci d'avance

edit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

exec("perl check_storage_bw.pl -H IP -C public-v 2 -w 80 -c 90 -g");

Ne marche pas, et sans le "perl" pareil :'(

[Mr N.]

Ne marche pas

Pourquoi ? Qu'est-ce qui te fait dire que ça marche pas ?
Si tu passes le chemin complet /usr/bin/perl ou autre est-ce que ça marche ?

[furtif1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
if(exec('/usr/bin/perl check_storage_bw.pl -H IP -C public-v 2 -w 80 -c 90 -g'))
{
	echo "Script Ok !!";
} else
{
	echo "Prob lancement script !!";
}

J'obtient : Prob lancement script !!

[Mr N.]

utilise passthru() à la place de exec() pour voir ?

[furtif1]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if(passthru('/usr/bin/perl check_storage_bw.pl -H ip -C public-v 2 -w 80 -c 90 -g'))
{

renvoi toujours impossible, et :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if(passthru('perl check_storage_bw.pl -H Ip -C public-v 2 -w 80 -c 90 -g'))

Pareil :s désesperant

[guidav]

As-tu réussi à lancer des commandes plus simples ? Du type exec("ls") par exemple ?

[furtif1]

Oui. J'ai meme réussi a lancer un script.sh, le probleme etant que comme j'ai 165 serveur, je dois pouvoir changer le champ "-H", or dans un script.sh je ne vois pas du tout comment récuperer la liste des IP et je ne vois pas non plus comment mettre l'appel du fichier dans une boucle...

[Mr N.]

Dans ta console, tu tape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

php -q

Puis tu copie colle ce bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
<?php 
passthru('perl  --version'); 
?>

Puis tu sors en faisant ctrl-d

Qu'est ce que ça dit ?

[furtif1]

Excuse moi du retard, je n'etais pas dispo hier.

Donc quand je fais cette commande, j'obtiens :

php -q
<?php
passthru('perl --version');
?>


This is perl, v5.8.8 built for i486-linux-gnu-thread-multi

Copyright 1987-2006, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

[furtif1]

Ce qui est étrange c'est que :

php -q

<?php
passthru('perl check_storage_bw.pl -H IP -C public -v 2 -g -w 80 -c 90');
?>


Traffic In : 2.39 kb/s (0.0 %), Out : 1.34 kb/s (0.0 %) - Total RX Bits In : 378.85 Mo, Out : 234.00 Mo|traffic_in=2388,7Bits/s traffic_out=1339,7Bits/s

fonctionne. Mais seulement quand je met mon check_storage dans un endroit précis. Vais essayer de faire un raccourci vers cette endroit !

[furtif1]

Voici comment faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

passthru('perl /usr/local/nagios/libexec/check_storage_bw.pl -H IP -C public-v 2 -g -i 2 -w 80 -c 90')