init_setup: more status output with timing

diff --git a/tools/init_setup.pl b/tools/init_setup.pl
index a31794781be2f42d3547f61e4cd202b1a9c6fe7b..d9aa6a89c07a39215be4c1d7fa86326aa93f0a06 100755 (executable)
--- a/tools/init_setup.pl
+++ b/tools/init_setup.pl
@@ -10,6 +10,7 @@ use Getopt::Long;
 use Data::Dumper;
 use FileHandle;
 use Pod::Usage;
+use Time::HiRes;
 $Data::Dumper::Terse = 1;
 $Data::Dumper::Useqq = 0;
 use Cwd;
@@ -19,6 +20,8 @@ use Environment;
 require Common;
 
 
+my $start = Time::HiRes::gettimeofday();
+
 my ($help, $man, $verbose, $setup, $dryrun);
 # my $defaultIniPath = "/tmp/inifiles";
 # my $defaultXmlPath = "../";
@@ -79,7 +82,8 @@ my $name = $db->getDocumentElement->getAttribute('name');
 my $cts = $dbsys->getDocumentElement->findnodes('cts')->[0]->getAttribute('address');
 print STDERR "Loading setup $name from file $setupFile\n" if $verbose;
 
-print STDERR "Stop CTS trigger source\n" if $verbose;
+
+print STDERR "Stop CTS trigger source\n";
 execute("trbcmd clearbit 0x$cts 0xa101 0x1");
 
 
@@ -166,6 +170,8 @@ foreach my $curctrl ($db->getDocumentElement->findnodes('controller')) {
     }
   } # end of curctl loop
 
+print STDERR "Done reading the setup XML file\n";
+print STDERR 'timer: ', Time::HiRes::gettimeofday() - $start, " s\n";
 
   
   
@@ -181,7 +187,8 @@ foreach my $cmd (@CbCommands){
   execute("echo put.pl $entity $addr $fieldname $value");
   execute("./put.pl $entity $addr $fieldname $value");
 }
-print STDERR "Done configuring Converter Boards\n" if $verbose;
+print STDERR "Done configuring Converter Boards\n";
+print STDERR 'timer: ', Time::HiRes::gettimeofday() - $start, " s\n";
   
 
 print STDERR "Taking care of JtagCommands\n" if $verbose;
@@ -208,18 +215,19 @@ foreach my $ctrladdr (keys %$JtagCommands) {
   local $CWD = $ENV{'JTAGPATH'};
   foreach my $cmd (@{$JtagCommands->{$ctrladdr}}) {
     print STDERR "Executing the following command now:\n".$cmd."\n" if $verbose;
-    print execute($cmd);
-    #execute($cmd);
+    execute($cmd);
     }
 }
-print STDERR "Done taking care of JtagCommands\n" if $verbose;
+print STDERR "Done taking care of JtagCommands\n";
+print STDERR 'timer: ', Time::HiRes::gettimeofday() - $start, " s\n";
+
 execute("trbcmd w 0xfe4d 0xb00b 1"); #Enable start sensors on next reference time
 execute("trbcmd setbit 0x$cts 0xa101 0x1");# enable CTS trigger source
 execute("trbcmd w 0xfe4d 0xb00b 1"); #Enable start sensors on next reference time
+print STDERR "Done starting sensors and enabeling CTS trigger source\n";
+
+print STDERR 'init_setup.pl ran for ', Time::HiRes::gettimeofday() - $start, " s\n";
 
-  
-  
-  
 ###############################
 ## Just another execute sub
 ###############################