popfile-commit

[<ssc...@us...>]

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

Modified Files:
	NNTP.pm 
Log Message:
remove last vestiges of POP3 syntax and comments

Index: NNTP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/NNTP.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** NNTP.pm	18 Mar 2003 15:28:45 -0000	1.5
--- NNTP.pm	19 Mar 2003 04:03:31 -0000	1.6
***************
*** 48,52 ****
  # initialize
  #
! # Called to initialize the POP3 proxy module
  #
  # ---------------------------------------------------------------------------------------------
--- 48,52 ----
  # initialize
  #
! # Called to initialize the NNTP proxy module
  #
  # ---------------------------------------------------------------------------------------------
***************
*** 55,59 ****
      my ( $self ) = @_;
  
!     # Default ports for POP3 service and the user interface
  
      $self->config_( 'port', 119 );
--- 55,59 ----
      my ( $self ) = @_;
  
!     # Default ports for NNTP service and the user interface
  
      $self->config_( 'port', 119 );
***************
*** 76,80 ****
  # The worker method that is called when we get a good connection from a client
  #
! # $client   - an open stream to a POP3 client
  # $download_count - The unique download count for this session
  #
--- 76,80 ----
  # The worker method that is called when we get a good connection from a client
  #
! # $client   - an open stream to a NNTP client
  # $download_count - The unique download count for this session
  #
***************
*** 109,113 ****
  
          # The news client wants to stop using the server, so send that message through to the
!         # real mail server, echo the response back up to the client and exit the while.  We will
          # close the connection immediately
          if ( $command =~ /^ *QUIT/i ) {
--- 109,113 ----
  
          # The news client wants to stop using the server, so send that message through to the
!         # real news server, echo the response back up to the client and exit the while.  We will
          # close the connection immediately
          if ( $command =~ /^ *QUIT/i ) {
***************
*** 279,283 ****
              next;
          } else {
!             $self->tee_(  $client, "-ERR unknown command or bad syntax$eol" );
              last;
          }
--- 279,283 ----
              next;
          } else {
!             $self->tee_(  $client, "500 unknown command or bad syntax$eol" );
              last;
          }
***************
*** 290,294 ****
      $self->log_( "NNTP forked child done" );
  }
- 
- # TODO echo_response_ that calls echo_response_ with the extra parameters
- # required et al.
--- 290,291 ----