tyler.durden/squidanalyzer
1
0
Fork 0
mirror of https://github.com/darold/squidanalyzer.git synced 2025-07-30 09:24:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix test to exclude old months and days from the statistics builder. Thanks to ammdispose for the patch.

Browse Source
This commit is contained in:
Darold Gilles 2013-02-04 16:05:56 +01:00
parent c1b4cdb535
commit e0888df14d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SquidAnalyzer.pm
View File

@ -1226,12 +1226,12 @@ sub buildHTML
`$RM_PROG -rf $outdir/$y/$m`; `$RM_PROG -rf $outdir/$y/$m`;
next; next;
} }
next if ($m < $old_month); next if ("$y$m" < "$old_year$old_month");
opendir(DIR, "$outdir/$y/$m") || die "Error: can't opendir $outdir/$y/$m: $!"; opendir(DIR, "$outdir/$y/$m") || die "Error: can't opendir $outdir/$y/$m: $!";
my @days = grep { /^\d{2}$/ && -d "$outdir/$y/$m/$_"} readdir(DIR); my @days = grep { /^\d{2}$/ && -d "$outdir/$y/$m/$_"} readdir(DIR);
closedir DIR; closedir DIR;
foreach my $d (sort {$a <=> $b} @days) { foreach my $d (sort {$a <=> $b} @days) {
next if ($d < $old_day); next if ("$y$m$d" < "$old_year$old_month$old_day");
print STDERR "Generating daily statistics for day $y-$m-$d\n" if (!$self->{QuietMode}); print STDERR "Generating daily statistics for day $y-$m-$d\n" if (!$self->{QuietMode});
$self->gen_html_output($outdir, $y, $m, $d); $self->gen_html_output($outdir, $y, $m, $d);
} }