[popfile-commit] engine/Proxy NNTP.pm,1.8,1.9 POP3.pm,1.50,1.51 SMTP.pm,1.9,1.10

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

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

Modified Files:
	NNTP.pm POP3.pm SMTP.pm 
Log Message:
Support new proxy_welcome_string to set the welcome string used by the child process for security reasons

Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** NNTP.pm	25 Mar 2003 05:24:55 -0000	1.8
--- NNTP.pm	15 Apr 2003 14:48:09 -0000	1.9
***************
*** 67,70 ****
--- 67,73 ----
      $self->config_( 'separator', ':');
  
+     # The welcome string from the proxy is configurable
+     $self->config_( 'welcome_string', "NNTP POPFile ($self->{version_}) server ready" );
+ 
      # Tell the user interface module that we having a configuration
      # item that needs a UI component
***************
*** 109,113 ****
  
      # Tell the client that we are ready for commands and identify our version number
!     $self->tee_( $client, "201 NNTP POPFile (vTODO.TODO.TODO) server ready$eol" );
  
      # Retrieve commands from the client and process them until the client disconnects or
--- 112,116 ----
  
      # Tell the client that we are ready for commands and identify our version number
!     $self->tee_( $client, "201 " . $self->config_( 'welcome_string' ) . "$eol" );
  
      # Retrieve commands from the client and process them until the client disconnects or

Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** POP3.pm	25 Mar 2003 05:24:55 -0000	1.50
--- POP3.pm	15 Apr 2003 14:48:09 -0000	1.51
***************
*** 71,74 ****
--- 71,77 ----
      $self->config_( 'separator', ':' );
  
+     # The welcome string from the proxy is configurable
+     $self->config_( 'welcome_string', "POP3 POPFile ($self->{version_}) server ready" );
+ 
      # Tell the user interface module that we having a configuration
      # item that needs a UI component
***************
*** 118,122 ****
  
      # Tell the client that we are ready for commands and identify our version number
!     $self->tee_( $client, "+OK POP3 POPFile ($self->{version_}) server ready$eol" );
  
      # Retrieve commands from the client and process them until the client disconnects or
--- 121,125 ----
  
      # Tell the client that we are ready for commands and identify our version number
!     $self->tee_( $client, "+OK " . $self->config_( 'welcome_string' ) . "$eol" );
  
      # Retrieve commands from the client and process them until the client disconnects or

Index: SMTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/SMTP.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** SMTP.pm	25 Mar 2003 05:24:56 -0000	1.9
--- SMTP.pm	15 Apr 2003 14:48:09 -0000	1.10
***************
*** 68,71 ****
--- 68,74 ----
      $self->config_( 'local', 1 );
  
+     # The welcome string from the proxy is configurable
+     $self->config_( 'welcome_string', "SMTP POPFile ($self->{version_}) welcome" );
+ 
      # Tell the user interface module that we having a configuration
      # item that needs a UI component
***************
*** 111,115 ****
  
      # Tell the client that we are ready for commands and identify our version number
!     $self->tee_(  $client, "220 SMTP POPFile ($self->{version_}) server ready$eol" );
  
      # Retrieve commands from the client and process them until the client disconnects or
--- 114,118 ----
  
      # Tell the client that we are ready for commands and identify our version number
!     $self->tee_( $client, "220 " . $self->config_( 'welcome_string' ) . "$eol" );
  
      # Retrieve commands from the client and process them until the client disconnects or