Discussion :

[alexlehay]

Bonjour à tous,

J'essaye depuis des jours d'evoyer des requêtes XML-RPC via un script Perl tournant sur un serveur Unix Linux i686. Avec une interface graphique GUI dédié, le serveur reçoit et répond aux différentes requêtes mais mon but est d'automatiser tout cela en script Unix.

J'ai donc installé Active Perl (J'ai testé des simples scripts et ça marche) et RPC-XML-0.64 et créé un script ayant pour but d'envoyer une requête XML-RPC sur un serveur.

Le problême est que j'ai une erreur lorque j'envoie ma requête. Je fais tourner mon script sur le serveur qui doit me répondre donc pas de problême de réseau....

Voici mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/xml_rpc/bin/perl
 
use RPC::XML::Client;
 
my $client = new RPC::XML::Client 'http://XX.XXX.X.X';
printf "$client \n";
 
my $req = RPC::XML::request->new('rack.Status'); #j'ai essayé aussi avec un argument
printf "$req \n";
 
my $res = $client->send_request($req);
printf "$res \n";
 
my $value = $res->value->value

Donc acprès execution j'ai cela :

RPC::XML::Client=HASH(0xXXXXXXX) #correspondant au printf $client
RPC::XML::request=HASH(0xXXXXXXX) #correspondant au printf $req
mismatched tag at line 7, column 2, byte 216 at /xml_rpc/site/lib/RPC/XML/Client.pm line 343 #correspondant au printf $res

Je suis aller à la ligne correspondant à l'erreur dans le fichier Client.pm et là voici :

Code :

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

$parser->parse_more($data);

Voilà, si quelqu'un a déjà utilisé tout cela et peut m'aider, j'attend son aide impatiement.

Merci les amis

Alex

[alexlehay]

TOPIC RESOLU...Il fallait mettre le chemin de la méthode derrière l'adresse IP du serveur.

@ ++