/[kvake]/kvake.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /kvake.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Fri Apr 14 06:30:19 2000 UTC revision 1.4 by dpavlin, Fri Apr 14 07:24:06 2000 UTC
# Line 17  Line 17 
17  $mod_time = 10*60;      # 10 minuta  $mod_time = 10*60;      # 10 minuta
18  #$mod_time = 24*60*60;  # 1 day  #$mod_time = 24*60*60;  # 1 day
19    
20  $verbose = 1;  $verbose = 0;
21    
22  #@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" );  #@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" );
23    
# Line 27  while (defined($ARGV[0]) && $ARGV[0] eq Line 27  while (defined($ARGV[0]) && $ARGV[0] eq
27  }  }
28  print STDERR "verbosity: $verbose\n" if ($verbose);  print STDERR "verbosity: $verbose\n" if ($verbose);
29    
30  if (! defined(@ARGV)) {  if (! defined(@ARGV) || ($#ARGV < 0)) {
31          @dirs=( "/data/web/public",          @dirs=( "/data/web/public",
32                  "/usr/users/it/dpeterc" );                  "/usr/users/it/dpeterc" );
33  } else {  } else {
34          @dirs=@ARGV;          @dirs=@ARGV;
35  }  }
36    
37  print STDERR "Scanning dirs: @dirs\n";  print STDERR "Scanning dirs: @dirs\n" if ($verbose);
38    
39  foreach $dir (@dirs) {  foreach $dir (@dirs) {
40          opendir(DIR,"$dir") || warn "can't open $dir: $!";          opendir(DIR,"$dir") || warn "can't open $dir: $!";

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.26