Gitweb:
http://git.fedorahosted.org/git/fence-agents.git?p=fence-agents.git;a=com...
Commit: a16b8148834dde5925bbc20465ddb8de567a9928
Parent: 4069885281354264fc27997c699291cb3245c6b0
Author: Ryan O'Hara <rohara(a)redhat.com>
AuthorDate: Tue Mar 1 09:50:01 2011 -0600
Committer: Ryan O'Hara <rohara(a)redhat.com>
CommitterDate: Tue Mar 1 15:00:30 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>
---
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 004b4ba..e6f82e7 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;