|
From: <jgr...@us...> - 2003-07-21 19:06:17
|
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, $_);
}
|