[popfile-commit] engine/Proxy Proxy.pm,1.64,1.65

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

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24834

Modified Files:
	Proxy.pm 
Log Message:
Add more logging when connecting to server

Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -d -r1.64 -r1.65
*** Proxy.pm	20 Feb 2006 02:14:29 -0000	1.64
--- Proxy.pm	16 Nov 2006 19:12:51 -0000	1.65
***************
*** 533,536 ****
--- 533,539 ----
                      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 {
          if ( $ssl ) {
***************
*** 540,548 ****
                          PeerAddr => $hostname,
                          PeerPort => $port ); # PROFILE BLOCK STOP
!     } else {
              $mail = IO::Socket::INET->new( # PROFILE BLOCK START
                          Proto    => "tcp",
                          PeerAddr => $hostname,
                          PeerPort => $port ); # PROFILE BLOCK STOP
          }
      }
--- 543,556 ----
                          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
                          Proto    => "tcp",
                          PeerAddr => $hostname,
                          PeerPort => $port ); # PROFILE BLOCK STOP
+             $self->log_( 0, "Attempting to connect to POP server at " 
+                         . "$hostname:$port" );
          }
      }