cluster: RHEL6 - fence_scsi: write devices to tmp file on unfence

[rohara]

Gitweb:       
http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=...
Commit:        c449755291a536bafa27006a66301c13adcafdf3
Parent:        b62e49d1c476a6875e689e7d0a7b3fa44135ecb6
Author:        Ryan O'Hara <rohara(a)redhat.com&gt;
AuthorDate:    Tue Mar 1 09:50:01 2011 -0600
Committer:     Ryan O'Hara <rohara(a)redhat.com&gt;
CommitterDate: Tue Mar 1 09:50:01 2011 -0600

fence_scsi: write devices to tmp file on unfence

When unfencing occurs (action=on), write list of devices that were
successfully registered to /var/run/cluster/fence_scsi.dev file. This
file will be used by the optional watchdog script. Note that the devices
are not added to the tmp file until the verification step.

Signed-off-by: Ryan O'Hara <rohara(a)redhat.com&gt;
---
 fence/agents/scsi/fence_scsi.pl |   38 +++++++++++++++++++++++++++++++++++---
 1 files changed, 35 insertions(+), 3 deletions(-)

diff --git a/fence/agents/scsi/fence_scsi.pl b/fence/agents/scsi/fence_scsi.pl
index e162dfe..56653fc 100644
--- a/fence/agents/scsi/fence_scsi.pl
+++ b/fence/agents/scsi/fence_scsi.pl
@@ -40,6 +40,7 @@ sub do_action_on ($@)
     my $self = (caller(0))[3];
     my ($node_key, @devices) = @_;
 
+    dev_unlink ();
     key_write ($node_key);
 
     foreach $dev (@devices) {
@@ -126,6 +127,9 @@ sub do_verify_on ($@)
             next;
         }
 
+	## write dev to device file once registration is verified
+	dev_write ($dev);
+
         ## check that a reservation exists
         if (!get_reservation_key ($dev)) {
             log_debug ("no reservation exists on device $dev");
@@ -337,12 +341,38 @@ sub do_reset (S)
     return;
 }
 
+sub dev_unlink ()
+{
+    my $self = (caller(0))[3];
+    my $file = "/var/run/cluster/fence_scsi.dev";
+
+    if (-e $file) {
+	unlink ($file) or die "$!\n";
+    }
+
+    return;
+}
+
+sub dev_write ($)
+{
+    my $self = (caller(0))[3];
+    my $file = "/var/run/cluster/fence_scsi.dev";
+    my $dev = shift;
+
+    open (\*FILE, ">>$file") or die "$!\n";
+    print FILE "$dev\n";
+    close (FILE);
+
+    return;
+}
+
 sub key_read ()
 {
     my $self = (caller(0))[3];
+    my $file = "/var/run/cluster/fence_scsi.key";
     my $key;
 
-    open (\*FILE, "</var/run/cluster/fence_scsi.key") or die
"$!\n";
+    open (\*FILE, "<$file") or die "$!\n";
     chomp ($key = <FILE>);
     close (FILE);
 
@@ -352,9 +382,11 @@ sub key_read ()
 sub key_write ($)
 {
     my $self = (caller(0))[3];
+    my $file = "/var/run/cluster/fence_scsi.key";
+    my $key = shift;
 
-    open (\*FILE, ">/var/run/cluster/fence_scsi.key") or die
"$!\n";
-    print FILE "$_[0]\n";
+    open (\*FILE, ">$file") or die "$!\n";
+    print FILE "$key\n";
     close (FILE);
 
     return;