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
|
