From ec93430741943381ff03f344ee932d3671cb5fbb Mon Sep 17 00:00:00 2001
From: Andrew Williams <andrew@manor.org>
Date: Sat, 14 Feb 2015 15:49:19 -0500
Subject: [PATCH] Time how long reports take to run

---
 FlowTrack.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/FlowTrack.pl b/FlowTrack.pl
index a957d33..2acff61 100755
--- a/FlowTrack.pl
+++ b/FlowTrack.pl
@@ -26,6 +26,7 @@
 use Carp;
 use Getopt::Long;
 use Data::Dumper;
+use Time::HiRes qw ( gettimeofday tv_interval);
 
 use FT::Configuration;
 use FT::FlowCollector;
@@ -191,7 +192,7 @@ sub startWebserver
     my $daemon = Mojo::Server::Daemon->new( listen => [ 'http://*:' . $config->{web_port} ] );
     my $app    = FT::FlowTrackWeb->new();
 
-    $app->secrets(['3305CA4A-DE4D-4F34-9A38-F17E0A656A25']);
+    $app->secrets( ['3305CA4A-DE4D-4F34-9A38-F17E0A656A25'] );
     $daemon->app( FT::FlowTrackWeb->new() );
     $daemon->run();
 
@@ -206,8 +207,8 @@ sub startWebserver
 # in time.
 sub runReports
 {
-    my $logger = get_logger();
-    my $config = FT::Configuration::getConf();
+    my $logger  = get_logger();
+    my $config  = FT::Configuration::getConf();
     my $reports = FT::Reporting->new($config);
 
     while (1)
@@ -216,7 +217,10 @@ sub runReports
         sleep( ( $config->{reporting_interval} * 60 ) - ( time % ( $config->{reporting_interval} * 60 ) ) );
 
         $logger->info('Running report');
+
+        my $start_time = [gettimeofday];
         $reports->runReports();
+        $logger->info( 'Reporting took: ' . tv_interval($start_time) );
 
         sleep( $config->{reporting_interval} * 60 );
     }
@@ -234,14 +238,14 @@ sub savePIDFile
     if ( -w $config->{pid_files} )
     {
         open( my $fh, ">", $config->{pid_files} . "/$process.pid" )
-          || $logger->logconfess("Couldn't open " . $config->{pid_files} . "/$process.pid: $!");
+          || $logger->logconfess( "Couldn't open " . $config->{pid_files} . "/$process.pid: $!" );
         print $fh "$pid\n";
         close($fh);
 
     }
     else
     {
-        $logger->logconfess($config->{pid_files} . " is either missing or not writable");
+        $logger->logconfess( $config->{pid_files} . " is either missing or not writable" );
     }
 
     return;