1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#/bin/perl
$|=1;
require "../lightsquid.cfg";
sub FixDay($) {
my $path=shift;
my @userlist=glob ("$path/*");
my $userfile;
my @report;
my $bug=0;
my $site;
my $size;
my $rest;
foreach $userfile (@userlist) {
$bug=0;
undef @report;
unless (-f $userfile) {
print "\nWarning !!!, subfolder '$userfile' found, VERY strange ...\n";
next;
}
open F,"<","$userfile" or die "can't open file '$userfile' - $!\n";
@report=<F>;
close F;
# print "\t$userfile\n";
for ($i=0;$i<$#report+1;$i++) {
my $str=$report[$i];
next if ($str =~ m/: /);
($site,$size,$rest)=split /\s+/,$str,3;
# print "\t\t$str ->>> $site->$size\n";
if ($size < 0) {
$newsize=2147483648+(2147483648+$size);
print "\nBug Found : $path -> $userfile ($size -> $newsize)\n";
$bug=1;
$report[$i]=sprintf("%-29s %12s %s",$site,$newsize,$rest);
}
}
if ($bug) {
# open F,">","$userfile" or die "can't open file '$userfile' - $!\n";
# print F foreach @report;
# close F;
}
}
}
#MAIN
@days=sort glob("$reportpath/*");
foreach $daypath (sort @days) {
next unless ($daypath =~ m/\d\d\d\d\d\d\d\d/);
print "$daypath\r";
FixDay($daypath);
}
|
