moseley 02/04/29 22:37:45
Modified: src/search spider.pl
Log:
Here's the options:
SPIDER_VERBOSE=0 ./swish-e -c swish.conf -S prog -v0
SPIDER_QUIET=1 ./swish-e -c swish.conf -S prog -v0
Revision Changes Path
1.5 +4 -3 modperl-docs/src/search/spider.pl
Index: spider.pl
===================================================================
RCS file: /home/cvs/modperl-docs/src/search/spider.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- spider.pl 20 Apr 2002 06:13:05 -0000 1.4
+++ spider.pl 30 Apr 2002 05:37:44 -0000 1.5
@@ -2,7 +2,7 @@
use strict;
-# $Id: spider.pl,v 1.4 2002/04/20 06:13:05 moseley Exp $
+# $Id: spider.pl,v 1.5 2002/04/30 05:37:44 moseley Exp $
#
# "prog" document source for spidering web servers
#
@@ -23,7 +23,7 @@
use HTML::Tagset;
use vars '$VERSION';
-$VERSION = sprintf '%d.%02d', q$Revision: 1.4 $ =~ /: (\d+)\.(\d+)/;
+$VERSION = sprintf '%d.%02d', q$Revision: 1.5 $ =~ /: (\d+)\.(\d+)/;
use vars '$bit';
use constant DEBUG_ERRORS => $bit = 1; # program errors
@@ -73,7 +73,8 @@
}
- print STDERR "$0: Reading parameters from '$config'\n" unless
$ENV{SPIDER_QUIET};
+ print STDERR "$0: Reading parameters from '$config'\n"
+ unless $ENV{SPIDER_QUIET} || ( defined $ENV{SPIDER_VERBOSE} &&
!$ENV{SPIDER_VERBOSE} );
my $abort;
local $SIG{HUP} = sub { warn "Caught SIGHUP\n"; $abort++ } unless $^O =~
/Win32/i;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
