Discussion :

[yanndan]

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

[scaleo]

Ton pc est dual-core ? ou p4 HT ? sans sa tu ne peut pas faire plusieurs opérations simultanément.

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

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

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

[scaleo]

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

[yanndan]

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 :

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
 
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
}

[Jedai]

RPC::XML::Server peut tout à fait forker, il suffit d'utiliser Net::Server:Pre)Fork à la place de HTTP:aemon (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ï

[yanndan]

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

[yanndan]

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 :

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
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
}

[Jedai]

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

Tout à fait !

--
Jedaï

[yanndan]

Pour info :
Jedai m'a signalé que :

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