Changeset 29276 for gs2-extensions/parallel-building/trunk/src

Timestamp:

2014-09-12T10:43:44+12:00 (10 years ago)

Author:

jmt12

Message:

I need to measure the time spent on generating the initial manifest, as serial processing currently doesn't do this.

File:

• gs2-extensions/parallel-building/trunk/src/perllib/parallelbuildinginexport.pm (modified) (4 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/parallelbuildinginexport.pm

@@ -45 +45 @@
 
 our $start_time;
+our $filelist_duration;
 
 BEGIN
@@ -59 +60 @@
     print &makeHeader('Parallel Import Complete') . "\n";
     print '  Ended:    ' . @{$end_time}[0] . '.' . @{$end_time}[1] . "\n";
+    if (defined $filelist_duration)
+    {
+      print '  Generating raw manifest: ' . sprintf('%0.6f', $filelist_duration) . "\n";
+    }
     print '  Duration: ' . sprintf('%0.6f', $duration) . "\n";
     print '=' x 80 . "\n";
@@ -185 +190 @@
 
   # create the list of files to import
+  my $filelist_start_time = [&gettimeofday()];
   my $overwrite = 1;
   my $tmp_filelist = &util::filename_cat($tmp_dir_path, "filelist.txt");
@@ -205 +211 @@
     close ($filelist);
   }
+  my $filelist_end_time = [&gettimeofday()];
+  $filelist_duration = tv_interval($filelist_start_time, $filelist_end_time);
 
   # Determine if we've been provided a mpi.conf file to indicate the other