Script Perl sous Windows exécutant du code sous UNIX

Citation:

---

Envoyé par djibril

Elle ressemble à quoi tes commandes vers ta base?
Je comprends pas en quoi windows pose un souci

---

En Perl habituellement, on envoie une requète FQM (un pote à SQL ;) ) à notre BDD comme ceci :

Code:

---

system("dmfqm", "db=my.database", "proc=fichierRequeteFQM" ,"aids=no", "uid=user", "upw=password");

---

J'ai tenté de retranscrire comme ceci :

Code:

---

cmd => ["dmfqm", "db=my.database", "proc=fichierRequeteFQM" ,"aids=no", "uid=user", "upw=password"],

---

ou encore comme ceci :

Code:

---

cmd => ["dmfqm db=my.database proc=fichierRequeteFQM aids=no uid=user upw=password"],

---

Ni l'un ni l'autre ne fonctionne et je n'ai aucun retour d'erreur, malgré la pragma 'warnings' utilisée.

Edit : je pense rester sur ma dernière idée. Ainsi, mon script utilisant Net::SSH2 ne fera qu'envoyer un ordre d'exécution à un script Perl tiers, lequel fera tout le boulot de son côté de manière autonome.

Là, j'avoue ne pas avoir épluché la doc de Net::SSH2 mais je ne vois rien permettant d'activer un quelconque mode d'affichage d'erreurs.

Ca me botte pas de faire bosser un programme dont j'ignore s'il fait ou non le boulot ;)

Bon. Je pense que je dois buter sur un problème lié à la sécurité car mon script sous Windows utilisant Net::SSH2 demande l'exécution du script 'toto.pl', lequel est stocké sur Unix et dont le contenu est on ne peut plus simple :

Code:

---

1 2 3

#!/usr/bin/perl system("dmfqm", "db=my.database", "proc=FichierRequete.prc" ,"aids=no", "uid=user", "upw=password"); system("cat /DOC/bdd/programme/CHBO/FichierRequete.prc | mail -s \'TOTOPOUET\' mon.mail\@machin.org");

---

Brièvement :

Le 1er appel system déclenche une connexion dans la bdd, lui donne un fichier FichierRequete.prc contenant toutes les commandes SQL à traiter.
Le 2eme appel system envoie par mail le fichier FichierRequete.prc à mon adresse mail du boulot.

En lançant le traitement depuis le script sous Windows, seul le 2ème appel system fonctionne. Je reçois bien le mail mais le 1er appel system ne donne strictement rien.

Si j'exécute à la main le script stocké sur Unix, il fait tout le boulot sans aucun soucis.

Quelqu'un peut m'expliquer ?

Bon essaye ceci :

Code:

---

1 2 3 4 5 6 7 8

open (STDERR, ">FichierErreur.txt"); system("dmfqm db=my.database proc=FichierRequete.prc aids=no uid=user upw=password") == 0 or print STDERR "Probleme avec system1 $! \n";   sleep(5);   system("cat /DOC/bdd/programme/CHBO/FichierRequete.prc | mail -s \'TOTOPOUET\' mon.mail\@machin.org") == 0 or print STDERR "Probleme avec system2 $! \n";   close(STDERR);

---

Les messages d'erreurs seront stockés dans le fichier FichierErreur.txt.
Ensuite, tu te l'envoies par email avec l'autre fichier

Merci de ton aide, Djibril et de ta patience à aider un vieux boulet comme moi :ave:

J'ai rajouté ton code dans mon script sur Unix et voici ce que donne le contenu du fichier captant tout ce qui sort sur STDERR :

Code:

---

1 2	Can't exec "dmfqm": A file or directory in the path name does not exist. at /DOC/bdd/programme/CHBO/toto.pl line 9. Probleme avec system1 A file or directory in the path name does not exist.

---

L'appel system à la commande dmfqm ne fonctionne donc pas :ouin:

Ce qui est étrange, ce que la commande whois dmfqm sur Unix ne me dit pas où se trouve le binaire mais si, toujours en mode commande je tape 'dmfqm', ça fonctionne parfaitement

fait un locate dmfqm sur ton serveur unix

Citation:

---

Envoyé par djibril

fait un locate dmfqm sur ton serveur unix

---

locate ne donne rien :

Code:

---

1 2	>locate dmfqm ksh: locate: not found

---

Par contre, which me donne ce chemin :

Code:

---

1 2	>which dmfqm /opt/basis/dm/bin/dmfqm

---

J'ai rajouté le chemin complet dans l'appel system 1 et voici le contenu du fichier d'erreur :

Code:

---

1 2 3 4 5

exec(): 0509-036 Cannot load program /opt/basis/dm/bin/dmfqm because of the following errors: 0509-150 Dependent module libdmlib.a(dmlib.o) could not be loaded. 0509-022 Cannot load module libdmlib.a(dmlib.o). 0509-026 System error: A file or directory in the path name does not exist. Probleme avec system1

---

Je suis dans l'caca je crois 8O

si tu fais une commande de ce genre :

Code:

---

system("cd /opt/basis/dm/bin/ \&\& dmfqm db=my.database proc=FichierRequete.prc aids=no uid=user upw=password") == 0 or print STDERR "Probleme avec system1 $! \n";

---

sinon FichierRequete.prc est un fichier dans lequel il y a des requêtes SQL?
C'est une base de données mysql?
Peux tu nous montrer quelques lignes de ce fichier SQL.
Tu pourrais au pire des cas, une fois que j'aurais vu ton fichier, rajouter dans ton script perl du code pour lire ce fichier et exécuter les commandes SQL dans la BD.

Citation:

---

Envoyé par djibril

si tu fais une commande de ce genre :

Code:

---

system("cd /opt/basis/dm/bin/ \&\& dmfqm db=my.database proc=FichierRequete.prc aids=no uid=user upw=password") == 0 or print STDERR "Probleme avec system1 $! \n";

---

---

Ca ne fonctionne pas davantage, le message d'erreur est d'ailleurs plus court : dmfqm not found.

Citation:

---

Envoyé par djibril

sinon FichierRequete.prc est un fichier dans lequel il y a des requêtes SQL?
C'est une base de données mysql?
Peux tu nous montrer quelques lignes de ce fichier SQL.

---

Te montrer le contenu du fichier ne servirait pas à grand chose car ce n'est pas du SQL comme langage mais du FQM, un langage procédural proche d'un langage de programmation (il gère fort bien les if then else) mais malheureusement, aucune librairie n'a été écrite pour le rendre exploitable avec Perl autrement qu'en faisant des appels system à dmfqm.

Si tu veux voir à quoi ressemble le fichier, en voici le contenu. Je l'ai allégé pour juste lui demander de créer son fichier de sortie, il se contente de se connecter à la bdd, de créer le fichier et c'est tout :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

on/exception ERR on/syntax ERR sh/time set/mode echoproc=no start/transaction sr=BIBLIO open/file /DOC/bdd/programme/CHBO/resultat10.txt, FID=A, recordlc=4096, create=yes, intent=write   *** QUESTIONS FQM supprimées pour le moment   put/file, FID=A 'test d ecriture dans le fichier de sortie'   close/file FID=A finish/transaction tell'finish/transaction' sh/time exit ERR: set/pv NOERR=!dmstat! set/mode echoproc=yes abort/trans, err=$continue show/message !NOERR! exit

---

:koi:
bon en ligne de commande sous console unix, tu arrives à faire ceci :

Code:

---

/opt/basis/dm/bin/dmfqm db=my.database proc=FichierRequete.prc aids=no uid=user upw=password

---

?

Citation:

---

Envoyé par djibril

:koi:
bon en ligne de commande sous console unix, tu arrives à faire ceci :

Code:

---

/opt/basis/dm/bin/dmfqm db=my.database proc=FichierRequete.prc aids=no uid=user upw=password

---

?

---

C'est ça le bin's : OUI, j'y arrive !

Je n'ose même plus regarder mon micro :bug:

Bon quand tu lance ton script depuis windows, Dans ce script, tu fais une connexion ssh avec un login qui a les bon droits?

Citation:

---

Envoyé par djibril

Bon quand tu lance ton script depuis windows, Dans ce script, tu fais une connexion ssh avec un login qui a les bon droits?

---

Dans mon script "windows", j'utilise le même identifiant qu'avec la console telnet de windows. L'envoi du mail depuis Aix fonctionne, preuve que j'arrive à me connecter.

Dans mon script "unix", j'utilise le même identifiant que d'habitude pour me connecter à la bdd. Exécuter ce script en mode commande sans passer par le script Windows fonctionne.

Bref, c'est un casse tête :aie:

Et je viens d'essayer toute autre chose en utilisant Net::Telnet à la place de Net::SSH2. J'arrive à lancer des commandes simples du genre "who", "whoami" depuis Windows vers Aix mais l'envoi d'un pauvre mail et j'ai droit illico à un timeout. Idem si je veux exécuter le script "unix" dont nous parlons depuis hier : timeout.

argfffffff on va finir par trouver

En me basant sur un test réalisé via l'emploi de Net::Telnet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

use strict; use warnings; use Net::Telnet;   my $prompt ='/.*[\>] *$/';   my $t = new Net::Telnet ( Host => "aix.dev", Timeout => 10, Prompt => $prompt); $t->login("user", "password");   foreach("whoami", "who", "pwd", "perl -v", "perl -e \'use totopouet\'") { my @temp = $t->cmd($_); print "Résultat de la commande \'$_\' -> @temp\n"; } exit();

---

Le but de la manip est de vérifier si l'exécution à distance de certaines commandes fonctionne depuis Windows vers AIX.

A noter que le dernier élément de la liste des commandes à faire exécuter renvoie vers un nom de module perl "totopouet" n'existant pas. Je souhaitais ici récupérer avec certitude le message d'erreur du compilo de Perl.

Ca marche parfaitement et je récupère bien tout à la fin le message d'erreur du compilo ne trouvant pas dans @INC le moindre module totopouet.pm.

Je ne le montre pas dans le code mais la commande "cd" fonctionne également (un test après 'cd' via commande 'pwd' me le confirme) mais dès que je demande à ce bout de script d'exécuter le programme toto.pl dont on parle depuis le début (celui se connectant à la bdd puis envoyant un mail) et ça ne va pas au bout.

Bon, bah j'espere que ça va fonctionner alors!! :lol:

CA MARCHE !!!!!!!!!!

Alors, pour résumer, je dirais que :

- le module Net::SSH2 est fort capricieux avec la bdd que nous avons au boulot
- Net::Telnet n'aime pas que l'on ouvre le canal STDERR en écriture dans un script exécuté à distance :!:
- Net::Telnet parvient toutefois à dialoguer avec la bdd

Bref, c'est assez bizarre, isn'it ?

Encore un gros merci à toi, Djibril, et aussi grand merci pour les très bons tutoriels et cours de formation pour apprendre Perl : http://perl.developpez.com/cours/ :ave::ave::ave:

:king::king::king::king::king::king::yaisse2::yaisse2::yaisse2::yaisse2::lahola::lahola: