popfile-commit

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

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

Modified Files:
	Proxy.pm 
Log Message:
cleanup of echo_to_regexp_

Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Proxy.pm	21 Mar 2003 05:33:34 -0000	1.10
--- Proxy.pm	23 Mar 2003 04:04:53 -0000	1.11
***************
*** 340,349 ****
      $verbose = 0 if (!defined($verbose));
  
-     # ASSERT: $regexp =~ /^\/.*\/$/ *shrug*
-     
-     #$regexp =~ s/^\/(.*)\/$/$1/;
- 
      while ( <$mail> ) {
          # Check for an abort
          last if ( $self->{alive_} == 0 );
  
--- 340,346 ----
      $verbose = 0 if (!defined($verbose));
  
      while ( <$mail> ) {
          # Check for an abort
+         
          last if ( $self->{alive_} == 0 );
  
***************
*** 352,362 ****
          } else {
              # This creates log output
              $self->tee_($client, $_);
          }
!         
!         my $done = ($_ =~ $regexp);
!         
!         print $regexp . "=~" . $_ . ($done?'1':'0') . "\n" ;
!                 
          last if ( $_ =~ $regexp );
      }
--- 349,356 ----
          } else {
              # This creates log output
+             
              $self->tee_($client, $_);
          }
!                         
          last if ( $_ =~ $regexp );
      }