[popfile-commit] engine/Test SimpleProxy.pm,1.3,1.4

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/Test
In directory sc8-pr-cvs1:/tmp/cvs-serv22975/Test

Modified Files:
	SimpleProxy.pm 
Log Message:
Remove extra logging

Index: SimpleProxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Test/SimpleProxy.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SimpleProxy.pm	17 Jul 2003 20:12:33 -0000	1.3
--- SimpleProxy.pm	21 Jul 2003 19:54:40 -0000	1.4
***************
*** 98,103 ****
  
      if ( defined( $self->{remote_client__} ) ) {
-         $self->log_( "service_server: remote client is connected" );
- 
          my $handle = $self->{remote_client__};
  
--- 98,101 ----
***************
*** 113,117 ****
          if ( defined( $self->{remote_client_selector__}->can_read(0) ) ) {
              my $line = <$handle>;
-             $self->log_( "Phony server has received $line" );
              $self->{received__} .= $line;
  	}
--- 111,114 ----
***************
*** 151,160 ****
      my $remote = $self->verify_connected_( 0, $client, 'localhost', $self->{server_port__} );
  
-     if ( defined( $remote ) && $remote->connected ) {
-         $self->log_( "Child connected to server" );
-     } else {
-         $self->log_( "Child failed to connect to server" );
-     }
- 
      # Create two selectors so that we can see if the client or the remote
      # have something to send and can echo between the two
--- 148,151 ----
***************
*** 167,171 ****
              my $line = <$remote>;
              if ( defined( $line ) ) {
-                 $self->log_( "Echoing $line from remote to client" );
                  print $client $line;
  	    } else {
--- 158,161 ----
***************
*** 175,184 ****
          if ( defined( $client_selector->can_read(0) ) ) {
              my $line = <$client>;
-             $self->log_( "Echoing $line from client to remote" );
              print $remote $line;
          }
      }
  
-     $self->log_( "Child terminated" );
      close $remote;
      close $pipe;
--- 165,172 ----
***************
*** 192,197 ****
      my $received = $self->{received__};
  
- 
-     $self->log_( "Received $received" );
      $self->{received__} = '';
  
--- 180,183 ----