/[cvs]/nfo/perl/libs/OEF/Component/WebService/RpcXml.pm
ViewVC logotype

Diff of /nfo/perl/libs/OEF/Component/WebService/RpcXml.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by jonen, Wed Jul 2 11:00:40 2003 UTC revision 1.7 by joko, Tue Jul 6 00:45:18 2004 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ##  ------------------------------------------------------------------------  ##  ------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.7  2004/07/06 00:45:18  joko
6    ##  disabled RPC::XML::SessionServer (TODO: reactivate!)
7    ##
8  ##  Revision 1.6  2003/07/02 11:00:40  jonen  ##  Revision 1.6  2003/07/02 11:00:40  jonen
9  ##  fixed: die now if http-port is used by other app  ##  fixed: die now if http-port is used by other app
10  ##  ##
# Line 33  use base qw( DesignPattern::Object ); Line 36  use base qw( DesignPattern::Object );
36    
37  use Data::Dumper;  use Data::Dumper;
38  use RPC::XML;  use RPC::XML;
39    use RPC::XML::Server;
40  use RPC::XML::SessionServer;  use RPC::XML::SessionServer;
41  use RPC::XML::Procedure;  use RPC::XML::Procedure;
42  use Data::Mungle::Code::Symbol qw( alias_simple );  use Data::Mungle::Code::Symbol qw( alias_simple );
# Line 55  sub start { Line 59  sub start {
59    $instance_counter++;    $instance_counter++;
60    
61    # here goes the server instance    # here goes the server instance
62      $self->{_daemon} = RPC::XML::SessionServer->new(      #$self->{_daemon} = RPC::XML::SessionServer->new(
63        $self->{_daemon} = RPC::XML::Server->new(
64        port => $self->{ws_port},        port => $self->{ws_port},
65        path => $self->{ws_path} || 'WebService' . $instance_counter,        path => $self->{ws_path} || 'WebService' . $instance_counter,
66        auto_updates => 1,        auto_updates => 1,
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed