svn commit: r1651788 - /vcl/trunk/managementnode/bin/install_perl_libs.pl

[arkurth]

Author: arkurth
Date: Wed Jan 14 19:49:42 2015
New Revision: 1651788

URL: http://svn.apache.org/r1651788
Log:
VCL-750
Updated install_perl_libs.pl to set the exit status of 1 if an error occurred, 
2 if the user did not accept the license notification, and 0 if successful.

Modified:
    vcl/trunk/managementnode/bin/install_perl_libs.pl

Modified: vcl/trunk/managementnode/bin/install_perl_libs.pl
URL: 
http://svn.apache.org/viewvc/vcl/trunk/managementnode/bin/install_perl_libs.pl?rev=1651788&r1=1651787&r2=1651788&view=diff
==============================================================================
--- vcl/trunk/managementnode/bin/install_perl_libs.pl (original)
+++ vcl/trunk/managementnode/bin/install_perl_libs.pl Wed Jan 14 19:49:42 2015
@@ -151,9 +151,11 @@ for my $key (keys %$ERRORS) {
 
 if (!$error_encountered) {
        print "COMPLETE: installed all components\n";
+       exit 0;
+}
+else {
+       exit 1;
 }
-
-exit;
 
 #/////////////////////////////////////////////////////////////////////////////
 
@@ -183,11 +185,11 @@ EOF
        print "Creating file: $epel_install_repo_path\n";
        if (!open FILE, ">", $epel_install_repo_path) {
                print "ERROR: failed to create file: $epel_install_repo_path\n";
-               exit;
+               exit 1;
        }
        if (!print FILE $epel_install_repo_contents) {
                print "ERROR: failed to write to file: 
$epel_install_repo_path\n";
-               exit;
+               exit 1;
        }
        close FILE;
        
@@ -588,7 +590,7 @@ EOF
                        last;
                }
                elsif ($input =~ /^\s*NO\s*$/i) {
-                       exit;
+                       exit 2;
                }
                else {
                        next;