cvs commit: modperl-docs/bin makeindex

[st...@apache.org]

stas        02/05/13 22:42:11

  Modified:    bin      makeindex
  Log:
  make bin/makeindex is silent by default
  run with -v to enable the verbose mode
  
  Revision  Changes    Path
  1.6       +12 -3     modperl-docs/bin/makeindex
  
  Index: makeindex
  ===================================================================
  RCS file: /home/cvs/modperl-docs/bin/makeindex,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- makeindex	21 Apr 2002 16:34:24 -0000	1.5
  +++ makeindex	14 May 2002 05:42:11 -0000	1.6
  @@ -1,6 +1,12 @@
   #!/usr/bin/perl -w
   
  -# do the indexing process
  +# run with -v to enable the verbose mode
  +
  +my %opts;
  +use Getopt::Std;
  +getopt('v', \%opts);
  +
  +# does the indexing process
   # relies on setting of the following env varibles:
   #
   # the root of the site, without the trailing /
  @@ -38,6 +44,9 @@
   use FindBin qw($Bin);
   use Cwd ();
   
  +my $verbose_level = exists $opts{v} ? 1 : 0;
  +my $verbose_level_reverse = exists $opts{v} ? 0 : 1;
  +
   my $swish_binary = $ENV{SWISH_BINARY_PATH} || './swish-e';
   die "Cannot find swish-e at $swish_binary: $!" unless -x $swish_binary;
   
  @@ -45,8 +54,8 @@
   chdir "$Bin/../dst_html/search";
   
   # index
  -my $command = "$swish_binary -S prog -c swish.conf";
  -#print $command;
  +my $command = "SPIDER_QUIET=$verbose_level_reverse $swish_binary -v $verbose_level -S prog -c swish.conf";
  +#print "$command\n";
   CORE::system($command);
   
   chdir $cwd;
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org