Multi connections en XML-RPC?

Version imprimable

23/02/2006, 10h12
yanndan

Multi connections en XML-RPC?

Bonjour tout le monde.
J'ai implémenté en PERL un serveur XML -RPC. J'ai l'impression que ce dernier traite les différentes requetes en série et non pas en parallèle. Malheureusement,j'ai beau chercher dans les différentes docs sur le net, je ne trouve pas de réponses claires et nettes. SI quelqu'un sait merci de me le poster.

Merci d'avance,
yanndan
23/02/2006, 23h01
scaleo

Ton pc est dual-core ? ou p4 HT ? sans sa tu ne peut pas faire plusieurs opérations simultanément.
24/02/2006, 10h57
yanndan

Pardon je me suis mal exprimé.
Je souhaite faire un server XML RPC en perl qui peut recevoir des connections simultanées. Est ce que quel qu'un pourrait m'aider parce là je commence un peu à ne plus savoir trop quoi faire. J'ai utilisé le package RPC::XML::Server mais ce dernier ne crée pas de fils pour répondre aux requetes. du coup si j'enchaine les requetes un peu longue je perds un temps considérable. J'ai aussi esayé le module Apache::RPC::Server, mais ce dernier me sort une erreur bizarre :

Code:

Can't locate object method "server" via package "Apache" at /usr/lib/perl5/site_perl/5.8.0/Apache/RPC/Server.pm line 337.

Si quelqu'un a des idées? Si on me dit que ce n'est pas possible, j'aimerais savoir comment il était possible de faire avec uin serveur qui gère les multiple connections parallèles.

Merci d'avance,
yanndan
24/02/2006, 15h23
scaleo

On peut voir ton code ? Pense a regarder du côté des threads et de fork() aussi 8)

Bon on reprend depuis le début.
Je cherche à faire un serveur XML RPC pouvant traité plusieur connections en simultané. J'utilise le package RPC::XML::Server.que j'utilise comme ci-dessous . Mais ce package ne propose pas de forker pour répondre aux clients.
Si vous avez des idées pour faire un serveur XML RPC qui accepte les multiples connections,je suis preneur.

Merci d'avance,
yanndan
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 use strict; use RPC::XML; use RPC::XML::Server; sub createXmlRpcServer { my $port_number=shift(); my $xpl_procedure_directory=shift(); # create a new server that does load default methods (change tag to 1 to turn off default methods) my $srv=RPC::XML::Server->new(port => $port_number, no_default =>0, timeout =>600); # add every procedure from directory my $return_val=$srv->add_methods_in_dir("$xpl_procedure_directory")."\n"; if (ref ($return_val) eq "RPC::XML::fault") { return "ERROR : RPC::XML code ".$return_val->value->{faultCode}.": ".$return_val->value->{faultString}."\n"; } # start the service $srv->server_loop; # Never returns }

24/02/2006, 23h03
Jedai

RPC::XML::Server peut tout à fait forker, il suffit d'utiliser Net::Server::(Pre)Fork à la place de HTTP::Daemon (qui est un serveur très basique). Pour faire ça, il suffit de le spécifier comme argument de server_loop avec "server_type => [qw(Fork Prefork)]" par exemple. (Et mettre no_http à 1 dans new())

--
Jedaï
25/02/2006, 16h58
yanndan

Merci.
J'essaie ça lundi et si ça marche niquel je passe le sujet en résolu.

Merci Maitre Jedai.
Ca marche nickel. Je joins à ce petit mon code en espérant que ça pourran en aider d'autres. Derniere supposition, on peut modifier les parametres du serveur Net::Server::PreFork via les arguments passés dnas le server_loop, n'est ce pas.

Merci encore tout le monde.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use RPC::XML;
use RPC::XML::Server;
 
sub createXmlRpcServer {
  my $port_number=shift();
  my $xpl_procedure_directory=shift();
 
 
  # create a new server that does load default methods (change tag to 1 to turn off default methods)
  my $srv=RPC::XML::Server->new(port => $port_number, no_default =>0, timeout =>600,  no_http    => 1 );
  # add every procedure from directory
  my $return_val=$srv->add_methods_in_dir("$xpl_procedure_directory")."\n";
  if (ref ($return_val) eq "RPC::XML::fault") {
    return "ERROR : RPC::XML code ".$return_val->value->{faultCode}.": ".$return_val->value->{faultString}."\n";
  }
  # start the service
  $srv->server_loop( server_type => qw(PreFork));  # Never returns
}

27/02/2006, 11h40
Jedai

Citation:

Envoyé par yanndan

Derniere supposition, on peut modifier les parametres du serveur Net::Server::PreFork via les arguments passés dnas le server_loop, n'est ce pas.

Tout à fait ! :)

--
Jedaï
28/02/2006, 10h17
yanndan

Pour info :
Jedai m'a signalé que :

Citation:

min_servers est le nombre minimum de fork en train de tourner tandis que min_spare_servers est le nombre minimum de fork en train d'attendre un requête (donc inférieur ou égal au nombre de fork en train de tourner).