--- kvake.pl 2000/04/14 06:30:19 1.3 +++ kvake.pl 2000/04/14 07:24:06 1.4 @@ -17,7 +17,7 @@ $mod_time = 10*60; # 10 minuta #$mod_time = 24*60*60; # 1 day -$verbose = 1; +$verbose = 0; #@ignore_dirs=( "/data/web/public/adresar/", "/data/web/public/eng" ); @@ -27,14 +27,14 @@ } print STDERR "verbosity: $verbose\n" if ($verbose); -if (! defined(@ARGV)) { +if (! defined(@ARGV) || ($#ARGV < 0)) { @dirs=( "/data/web/public", "/usr/users/it/dpeterc" ); } else { @dirs=@ARGV; } -print STDERR "Scanning dirs: @dirs\n"; +print STDERR "Scanning dirs: @dirs\n" if ($verbose); foreach $dir (@dirs) { opendir(DIR,"$dir") || warn "can't open $dir: $!";