fence-agents: master - Remove fence_scsi_test.
rohara
rohara at fedoraproject.org
Tue Dec 8 15:49:57 UTC 2009
Gitweb: http://git.fedorahosted.org/git/fence-agents.git?p=fence-agents.git;a=commitdiff;h=ba17f1ef9bf3a5e9bf7bb5d8a5668c807e69269e
Commit: ba17f1ef9bf3a5e9bf7bb5d8a5668c807e69269e
Parent: f017f43809c6f3243bb17b66abff243d42b660c8
Author: Ryan O'Hara <rohara at redhat.com>
AuthorDate: Tue Dec 8 09:49:21 2009 -0600
Committer: Ryan O'Hara <rohara at redhat.com>
CommitterDate: Tue Dec 8 09:49:21 2009 -0600
Remove fence_scsi_test.
---
fence/agents/scsi/Makefile.am | 4 +-
fence/agents/scsi/fence_scsi_test.pl | 236 ----------------------------------
2 files changed, 2 insertions(+), 238 deletions(-)
diff --git a/fence/agents/scsi/Makefile.am b/fence/agents/scsi/Makefile.am
index 0f74e8c..f0ba890 100644
--- a/fence/agents/scsi/Makefile.am
+++ b/fence/agents/scsi/Makefile.am
@@ -1,8 +1,8 @@
MAINTAINERCLEANFILES = Makefile.in
-TARGET = fence_scsi fence_scsi_test
+TARGET = fence_scsi
-EXTRA_DIST = fence_scsi.pl fence_scsi_test.pl
+EXTRA_DIST = fence_scsi.pl
sbin_SCRIPTS = $(TARGET)
diff --git a/fence/agents/scsi/fence_scsi_test.pl b/fence/agents/scsi/fence_scsi_test.pl
deleted file mode 100644
index cba3c21..0000000
--- a/fence/agents/scsi/fence_scsi_test.pl
+++ /dev/null
@@ -1,236 +0,0 @@
-#!/usr/bin/perl
-
-use POSIX;
-use IPC::Open3;
-use Getopt::Std;
-
-my @devices;
-my %results;
-
-#BEGIN_VERSION_GENERATION
-$RELEASE_VERSION="";
-$REDHAT_COPYRIGHT="";
-$BUILD_DATE="";
-#END_VERSION_GENERATION
-
-sub get_scsi_block_devices
-{
- my $block_dir = "/sys/block";
-
- opendir(DIR, $block_dir) or die "$!\n";
-
- my @block_devices = grep { /^sd*/ } readdir(DIR);
-
- closedir(DIR);
-
- for $block_dev (@block_devices)
- {
- push(@devices, "/dev/" . $block_dev);
- }
-}
-
-sub get_cluster_vol_devices
-{
- my ($in, $out, $err);
-
- my $cmd = "vgs --config 'global { locking_type = 0 }'" .
- " --noheadings --separator : -o vg_attr,pv_name";
-
- my $pid = open3($in, $out, $err, $cmd) or die "$!\n";
-
- waitpid($pid, 0);
-
- die "[error] unable to execute vgs command.\n" if WEXITSTATUS($?);
-
- while (<$out>)
- {
- chomp;
-
- my ($vg_attr, $pv_name) = split(/:/, $_);
-
- if ($vg_attr =~ /.*c$/)
- {
- ###### DEBUG ######
- print "DEBUG: pv_name = $pv_name\n";
-
- push(@devices, $pv_name);
- }
- }
-
- close($in);
- close($out);
- close($err);
-}
-
-sub register_device
-{
- my ($dev, $key) = @_;
- my ($in, $out, $err);
-
- my $cmd = "sg_persist -n -d $dev -o -G -S $key";
- my $pid = open3($in, $out, $err, $cmd) or die "$!\n";
-
- waitpid($pid, 0);
-
- $results{$dev}[0] = WEXITSTATUS($?);
-
- close($in);
- close($out);
- close($err);
-}
-
-sub unregister_device
-{
- my ($dev, $key) = @_;
- my ($in, $out, $err);
-
- my $cmd = "sg_persist -n -d $dev -o -G -K $key -S 0";
- my $pid = open3($in, $out, $err, $cmd) or die "$!\n";
-
- waitpid($pid, 0);
-
- $results{$dev}[1] = WEXITSTATUS($?);
-
- close($in);
- close($out);
- close($err);
-}
-
-sub test_devices
-{
- my $key = "0xDEADBEEF";
-
- foreach $dev (@devices)
- {
- register_device($dev, $key);
- unregister_device($dev, $key);
- }
-}
-
-sub check_config_fence
-{
- my ($in, $out, $err);
- my $cmd = "ccs_tool query /cluster/fencedevices/fencedevice[\@agent=\\\"fence_scsi\\\"]";
-
- my $pid = open3($in, $out, $err, $cmd) or die "$!\n";
-
- waitpid($pid, 0);
-
- return ($?>>8);
-}
-
-sub print_results
-{
- my $device_count = scalar(@devices);
-
- my $failure_count = 0;
- my $success_count = 0;
-
- print "\nAttempted to register with devices:\n";
- print "-------------------------------------\n";
-
- for $dev (@devices)
- {
- print "\t$dev\t";
- if ($results{$dev}[0] == 0)
- {
- $success_count++;
- print "Success\n";
- }
- else
- {
- $failure_count++;
- print "Failure\n";
- }
- }
-
- print "-------------------------------------\n";
- print "Number of devices tested: $device_count\n";
- print "Number of devices passed: $success_count\n";
- print "Number of devices failed: $failure_count\n\n";
-
- if ($failure_count != 0)
- {
- exit(1);
- }
-}
-
-sub print_usage
-{
- print "\nUsage: fence_scsi_test [-c|-s] [-d] [-h]\n\n";
-
- print "Options:\n\n";
-
- print " -c Cluster mode. This mode is intended to test\n";
- print " SCSI persistent reservation capabilties for\n";
- print " devices that are part of existing clustered\n";
- print " volumes. Only devices in LVM cluster volumes\n";
- print " will be tested.\n\n";
- print " -s SCSI mode. This mode is intended to test SCSI\n";
- print " persistent reservation capabilities for all SCSI\n";
- print " devices visible on a node.\n\n";
- print " -d Debug flag. This will print debugging information\n";
- print " such as the actual commands being run to register\n";
- print " and unregister a device.\n\n";
- 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;
- exit(1);
-}
-
-if ($opt_h)
-{
- print_usage;
- exit(0);
-}
-
-if ($opt_c)
-{
- print "\nTesting devices in cluster volumes...\n";
- get_cluster_vol_devices;
- test_devices;
- print_results;
-}
-
-if ($opt_s)
-{
- print "\nTesting all SCSI block devices...\n";
- get_scsi_block_devices;
- test_devices;
- print_results;
-}
-
-if ($opt_t)
-{
- if ($opt_t eq "fence")
- {
- exit check_config_fence;
- }
-}
-
-if (!$opt_c && !$opt_s && !$opt_t)
-{
- print "\nPlease specify either cluster or SCSI mode.\n";
- print_usage;
- exit(1);
-}
More information about the cluster-commits
mailing list