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 ----
|
