services: services/perl/lib/AppSwitch/Base Client.pm

[<app...@li...>]

jgsmith     01/07/29 11:25:35

  Modified:    perl/lib/AppSwitch/Base Client.pm
  Log:
  Changed to XML-RPC for now
  
  Revision  Changes    Path
  1.4       +4 -7      services/perl/lib/AppSwitch/Base/Client.pm
  
  Index: Client.pm
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/lib/AppSwitch/Base/Client.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -b -u -r1.3 -r1.4
  --- Client.pm	2001/07/29 05:12:31	1.3
  +++ Client.pm	2001/07/29 18:25:35	1.4
  @@ -3,10 +3,10 @@
   our $VERSION = 0.01;
   
   use Carp;
  -use SOAP::Transport::UNIX;
  +use XMLRPC::Transport::UNIX;
   use strict;
   
  -# $Id: Client.pm,v 1.3 2001/07/29 05:12:31 jgsmith Exp $
  +# $Id: Client.pm,v 1.4 2001/07/29 18:25:35 jgsmith Exp $
   
   =head1 NAME
   
  @@ -125,18 +125,15 @@
   
   
   sub request {
  -    my($self) = shift;
  +    my($self, $method, %args) = @_;
   
  -    my $method = shift;
  -    my(%args) = @_;
  -
       $method = $self -> service() . ".$method";
   
       # now we need to dispatch via the SOAP/XML-RPC client object...  which is global...
       our $_client;
   
       if(!defined $_client) {
  -        $_client = SOAP::Lite -> proxy("unix:$ENV{APPSWITCH_SOCKET}")
  +        $_client = XMLRPC::Lite -> proxy("unix:$ENV{APPSWITCH_SOCKET}")
               or croak "Unable to connect to AppSwitch daemon: $!";
       }