Discussion :

[Arioch]

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 :

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

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

J'ai tenté de retranscrire comme ceci :

Code :

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

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

ou encore comme ceci :

Code :

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

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

[Arioch]

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 :

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

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 ?

[djibril]

Bon essaye ceci :

Code :

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

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

[Arioch]

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

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 :

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

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

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

[djibril]

fait un locate dmfqm sur ton serveur unix

[Arioch]

fait un locate dmfqm sur ton serveur unix

locate ne donne rien :

Code :

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

1
2
 >locate dmfqm
ksh: locate:  not found

Par contre, which me donne ce chemin :

Code :

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

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 :

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

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

[djibril]

si tu fais une commande de ce genre :

Code :

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

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";

[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.
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.

[Arioch]

si tu fais une commande de ce genre :

Code :

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

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.

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 :

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

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

[djibril]

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

Code :

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

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

?

[Arioch]

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

Code :

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

/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

[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?

[Arioch]

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

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.

[djibril]

argfffffff on va finir par trouver

[Arioch]

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

Code :

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

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.

[djibril]

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

[Arioch]

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/

[djibril]