Changeset 1651 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm

Timestamp:

Oct 7, 2012, 6:07:09 AM (12 years ago)

Author:

Bruno Cornec

Message:

• Avoid to emit msgs when sed -i doesn't work (as on RedHat 6.2)
• Factorize the proxy usages in pb_apply_conf_proxy and make it public (was partly done only)
• debug level is now passed to the vescrip improving debug capabilities in that script
• /dev/null shouldn't be touched on RedHat 6.2 as recreating it doesn't seem to work
• Allow usage of mayfailverbose in pb_system when both features are needed to help debuging
• Imrpove again RedHat 6.2 support up to setupve now (however needs a manual install of perl 5.6.2 to work as the minimum version for pb)

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (3 diffs)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -135 +135 @@
 The first parameter is the shell command to call. This command should NOT use redirections.
 The second parameter is the message to print on screen. If none is given, then the command is printed.
-The third parameter prints the result of the command after correct execution if value is "verbose". If value is "noredir", it avoids redirecting outputs (e.g. for vi). If value is "quiet", doesn't print anything at all. If value is "mayfail", failure of the command is ok even if $Global::pb_stop_on_error is set, because the caller will be handling the error. 
+The third parameter prints the result of the command after correct execution if value is "verbose". If value is "noredir", it avoids redirecting outputs (e.g. for vi). If value is "quiet", doesn't print anything at all. If value is "mayfail", failure of the command is ok even if $Global::pb_stop_on_error is set, because the caller will be handling the error. A "verbose" can be added to mayfail to have it explain why it failed
 This function returns as a result the return value of the system command.
 
@@ -160 +160 @@
 my $res = $?;
 # Exit now if the command may fail
-if ((defined $verbose) and ($verbose eq "mayfail")) {
+if ((defined $verbose) and ($verbose =~ /mayfail/)) {
     pb_log(0,"NOT OK but non blocking\n") if ($res != 0);
     pb_log(0,"OK\n") if ($res == 0);
+    pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((-f "$ENV{'PBTMP'}/system.$$.log") and (defined $verbose) and ($verbose =~ /verbose/));
     return($res) 
 }
@@ -178 +179 @@
         confess("ERROR running command ($cmd) with cwd=$cwd, pid=$$");
     } else {
-        pb_log(0,"ERROR running command ($cmd) with cwd=$cwd, pid=$$");
+        pb_log(0,"ERROR running command ($cmd) with cwd=$cwd, pid=$$\n");
     }
 } else {