Gitweb:
http://git.fedorahosted.org/git/fence-agents.git?p=fence-agents.git;a=com...
Commit: 078934a262d5516c234b65c1b3912789f035ebaf
Parent: a16b8148834dde5925bbc20465ddb8de567a9928
Author: Ryan O'Hara <rohara(a)redhat.com>
AuthorDate: Tue Mar 1 11:46:56 2011 -0600
Committer: Ryan O'Hara <rohara(a)redhat.com>
CommitterDate: Tue Mar 1 15:00:44 2011 -0600
fence_scsi: create /var/run/cluster if necessary
Before writing to fence_scsi.key or fence_scsi.dev, check to see if
/var/run/cluster directory exists. If not, create it.
Signed-off-by: Ryan O'Hara <rohara(a)redhat.com>
---
fence/agents/scsi/fence_scsi.pl | 9 +++++++++
1 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/fence/agents/scsi/fence_scsi.pl b/fence/agents/scsi/fence_scsi.pl
index e6f82e7..9df5c0c 100644
--- a/fence/agents/scsi/fence_scsi.pl
+++ b/fence/agents/scsi/fence_scsi.pl
@@ -2,6 +2,7 @@
use Cwd 'realpath';
use File::Basename;
+use File::Path;
use Getopt::Std;
use POSIX;
@@ -359,6 +360,10 @@ sub dev_write ($)
my $file = "/var/run/cluster/fence_scsi.dev";
my $dev = shift;
+ if (! -d "/var/run/cluster") {
+ mkpath ("/var/run/cluster");
+ }
+
open (\*FILE, ">>$file") or die "$!\n";
print FILE "$dev\n";
close (FILE);
@@ -385,6 +390,10 @@ sub key_write ($)
my $file = "/var/run/cluster/fence_scsi.key";
my $key = shift;
+ if (! -d "/var/run/cluster") {
+ mkpath ("/var/run/cluster");
+ }
+
open (\*FILE, ">$file") or die "$!\n";
print FILE "$key\n";
close (FILE);