This is the mail archive of the
cluster-cvs@sourceware.org
mailing list for the cluster.
cluster: STABLE3 - fence_*.pl: Fix Perl scripts to force stdout close
- From: Jan Friesse <honzaf at fedoraproject dot org>
- To: cluster-cvs-relay at redhat dot com
- Date: Fri, 27 Feb 2009 11:38:06 +0000 (UTC)
- Subject: cluster: STABLE3 - fence_*.pl: Fix Perl scripts to force stdout close
Gitweb: http://git.fedorahosted.org/git/cluster.git?p=cluster.git;a=commitdiff;h=da4c845868babd8a440d1d138cc4d94fb6a15a46
Commit: da4c845868babd8a440d1d138cc4d94fb6a15a46
Parent: e49ca4ed3e8b8d916be29d5f83013507b032031c
Author: Jan Friesse <jfriesse@redhat.com>
AuthorDate: Fri Feb 27 10:33:25 2009 +0100
Committer: Jan Friesse <jfriesse@redhat.com>
CommitterDate: Fri Feb 27 12:37:41 2009 +0100
fence_*.pl: Fix Perl scripts to force stdout close
This feature is advise from Jim Meyering. On the beginning
of script, we register end callback, which close stdout and
show error, if this wasn't successful.
---
fence/agents/baytech/fence_baytech.pl | 9 +++++++++
fence/agents/brocade/fence_brocade.pl | 9 +++++++++
fence/agents/bullpap/fence_bullpap.pl | 9 +++++++++
fence/agents/cpint/fence_cpint.pl | 9 +++++++++
fence/agents/drac/fence_drac.pl | 9 +++++++++
fence/agents/egenera/fence_egenera.pl | 9 +++++++++
fence/agents/ibmblade/fence_ibmblade.pl | 9 +++++++++
fence/agents/mcdata/fence_mcdata.pl | 9 +++++++++
fence/agents/sanbox2/fence_sanbox2.pl | 9 +++++++++
fence/agents/scsi/fence_scsi.pl | 9 +++++++++
fence/agents/vixel/fence_vixel.pl | 9 +++++++++
fence/agents/xcat/fence_xcat.pl | 9 +++++++++
fence/agents/zvm/fence_zvm.pl | 9 +++++++++
13 files changed, 117 insertions(+), 0 deletions(-)
diff --git a/fence/agents/baytech/fence_baytech.pl b/fence/agents/baytech/fence_baytech.pl
index 3b07a3c..7325ee6 100644
--- a/fence/agents/baytech/fence_baytech.pl
+++ b/fence/agents/baytech/fence_baytech.pl
@@ -14,6 +14,15 @@
use Net::Telnet;
use Getopt::Std;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# WARNING!! Do not add code bewteen "#BEGIN_VERSION_GENERATION" and
# "#END_VERSION_GENERATION" It is generated by the Makefile
diff --git a/fence/agents/brocade/fence_brocade.pl b/fence/agents/brocade/fence_brocade.pl
index 30a6250..933cecf 100644
--- a/fence/agents/brocade/fence_brocade.pl
+++ b/fence/agents/brocade/fence_brocade.pl
@@ -3,6 +3,15 @@
use Getopt::Std;
use Net::Telnet ();
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/bullpap/fence_bullpap.pl b/fence/agents/bullpap/fence_bullpap.pl
index 1013326..b643413 100644
--- a/fence/agents/bullpap/fence_bullpap.pl
+++ b/fence/agents/bullpap/fence_bullpap.pl
@@ -3,6 +3,15 @@
use Getopt::Std;
use POSIX;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/cpint/fence_cpint.pl b/fence/agents/cpint/fence_cpint.pl
index 77d6a54..dc17eed 100644
--- a/fence/agents/cpint/fence_cpint.pl
+++ b/fence/agents/cpint/fence_cpint.pl
@@ -2,6 +2,15 @@
use Getopt::Std;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/drac/fence_drac.pl b/fence/agents/drac/fence_drac.pl
index f199814..e743aae 100644
--- a/fence/agents/drac/fence_drac.pl
+++ b/fence/agents/drac/fence_drac.pl
@@ -18,6 +18,15 @@
use Getopt::Std;
use Net::Telnet ();
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/egenera/fence_egenera.pl b/fence/agents/egenera/fence_egenera.pl
index 67d1d83..dd4f5af 100644
--- a/fence/agents/egenera/fence_egenera.pl
+++ b/fence/agents/egenera/fence_egenera.pl
@@ -3,6 +3,15 @@
use Getopt::Std;
use IPC::Open3;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# WARNING!! Do not add code bewteen "#BEGIN_VERSION_GENERATION" and
# "#END_VERSION_GENERATION" It is generated by the Makefile
diff --git a/fence/agents/ibmblade/fence_ibmblade.pl b/fence/agents/ibmblade/fence_ibmblade.pl
index e2618a7..adf7548 100644
--- a/fence/agents/ibmblade/fence_ibmblade.pl
+++ b/fence/agents/ibmblade/fence_ibmblade.pl
@@ -3,6 +3,15 @@
use Getopt::Std;
use Net::SNMP;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/mcdata/fence_mcdata.pl b/fence/agents/mcdata/fence_mcdata.pl
index e16282b..96ab681 100644
--- a/fence/agents/mcdata/fence_mcdata.pl
+++ b/fence/agents/mcdata/fence_mcdata.pl
@@ -9,6 +9,15 @@
use Getopt::Std;
use Net::Telnet ();
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/sanbox2/fence_sanbox2.pl b/fence/agents/sanbox2/fence_sanbox2.pl
index 225d640..c8c37a5 100644
--- a/fence/agents/sanbox2/fence_sanbox2.pl
+++ b/fence/agents/sanbox2/fence_sanbox2.pl
@@ -3,6 +3,15 @@
use Getopt::Std;
use Net::Telnet ();
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/scsi/fence_scsi.pl b/fence/agents/scsi/fence_scsi.pl
index 80066a3..7e68dab 100644
--- a/fence/agents/scsi/fence_scsi.pl
+++ b/fence/agents/scsi/fence_scsi.pl
@@ -4,6 +4,15 @@ use Getopt::Std;
use IPC::Open3;
use POSIX;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
my @device_list;
$_ = $0;
diff --git a/fence/agents/vixel/fence_vixel.pl b/fence/agents/vixel/fence_vixel.pl
index c6dc77a..470d4c7 100644
--- a/fence/agents/vixel/fence_vixel.pl
+++ b/fence/agents/vixel/fence_vixel.pl
@@ -3,6 +3,15 @@
use Getopt::Std;
use Net::Telnet ();
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/xcat/fence_xcat.pl b/fence/agents/xcat/fence_xcat.pl
index 9e65ff8..2d8166a 100644
--- a/fence/agents/xcat/fence_xcat.pl
+++ b/fence/agents/xcat/fence_xcat.pl
@@ -2,6 +2,15 @@
use Getopt::Std;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;
diff --git a/fence/agents/zvm/fence_zvm.pl b/fence/agents/zvm/fence_zvm.pl
index ce9d813..f90125a 100644
--- a/fence/agents/zvm/fence_zvm.pl
+++ b/fence/agents/zvm/fence_zvm.pl
@@ -3,6 +3,15 @@
use Getopt::Std;
use IPC::Open2;
+my $ME = $0;
+
+END {
+ defined fileno STDOUT or return;
+ close STDOUT and return;
+ warn "$ME: failed to close standard output: $!\n";
+ $? ||= 1;
+}
+
# Get the program name from $0 and strip directory names
$_=$0;
s/.*\///;