From 15a0cc12881e01687d238a64976084acf07f5ee2 Mon Sep 17 00:00:00 2001
From: Jeff Squyres <jsquyres@cisco.com>
Date: Thu, 23 Sep 2004 13:20:21 +0000
Subject: [PATCH] Make --leave-install take an argument -- a filename where the
 names of the directories of the install roots will be written

This commit was SVN r2821.
---
 contrib/nightly/build_tarball.pl          | 22 ++++++++++++++++++----
 contrib/nightly/illegal_symbols_report.pl |  4 ++++
 2 files changed, 22 insertions(+), 4 deletions(-)

diff --git a/contrib/nightly/build_tarball.pl b/contrib/nightly/build_tarball.pl
index 826ea31ddc..ae4d8b4ed3 100755
--- a/contrib/nightly/build_tarball.pl
+++ b/contrib/nightly/build_tarball.pl
@@ -466,7 +466,7 @@ my $ok = Getopt::Long::GetOptions("url|u=s" => \$url_arg,
                                   "config|c=s" => \$config_arg,
                                   "file|f=s" => \$file_arg,
                                   "debug|d" => \$debug_arg,
-                                  "leave-install|l" => \$leave_install_arg,
+                                  "leave-install|l=s" => \$leave_install_arg,
                                   "help|h" => \$help_arg,
                                   "force" => \$force_arg,
                                   );
@@ -475,8 +475,9 @@ if (!$ok || $help_arg) {
     print("Command line error\n") 
         if (!$ok);
     print "Usage: $0 [--scratch|-s scratch_directory_root] [--email|-e address]\n";
-    print "[--config|-c config_file] [--help|-h] [--debug|-d]\n";
-    print "[[--file|-f local_ompi_tarball] [--url|-u URL_base]]\n";
+    print "  [--config|-c config_file] [--help|-h] [--debug|-d]\n";
+    print "  [[--file|-f local_ompi_tarball] [--url|-u URL_base]]\n";
+    print "  [--leave-install output_filename]\n";
     exit(0);
 }
 
@@ -687,6 +688,7 @@ if (! $config_arg || ! -f $config_arg) {
     $results->{$name}->{config} = $config;
     $results->{$name}->{want_stderr} = 1;
     $results->{$name}->{vpath_mode} = "";
+    $results->{$name}->{installdir} = "$dir/install";
 } else {
     open CONF, "$config_arg";
     my $i = 1;
@@ -716,6 +718,7 @@ if (! $config_arg || ! -f $config_arg) {
             $results->{$name}->{config} = $config;
             $results->{$name}->{want_stderr} = $want_stderr;
             $results->{$name}->{vpath_mode} = $vpath_mode;
+            $results->{$name}->{installdir} = "$dir/install";
             ++$i;
         }
     }
@@ -759,7 +762,12 @@ open LAST, ">$last_test_version_name";
 print LAST "$version\n";
 close LAST;
 
-# send success mail
+# if we're leaving the installdirs, output their names into the file
+# indicated by the --leave-install arg
+open LEAVE, ">$leave_install_arg"
+    if ($leave_install_arg);
+
+# send results mail
 my $email_subject;
 push(@email_output,
 "SUMMARY OF RESULTS:
@@ -769,6 +777,8 @@ foreach my $config (keys(%$results)) {
     my $str;
     if ($results->{$config}->{status} == 0) {
         $str = "Success   ";
+        print LEAVE "$results->{$config}->{installdir}\n"
+            if ($leave_install_arg);
     } else {
         $str = "FAILURE   ";
         $email_subject = $fail_subject;
@@ -776,6 +786,8 @@ foreach my $config (keys(%$results)) {
     $str .= $config . "\n";
     push(@email_output, $str);
 }
+close(LEAVE)
+    if ($leave_install_arg);
 $email_subject = $success_subject
     if (!$email_subject);
 
@@ -866,4 +878,6 @@ if (!$displayed) {
 push(@email_output, "Your friendly server,\nCyrador\n");
 send_mail($email_subject, $email_arg, @email_output);
 
+# All done
+
 exit(0);
diff --git a/contrib/nightly/illegal_symbols_report.pl b/contrib/nightly/illegal_symbols_report.pl
index 17bbb0d2d3..2b4cab726f 100755
--- a/contrib/nightly/illegal_symbols_report.pl
+++ b/contrib/nightly/illegal_symbols_report.pl
@@ -311,3 +311,7 @@ if ($delete_arg) {
         system("rm -rf $prefix_arg >/dev/null 2>/dev/null");
     }
 }
+
+# All done
+
+exit(0);