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 |
|
|
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: $!"; |