[popfile-commit] engine/UI XMLRPC.pm,1.5,1.6

[<ssc...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv7489

Modified Files:
	XMLRPC.pm 
Log Message:
basic XMLRPC tests, 48% XMRPC coverage
failure of daemon start and UI plugin tests required

Index: XMLRPC.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/XMLRPC.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** XMLRPC.pm	31 Jul 2003 16:32:22 -0000	1.5
--- XMLRPC.pm	31 Aug 2003 22:25:55 -0000	1.6
***************
*** 81,91 ****
      # item that needs a UI component
  
!     $self->register_configuration_item_( 'configuration',
                                           'xmlrpc_port',
!                                          $self );
  
!     $self->register_configuration_item_( 'security',
                                           'xmlrpc_local',
!                                           $self );
  
      return 1;
--- 81,91 ----
      # item that needs a UI component
  
!     $self->register_configuration_item_( 'configuration',   # PROFILE BLOCK START
                                           'xmlrpc_port',
!                                          $self );           # PROFILE BLOCK STOP
  
!     $self->register_configuration_item_( 'security',        # PROFILE BLOCK START
                                           'xmlrpc_local',
!                                           $self );          # PROFILE BLOCK STOP
  
      return 1;
***************
*** 106,115 ****
      # Classifier::Bayes object
  
!     $self->{server__} = XMLRPC::Transport::HTTP::Daemon->new(
                                       Proto     => 'tcp',
                                       $self->config_( 'local' )  == 1 ? (LocalAddr => 'localhost') : (),
                                       LocalPort => $self->config_( 'port' ),
                                       Listen    => SOMAXCONN,
!                                      Reuse     => 1 );
  
      if ( !defined( $self->{server__} ) ) {
--- 106,115 ----
      # Classifier::Bayes object
  
!     $self->{server__} = XMLRPC::Transport::HTTP::Daemon->new(   # PROFILE BLOCK START
                                       Proto     => 'tcp',
                                       $self->config_( 'local' )  == 1 ? (LocalAddr => 'localhost') : (),
                                       LocalPort => $self->config_( 'port' ),
                                       Listen    => SOMAXCONN,
!                                      Reuse     => 1 );          # PROFILE BLOCK STOP
  
      if ( !defined( $self->{server__} ) ) {
***************
*** 178,183 ****
              my ( $remote_port, $remote_host ) = sockaddr_in( $client->peername() );
  
!             if ( ( $self->config_( 'local' ) == 0 ) ||
!                  ( $remote_host eq inet_aton( "127.0.0.1" ) ) ) {
                  my $request = $client->get_request();
  
--- 178,183 ----
              my ( $remote_port, $remote_host ) = sockaddr_in( $client->peername() );
  
!             if ( ( $self->config_( 'local' ) == 0 ) ||              # PROFILE BLOCK START
!                  ( $remote_host eq inet_aton( "127.0.0.1" ) ) ) {   # PROFILE BLOCK STOP
                  my $request = $client->get_request();