public inbox for cluster-cvs@sourceware.org
help / color / mirror / Atom feed
From: Jan Friesse <honzaf@fedoraproject.org>
To: cluster-cvs-relay@redhat.com
Subject: fence-agents: master - fence_*.pl: Fix Perl scripts to force stdout close
Date: Fri, 27 Feb 2009 09:34:00 -0000 [thread overview]
Message-ID: <20090227093340.A31F1120332@lists.fedorahosted.org> (raw)
Gitweb: http://git.fedorahosted.org/git/fence-agents.git?p=fence-agents.git;a=commitdiff;h=4be00711b5628af40c05f1e734e85247745e2333
Commit: 4be00711b5628af40c05f1e734e85247745e2333
Parent: e27ca9503014226b2aaa95c9499d9e5710026b91
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 10:33:25 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/intelmodular/fence_intelmodular.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 +++++++++
14 files changed, 126 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/intelmodular/fence_intelmodular.pl b/fence/agents/intelmodular/fence_intelmodular.pl
index 95af28f..8561b5c 100644
--- a/fence/agents/intelmodular/fence_intelmodular.pl
+++ b/fence/agents/intelmodular/fence_intelmodular.pl
@@ -16,6 +16,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/.*\///;
reply other threads:[~2009-02-27 9:34 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20090227093340.A31F1120332@lists.fedorahosted.org \
--to=honzaf@fedoraproject.org \
--cc=cluster-cvs-relay@redhat.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).