[popfile-commit] engine/Proxy Proxy.pm,1.54.4.2,1.54.4.3

[Manni H. <man...@us...>]

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" );
          }