[Cluster-devel] [PATCH] fence_ipal: Introduce ipal fence agent
Marek Grac
mgrac at redhat.com
Wed Apr 23 09:35:02 UTC 2014
Hi,
Unfortunately, this fence agent can not be accepted without additional
changes. I have no major problem of 'expect' file but fence agent has
to produce at least valid xml metadata, support not only stdin-options
but also command line options. There is a fencing library that provides
a lot
of required features and it should not be difficult to port your python
part to it, you can run your expect file from there too. We alredy use
that approach for amt or ipmi
m,
On 04/17/2014 03:07 PM, Andrea Bucci wrote:
> Based on 2012 code by Gustavo Rahal
> ---
> configure.ac | 1 +
> fence/agents/ipal/Makefile.am | 18 +++++++++++++++
> fence/agents/ipal/fence_ipal | 20 ++++++++++++++++
> fence/agents/ipal/ipal | 51 +++++++++++++++++++++++++++++++++++++++++
> 4 files changed, 90 insertions(+)
> create mode 100644 fence/agents/ipal/Makefile.am
> create mode 100755 fence/agents/ipal/fence_ipal
> create mode 100755 fence/agents/ipal/ipal
>
> diff --git a/configure.ac b/configure.ac
> index c24198c..fc9e117 100644
> --- a/configure.ac
> +++ b/configure.ac
> @@ -268,6 +268,7 @@ AC_CONFIG_FILES([Makefile
> fence/agents/eps/Makefile
> fence/agents/hpblade/Makefile
> fence/agents/ibmblade/Makefile
> + fence/agents/ipal/Makefile
> fence/agents/ipdu/Makefile
> fence/agents/ifmib/Makefile
> fence/agents/ilo/Makefile
> diff --git a/fence/agents/ipal/Makefile.am b/fence/agents/ipal/Makefile.am
> new file mode 100644
> index 0000000..0a45e8e
> --- /dev/null
> +++ b/fence/agents/ipal/Makefile.am
> @@ -0,0 +1,18 @@
> +MAINTAINERCLEANFILES = Makefile.in
> +
> +TARGET = fence_ipal
> +
> +SYMTARGET = ipal
> +
> +SRC = $(TARGET).py
> +
> +EXTRA_DIST = $(SRC)
> +
> +sbin_SCRIPTS = $(TARGET)
> +bin_SCRIPTS = $(SYMTARGET)
> +
> +include $(top_srcdir)/make/fencebuild.mk
> +include $(top_srcdir)/make/fenceman.mk
> +
> +clean-local: clean-man
> + rm -f $(TARGET) $(SYMTARGET)
> diff --git a/fence/agents/ipal/fence_ipal b/fence/agents/ipal/fence_ipal
> new file mode 100755
> index 0000000..3b073e5
> --- /dev/null
> +++ b/fence/agents/ipal/fence_ipal
> @@ -0,0 +1,20 @@
> +#!/usr/bin/python
> +
> +import sys
> +import os
> +
> +# STDIN format:
> +# "action=$power_mode\nlogin=$power_user\npasswd=$power_pass\nipaddr=$power_address\nport=$power_id"
> +stdin_str = sys.stdin.read()
> +#print "STDIN: " + stdin_str
> +
> +action_kv, login_kv, passwd_kv, ipaddr_kv, port_kv = stdin_str.split()
> +
> +action = action_kv.replace("action=", "")
> +login = login_kv.replace("login=", "")
> +passwd = passwd_kv.replace("passwd=", "")
> +ipaddr = ipaddr_kv.replace("ipaddr=", "")
> +port = port_kv.replace("port=", "")
> +
> +if action == "on":
> + os.system("ipal %s %s %s" % (ipaddr, port, passwd))
> diff --git a/fence/agents/ipal/ipal b/fence/agents/ipal/ipal
> new file mode 100755
> index 0000000..62de7a6
> --- /dev/null
> +++ b/fence/agents/ipal/ipal
> @@ -0,0 +1,51 @@
> +#!/usr/bin/expect
> +
> +#@IMPROVEMENT port to python, as it is the most common programming language in
> +# fence-agents and it removes the need of having two files for this agent
> +
> +if { [ llength $argv ] == 0 || [ llength $argv ] > 4} {
> + send_user "Usage: ipal <host> <outlet-portnumber> <passwd> \[ <toggles> \]\n"
> + exit 1
> +}
> +
> +set host [lindex $argv 0]
> +set outletnumber [lindex $argv 1]
> +set passwd [lindex $argv 2]
> +set toggles 2
> +if { [ llength $argv ] == 4 } {
> + set toggles [ lindex $argv 3 ]
> +}
> +set remain $toggles
> +
> +spawn telnet $host
> +set env(TERM) vt100
> +set timeout 30
> +
> +expect timeout {
> + send_user "failed to contact $host\n"
> + exit
> +} "Password >" {
> + # first password prompt, so just send a return
> + send "\r"
> +}
> +
> +while {1} {
> + expect timeout {
> + send_user "failed to contact $host\n"
> + exit
> + } "Password >" {
> + # second password prompt, so send password
> + send "$passwd\r"
> + } "Enter >" {
> + # reboot prompt
> + if { $remain == 0 } {
> + send_user "\ntoggled outlet $outletnumber $toggles times\n"
> + exit 0
> + }
> + send "$outletnumber\r"
> + set remain [expr { $remain - 1 } ]
> + } eof {
> + send_user "failed to connect to power strip\n"
> + exit
> + }
> +}
More information about the Cluster-devel
mailing list