Gitweb: http://git.fedorahosted.org/git/fence-agents.git?p=fence-agents.git;a=commit... Commit: 078934a262d5516c234b65c1b3912789f035ebaf Parent: a16b8148834dde5925bbc20465ddb8de567a9928 Author: Ryan O'Hara rohara@redhat.com AuthorDate: Tue Mar 1 11:46:56 2011 -0600 Committer: Ryan O'Hara rohara@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@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);
cluster-commits@lists.fedorahosted.org