perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mose...@apache.org
Subject cvs commit: modperl-docs/src/search spider.pl
Date Tue, 30 Apr 2002 05:37:45 GMT
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: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message