Changeset 28773


Ignore:
Timestamp:
2013-12-18T12:01:49+13:00 (8 years ago)
Author:
jmt12
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gs2-extensions/tdb-edit/trunk/src/perllib/dbutil/tdbserver.pm

    r28765 r28773  
    181181  foreach my $server_lockfile_path (keys (%created_server_lockfile_paths))
    182182  {
     183    my $shutdown_start;
     184    my $shutdown_end;
    183185    if ($wait_for_exit)
    184186    {
     
    191193      }
    192194      print '* Waiting for TDBServer to exit... ';
     195      $shutdown_start = [&gettimeofday()];
    193196      if (-e $server_lockfile_path)
    194197      {
     
    198201        }
    199202      }
     203      $shutdown_end = [&gettimeofday()];
    200204    }
    201205    else
     
    203207      print '* NOT Waiting for TDBServer to exit... ';
    204208    }
    205     print " Done!\n";
     209    if (defined $shutdown_start)
     210    {
     211      my $duration = tv_interval($shutdown_start, $shutdown_end);
     212      print sprintf(" Done (in %0.6f seconds)!\n", $duration);
     213    }
     214    else
     215    {
     216      print " Done!\n";
     217    }
    206218  }
    207219}
Note: See TracChangeset for help on using the changeset viewer.