################################################################################
#
# File: $RCSfile: stats.cgi,v $
-# Revision: $Revision: 1.1 $
+# Revision: $Revision: 1.1 $
# Description: This script produces a table of statistics of mail processed for
-# the user.
+# the user.
# Author: Andrew@DeFaria.com
# Created: Fri Nov 29 14:17:21 2002
# Modified: $Date: 2013/06/12 14:05:47 $
use warnings;
use FindBin;
-$0 = $FindBin::Script;
-use lib $FindBin::Bin;
+local $0 = $FindBin::Script;
+
+use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
use MAPS;
use MAPSLog;
-use MAPSUtil;
use MAPSWeb;
+use DateUtils;
-use CGI qw (:standard *table start_Tr end_Tr);
-use CGI::Carp "fatalsToBrowser";
+use CGI qw (:standard *table start_Tr end_Tr start_div end_div);
+use CGI::Carp 'fatalsToBrowser';
-my $nbr_days = param ("nbr_days");
-my $date = param ("date");
+my $nbr_days = param('nbr_days');
+my $date = param('date');
-my $table_name = "stats";
+my $table_name = 'stats';
$date = defined $date ? $date : Today2SQLDatetime;
-sub Body {
- print start_table ({-align => "center",
- -id => $table_name,
- -border => 0,
- -cellspacing => 0,
- -cellpadding => 2,
- -cols => 9,
- -width => "100%"});
- print start_Tr {-valign => "bottom"};
- print th {-class => "tableleftend"}, "Date";
+sub Body($) {
+ my ($userid) = @_;
+
+ print start_div {-id => 'highlightrow'};
+
+ print start_table ({-align => 'center',
+ -id => $table_name,
+ -border => 0,
+ -cellspacing => 0,
+ -cellpadding => 2,
+ -cols => 9,
+ -width => '100%'});
+ print start_Tr {-valign => 'bottom'};
+ print th {-class => 'tableleftend'}, 'Date';
- foreach (@Types) {
- print th {-class => "tableheader"}, ucfirst;
- } # foreach
+ for (@Types) {
+ print th {-class => 'tableheader'}, ucfirst;
+ } # for
- print th {-class => "tablerightend"}, "Total";
+ print th {-class => 'tablerightend'}, 'Total';
- my %dates = GetStats $nbr_days, $date;
+ my %dates = GetStats(
+ userid => $userid,
+ days => $nbr_days,
+ date => $date
+ );
my %totals;
- foreach my $date (sort {$b cmp $a} (keys (%dates))) {
+ for my $date (sort {$b cmp $a} (keys (%dates))) {
print start_Tr;
- print td {-class => "tablerightleftdata",
- -align => "center"}, FormatDate $date;
+ print td {-class => 'tablerightleftdata',
+ -align => 'center'}, FormatDate $date, 1;
my $day_total = 0;
- foreach (@Types) {
+ for (@Types) {
my $value = $dates{$date}{$_};
- if ($value eq 0) {
- print td {-class => "tabledata"}, " ";
+ if ($value == 0) {
+ print td {-class => 'tabledata'}, ' ';
} else {
- print td {-class => "tabledata",
- -align => "center"},
- a {-href => "detail.cgi?type=$_;date=$date"},
- $value;
+ print td {-class => 'tabledata',
+ -align => 'center'},
+ a {-href => "detail.cgi?type=$_;date=$date"},
+ $value;
} # if
$totals{$_} += $value;
$day_total += $value;
- } # foreach
+ } # for
- if ($day_total eq 0) {
- print td {-class => "tableleftrightdata"}, " ";
+ if ($day_total == 0) {
+ print td {-class => 'tableleftrightdata'}, ' ';
} else {
- print td {-class => "tableleftrightdata",
- -align => "center"}, $day_total;
+ print td {-class => 'tableleftrightdata',
+ -align => 'center'}, $day_total;
} # if
print end_Tr;
- } # foreach
+ } # for
my $grand_total = 0;
print start_Tr;
- print th {-class => "tablebottomlefttotal"}, "Totals";
+ print th {-class => 'tablebottomlefttotal'}, 'Totals';
- foreach (@Types) {
- if ($totals{$_} eq 0) {
- print td {-class => "tablebottomtotal"}, " ";
+ for (@Types) {
+ if ($totals{$_} == 0) {
+ print td {-class => 'tablebottomtotal'}, ' ';
} else {
- print td {-class => "tablebottomtotal",
- -align => "center"},
- a {-href => "detail.cgi?type=$_"}, $totals{$_};
+ print td {-class => 'tablebottomtotal',
+ -align => 'center'},
+ a {-href => "detail.cgi?type=$_"}, $totals{$_};
} # if
$grand_total += $totals{$_};
- } # foreach
+ } # for
- print td {-class => "tablebottomrighttotal",
- -align => "center"}, $grand_total;
+ print td {-class => 'tablebottomrighttotal',
+ -align => 'center'}, $grand_total;
print end_Tr;
print end_table;
+ print end_div;
+
+ return;
} # Body
# Main
my $userid = Heading (
- "getcookie",
- "",
- "Statistics",
- "Statistics",
- "",
+ 'getcookie',
+ '',
+ 'Statistics',
+ 'Statistics',
+ '',
$table_name
);
-SetContext $userid;
+$userid //= $ENV{USER};
+
+SetContext($userid);
-if (!defined $nbr_days) {
+unless ($nbr_days) {
my %options = GetUserOptions $userid;
- $nbr_days = $options{"Dates"};
-} # if
+ $nbr_days = $options{Dates};
+} # unless
-NavigationBar $userid;
+NavigationBar($userid);
-Body;
+Body($userid);
-Footing $table_name;
+Footing($table_name);
exit;