Changeset 28773 for gs2-extensions/tdb-edit

Timestamp:

2013-12-18T12:01:49+13:00 (10 years ago)

Author:

jmt12

Message:

Adding time taken to shutdown server so I can debug this on Medusa

File:

• gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdbserver.pm (modified) (4 diffs)

gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdbserver.pm

@@ -181 +181 @@
   foreach my $server_lockfile_path (keys (%created_server_lockfile_paths))
   {
+    my $shutdown_start;
+    my $shutdown_end;
     if ($wait_for_exit)
     {
@@ -191 +193 @@
       }
       print '* Waiting for TDBServer to exit... ';
+      $shutdown_start = [&gettimeofday()];
       if (-e $server_lockfile_path)
       {
@@ -198 +201 @@
         }
       }
+      $shutdown_end = [&gettimeofday()];
     }
     else
@@ -203 +207 @@
       print '* NOT Waiting for TDBServer to exit... ';
     }
-    print " Done!\n";
+    if (defined $shutdown_start)
+    {
+      my $duration = tv_interval($shutdown_start, $shutdown_end);
+      print sprintf(" Done (in %0.6f seconds)!\n", $duration);
+    }
+    else
+    {
+      print " Done!\n";
+    }
   }
 }