[popfile-commit] engine/Proxy Proxy.pm,1.22,1.23

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

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

Modified Files:
	Proxy.pm 
Log Message:
Rename verbose parameter to log to make it clearer

Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Proxy.pm	21 Jul 2003 19:03:52 -0000	1.22
--- Proxy.pm	21 Jul 2003 19:06:14 -0000	1.23
***************
*** 336,340 ****
  # $client   The local mail client (created with IO::) that needs the response
  # $regexp   The pattern match to terminate echoing, compile using qr/pattern/
! # $verbose  (OPTIONAL) log output if 1, defaults to 0 if unset
  # $suppress (OPTIONAL) suppress any lines that match, compile using qr/pattern/
  #
--- 336,340 ----
  # $client   The local mail client (created with IO::) that needs the response
  # $regexp   The pattern match to terminate echoing, compile using qr/pattern/
! # $log      (OPTIONAL) log output if 1, defaults to 0 if unset
  # $suppress (OPTIONAL) suppress any lines that match, compile using qr/pattern/
  #
***************
*** 344,350 ****
  sub echo_to_regexp_
  {
!     my ( $self, $mail, $client, $regexp, $verbose, $suppress ) = @_;
  
!     $verbose = 0 if (!defined($verbose));
  
      while ( <$mail> ) {
--- 344,350 ----
  sub echo_to_regexp_
  {
!     my ( $self, $mail, $client, $regexp, $log, $suppress ) = @_;
  
!     $log = 0 if (!defined($log));
  
      while ( <$mail> ) {
***************
*** 354,362 ****
  
          if (!defined($suppress) || !( $_ =~ $suppress )) {
!             if (!$verbose) {
                  print $client $_;
              } else {
-                 # This creates log output
- 
                  $self->tee_($client, $_);
              }
--- 354,360 ----
  
          if (!defined($suppress) || !( $_ =~ $suppress )) {
!             if (!$log) {
                  print $client $_;
              } else {
                  $self->tee_($client, $_);
              }