Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17435/Proxy
Modified Files:
Tag: b0_22_2
Proxy.pm
Log Message:
Log when we open the server socket.
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.54.4.2
retrieving revision 1.54.4.3
diff -C2 -d -r1.54.4.2 -r1.54.4.3
*** Proxy.pm 16 Nov 2006 19:06:47 -0000 1.54.4.2
--- Proxy.pm 19 Nov 2007 09:13:43 -0000 1.54.4.3
***************
*** 128,132 ****
# Open the socket used to receive request for proxy service
!
$self->{server__} = IO::Socket::INET->new( Proto => 'tcp', # PROFILE BLOCK START
($self->config_( 'local' ) || 0) == 1 ? (LocalAddr => 'localhost') : (),
--- 128,132 ----
# Open the socket used to receive request for proxy service
! $self->log_( 1, "Opening listening socket on port " . $self->config_('port') . '.' );
$self->{server__} = IO::Socket::INET->new( Proto => 'tcp', # PROFILE BLOCK START
($self->config_( 'local' ) || 0) == 1 ? (LocalAddr => 'localhost') : (),
***************
*** 492,497 ****
ConnectAddr => $hostname,
ConnectPort => $port ); # PROFILE BLOCK STOP
! $self->log_( 0, "Attempting to connect to socks server at "
! . $self->config_( 'socks_server' ) . ":"
. ProxyPort => $self->config_( 'socks_port' ) );
} else {
--- 492,497 ----
ConnectAddr => $hostname,
ConnectPort => $port ); # PROFILE BLOCK STOP
! $self->log_( 0, "Attempting to connect to socks server at "
! . $self->config_( 'socks_server' ) . ":"
. ProxyPort => $self->config_( 'socks_port' ) );
} else {
***************
*** 502,508 ****
PeerAddr => $hostname,
PeerPort => $port ); # PROFILE BLOCK STOP
! $self->log_( 0, "Attempting to connect to SSL server at "
. "$hostname:$port" );
!
} else {
$mail = IO::Socket::INET->new( # PROFILE BLOCK START
--- 502,508 ----
PeerAddr => $hostname,
PeerPort => $port ); # PROFILE BLOCK STOP
! $self->log_( 0, "Attempting to connect to SSL server at "
. "$hostname:$port" );
!
} else {
$mail = IO::Socket::INET->new( # PROFILE BLOCK START
***************
*** 510,514 ****
PeerAddr => $hostname,
PeerPort => $port ); # PROFILE BLOCK STOP
! $self->log_( 0, "Attempting to connect to POP server at "
. "$hostname:$port" );
}
--- 510,514 ----
PeerAddr => $hostname,
PeerPort => $port ); # PROFILE BLOCK STOP
! $self->log_( 0, "Attempting to connect to POP server at "
. "$hostname:$port" );
}
|
