[popfile-commit] engine/Proxy POP3.pm,1.45,1.46

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

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv729/Proxy

Modified Files:
	POP3.pm 
Log Message:
Completed working of the security page

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -d -r1.45 -r1.46
*** POP3.pm	5 Mar 2003 21:15:35 -0000	1.45
--- POP3.pm	5 Mar 2003 21:36:57 -0000	1.46
***************
*** 57,62 ****
  
      # There is no default setting for the secure server
!     $self->config_( 'server', '' );
!     $self->config_( 'sport', 110 );
  
      # The default timeout in seconds for POP3 commands
--- 57,62 ----
  
      # There is no default setting for the secure server
!     $self->config_( 'secure_server', '' );
!     $self->config_( 'secure_port', 110 );
  
      # The default timeout in seconds for POP3 commands
***************
*** 213,218 ****
          # Secure authentication
          if ( $command =~ /AUTH ([^ ]+)/ ) {
!             if ( $self->config_( 'server' ) ne '' )  {
!                 if ( $mail = $self->verify_connected_( $mail, $client,  $self->config_( 'server' ), $self->config_( 'sport' ) ) )  {
                      # Loop until we get -ERR or +OK
                      my $response;
--- 213,218 ----
          # Secure authentication
          if ( $command =~ /AUTH ([^ ]+)/ ) {
!             if ( $self->config_( 'secure_server' ) ne '' )  {
!                 if ( $mail = $self->verify_connected_( $mail, $client,  $self->config_( 'secure_server' ), $self->config_( 'secure_port' ) ) )  {
                      # Loop until we get -ERR or +OK
                      my $response;
***************
*** 243,248 ****
  
          if ( $command =~ /AUTH/ ) {
!             if ( $self->config_( 'server' ) ne '' )  {
!                 if ( $mail = $self->verify_connected_( $mail, $client,  $self->config_( 'server' ), $self->config_( 'sport' ) ) )  {
                      if ( $self->echo_response_($mail, $client, "AUTH" ) ) {
                          $self->echo_to_dot_( $mail, $client );
--- 243,248 ----
  
          if ( $command =~ /AUTH/ ) {
!             if ( $self->config_( 'secure_server' ) ne '' )  {
!                 if ( $mail = $self->verify_connected_( $mail, $client,  $self->config_( 'secure_server' ), $self->config_( 'secure_port' ) ) )  {
                      if ( $self->echo_response_($mail, $client, "AUTH" ) ) {
                          $self->echo_to_dot_( $mail, $client );
***************
*** 327,332 ****
          # The CAPA command
          if ( $command =~ /CAPA/i ) {
!             if ( $self->config_( 'server' ) ne '' )  {
!                 if ( $mail = $self->verify_connected_( $mail, $client, $self->config_( 'server' ), $self->config_( 'sport' ) ) )  {
                      $self->echo_to_dot_( $mail, $client ) if ( $self->echo_response_($mail, $client, "CAPA" ) );
                  } else {
--- 327,332 ----
          # The CAPA command
          if ( $command =~ /CAPA/i ) {
!             if ( $self->config_( 'secure_server' ) ne '' )  {
!                 if ( $mail = $self->verify_connected_( $mail, $client, $self->config_( 'secure_server' ), $self->config_( 'secure_port' ) ) )  {
                      $self->echo_to_dot_( $mail, $client ) if ( $self->echo_response_($mail, $client, "CAPA" ) );
                  } else {