X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fstats.cgi;h=135ce7804ce1fa95ef6dbff0d8fbb6baf1bb56aa;hb=ae9e57b169de143d2b8a7c761c3bf7394385e0d0;hp=9964f4a62ce57be147463d1db4164cf4e3903261;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/maps/bin/stats.cgi b/maps/bin/stats.cgi
index 9964f4a..135ce78 100755
--- a/maps/bin/stats.cgi
+++ b/maps/bin/stats.cgi
@@ -2,9 +2,9 @@
 ################################################################################
 #
 # 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 $
@@ -17,121 +17,132 @@ use strict;
 use warnings;
 
 use FindBin;
-$0 = $FindBin::Script;
 
-use lib $FindBin::Bin;
+local $0 = $FindBin::Script;
+
+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::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";
-
-  foreach (@Types) {
-    print th {-class => "tableheader"}, ucfirst;
-  } # foreach
-
-  print th {-class => "tablerightend"}, "Total";
-
-  my %dates = GetStats $nbr_days, $date;
+sub Body($) {
+  my ($userid) = @_;
+
+  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';
+
+  for (@Types) {
+    print th {-class => 'tableheader'}, ucfirst;
+  } # for
+
+  print th {-class => 'tablerightend'}, 'Total';
+
+  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;
+
+  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;