X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2FStatus.html;h=38452b997ddb895c188eea97191549ca0072a3d3;hb=4e472eaf8dfd15754fcaaf81047e13f8dd490290;hp=019470eb9c16542c3275e973a1772f1a8455575f;hpb=726016f6288d017c748a8d4cdc0157ad7abfe13a;p=freeside.git

diff --git a/httemplate/view/Status.html b/httemplate/view/Status.html
index 019470eb9..38452b997 100644
--- a/httemplate/view/Status.html
+++ b/httemplate/view/Status.html
@@ -106,13 +106,47 @@ if ( _is_running('cdrd') ) {
                         $s. 's';
 
   }
-
   $status{'CDR Processing'} = [
     { 'title' => 'Current processing delay',
       'value' => $delay,
     },
   ];
 
+  my $pr_delay = FS::Record->scalar_sql('
+    SELECT AVG(end_date-start_date)
+      FROM queue_stat
+      GROUP BY statnum
+      ORDER BY statnum DESC
+      LIMIT 100
+  ');
+  if ( $pr_delay ) {
+    my $h = int($delay/3600);
+    my $m = int( ($delay%3600) / 60 );
+    my $s = $delay%60;
+
+    $pr_delay = ( $h     ? $h. 'h' : '' ).
+                ( $h||$m ? $m. 'm' : '').
+                           $s. 's';
+
+  }
+  $status{'CDR Processing'} = [
+    { 'title' => 'Average billing time',
+      'value' => $pr_delay,
+    },
+  ];
+
+  my $dayago = time2str('%Y-%m-%d %X', time - 86400);
+  my $cdrs = FS::Record->scalar_sql(qq{
+    SELECT COUNT(*) FROM cdr
+      WHERE ( freesidestatus IS NULL OR freesidestatus = '' )
+        AND calldate > '$dayago'
+  });
+  $status{'CDR Processing'} = [
+    { 'title' => 'Unprocessed CDRs (last 24 hours)',
+      'value' => $cdrs,
+    },
+  ];
+
 }
 
 sub _is_running {