cluster: STABLE3 - fence_scsi_test.pl: #499871 fence_scsi_test.pl does not check for sg_persist in the path

cluster: STABLE3 - fence_scsi_test.pl: #499871 fence_scsi_test.pl does not check for sg_persist in the path

[Marek Grác]

Gitweb:        http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=7e6ec0be8f368c2991c1aabff27d39d63adb9486
Commit:        7e6ec0be8f368c2991c1aabff27d39d63adb9486
Parent:        e50209054eca1755930300d9c3f904b37fcf3ac5
Author:        Marek 'marx' Grac <mgrac@redhat.com>
AuthorDate:    Mon May 11 15:41:25 2009 +0200
Committer:     Marek 'marx' Grac <mgrac@redhat.com>
CommitterDate: Mon May 11 15:48:55 2009 +0200

fence_scsi_test.pl: #499871 fence_scsi_test.pl does not check for sg_persist in the path

---
 fence/agents/scsi/fence_scsi_test.pl |   15 +++++++++++++++
 1 files changed, 15 insertions(+), 0 deletions(-)

diff --git a/fence/agents/scsi/fence_scsi_test.pl b/fence/agents/scsi/fence_scsi_test.pl
index 357a824..cba3c21 100644
--- a/fence/agents/scsi/fence_scsi_test.pl
+++ b/fence/agents/scsi/fence_scsi_test.pl
@@ -175,8 +175,23 @@ sub print_usage
     print "  -h     Help. Prints out this usage information.\n\n";
 }
 
+sub test_tools_path
+{
+    my $tool_name = "sg_persist";
+    
+    for my $path ( split /:/, $ENV{PATH} ) {
+        if ( -f "$path/$tool_name" && -x _ ) {
+          return;
+        }
+    }
+    
+    die "No $tool_name command available, please install the sg3_utils package.\n"
+}
+
 ### MAIN #######################################################################
 
+test_tools_path;
+
 if (getopts("cdhst:v") == 0)
 {
     print_usage;