rpc/rpcxml/nonpoe_serv.plx

#!/usr/bin/perl

use strict;

use RPC::XML::Server ();
use Data::Dumper qw( Dumper );

my $srv = RPC::XML::Server->new(
                                port => 7777,
                               );

die $srv unless ref $srv;

{
  my $add = $srv->add_method( {
                               name => "spoo",
                               version => "0.01",
                               hidden => undef,
#                              signature => [ ['int', 'array'] ],
                               signature => [ [ 'int' ],
                                              [ qw(string array) ],
                                            ],
                               code => \&spoo,
                              }
                            );
  die "add_method failed: $add\n" unless ref( $add );
}

print STDERR "Starting server loop on ", $srv->url, " \n";

$srv->server_loop;

exit 0;

sub spoo {
  my $srv = shift;
  my $sig = join( ':', @{$srv->{signature}} );

  print STDERR $srv->{method_name},
               " called with sig $sig:\n\t",
               join( "\t\n", map { "$_:\n" . Dumper( $_[0] ) } 0..$#_ ),
               "\n";

  $sig eq 'string:array' and return "OK " . join( ':', @{$_[0]} );
  $sig eq 'int' and return 42;

}
1	#!/usr/bin/perl
2
3	use strict;
4
5	use RPC::XML::Server ();
6	use Data::Dumper qw( Dumper );
7
8	my $srv = RPC::XML::Server->new(
9	port => 7777,
10	);
11
12	die $srv unless ref $srv;
13
14	{
15	my $add = $srv->add_method( {
16	name => "spoo",
17	version => "0.01",
18	hidden => undef,
19	# signature => [ ['int', 'array'] ],
20	signature => [ [ 'int' ],
21	[ qw(string array) ],
22	],
23	code => \&spoo,
24	}
25	);
26	die "add_method failed: $add\n" unless ref( $add );
27	}
28
29	print STDERR "Starting server loop on ", $srv->url, " \n";
30
31	$srv->server_loop;
32
33	exit 0;
34
35	sub spoo {
36	my $srv = shift;
37	my $sig = join( ':', @{$srv->{signature}} );
38
39	print STDERR $srv->{method_name},
40	" called with sig $sig:\n\t",
41	join( "\t\n", map { "$_:\n" . Dumper( $_[0] ) } 0..$#_ ),
42	"\n";
43
44	$sig eq 'string:array' and return "OK " . join( ':', @{$_[0]} );
45	$sig eq 'int' and return 42;
46
47	}
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26