tyler.durden
/
squidanalyzer
mirror of https://github.com/darold/squidanalyzer.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Skip some code when --no-year-stat is enabled.

This commit is contained in:
Darold Gilles 2013-06-02 11:05:04 +02:00
parent 658222636b
commit 7ad2bb51cd
2 changed files with 17 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
SquidAnalyzer.pm
View File

@ -1420,12 +1420,12 @@ sub _print_cache_stat
$out->open(">$file") || die "ERROR: Unable to open $file. $!\n"; $out->open(">$file") || die "ERROR: Unable to open $file. $!\n";
# Print the HTML header # Print the HTML header
my $cal = $self->_get_calendar($stat_date, $type, $outdir); my $cal = $self->_get_calendar($stat_date, $type, $outdir);
$self->_print_header(\$out, $self->{menu}, $cal); if ( !$self->{no_year_stat} || ($type ne 'month') ) {
$self->_print_header(\$out, $self->{menu}, $cal);
# Print title and calendar view print $out $self->_print_title($Translate{'Cache_title'}, $stat_date);
print $out $self->_print_title($Translate{'Cache_title'}, $stat_date); } else {
$self->_print_header(\$out, $self->{menu3}, $cal);
if ( $self->{no_year_stat} && ($type eq 'month') ) { print $out $self->_print_title($Translate{'Cache_title'}, $stat_date);
%code_stat = (); %code_stat = ();
$self->_print_footer(\$out); $self->_print_footer(\$out);
$out->close(); $out->close();

31
doc/squidanalyzer.3
View File

@ -1,4 +1,4 @@
.\" Automatically generated by Pod::Man 2.26 (Pod::Simple 3.07) .\" Automatically generated by Pod::Man 2.25 (Pod::Simple 3.16)
.\" .\"
.\" Standard preamble: .\" Standard preamble:
.\" ======================================================================== .\" ========================================================================
@ -38,8 +38,6 @@
. ds PI \(*p . ds PI \(*p
. ds L" `` . ds L" ``
. ds R" '' . ds R" ''
. ds C`
. ds C'
'br\} 'br\}
.\" .\"
.\" Escape single quotes in literal strings from groff's Unicode transform. .\" Escape single quotes in literal strings from groff's Unicode transform.
@ -50,24 +48,17 @@
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the .\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion. .\" output yourself in some meaningful fashion.
.\" .ie \nF \{\
.\" Avoid warning from groff about undefined register 'F'. . de IX
.de IX . tm Index:\\$1\t\\n%\t"\\$2"
..
. nr % 0
. rr F
.\}
.el \{\
. de IX
.. ..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{
. if \nF \{
. de IX
. tm Index:\\$1\t\\n%\t"\\$2"
..
. if !\nF==2 \{
. nr % 0
. nr F 2
. \}
. \}
.\} .\}
.rr rF
.\" .\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts. .\" Fear. Run. Save yourself. No user-serviceable parts.
@ -133,7 +124,7 @@
.\" ======================================================================== .\" ========================================================================
.\" .\"
.IX Title "SQUIDANALYZER 1" .IX Title "SQUIDANALYZER 1"
.TH SQUIDANALYZER 1 "2013-05-27" "perl v5.10.1" "User Contributed Perl Documentation" .TH SQUIDANALYZER 1 "2013-05-26" "perl v5.14.2" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents. .\" way too many mistakes in technical documents.
.if n .ad l .if n .ad l