Fence na - Revision history

Digimer at 17:03, 25 August 2010

2010-08-25T17:03:02Z

← Older revision		Revision as of 17:03, 25 August 2010
Line 11:		Line 11:
	# Jun. 27, 2010		# Jun. 27, 2010
	# Version: 1.1.5		# Version: 1.1.5
			#
			# This software is released under the GPL v2. See the LICENSE file in the
			# configuration directory for a copy of the GPL v2.
	#		#
	# Bugs;		# Bugs;

Digimer at 15:36, 18 July 2010

2010-07-18T15:36:15Z

← Older revision		Revision as of 15:36, 18 July 2010
Line 9:		Line 9:
	# Node Assassin - Fence Agent		# Node Assassin - Fence Agent
	# Digimer; digimer@alteeve.com		# Digimer; digimer@alteeve.com
	# ~~Apr~~. 08, 2010		# Jun. 27, 2010
	# Version: 1.1.4		# Version: 1.1.5
	#		#
	# Bugs;		# Bugs;
Line 21:		Line 21:

	# Load our library.		# Load our library.
	require '/etc/na/fence_na.lib';		require '/etc/fence_na/fence_na.lib';

	# IO::Handle is used for logging and Net::Telnet is used for communicating with		# IO::Handle is used for logging and Net::Telnet is used for communicating with
Line 35:		Line 35:
	'system' => {		'system' => {
	max_valid_state => 3,		max_valid_state => 3,
	conf_file => "/etc/na/fence_na.conf",		conf_file => "/etc/fence_na/fence_na.conf",
	quiet => "",		quiet => "",
	version => 0,		version => 0,
Line 68:		Line 68:
	# Log file for output.		# Log file for output.
	my $log=IO::Handle->new();		my $log=IO::Handle->new();
			print "Opening: [$conf->{'system'}{'log'}] for logging.\n" if $conf->{'system'}{debug};
	open ($log, ">$conf->{'system'}{'log'}") \|\| die "Failed to open: [$conf->{'system'}{'log'}] for writing; Error: $!\n";		open ($log, ">$conf->{'system'}{'log'}") \|\| die "Failed to open: [$conf->{'system'}{'log'}] for writing; Error: $!\n";

Line 109:		Line 110:

	die "Exiting on errors.\n" if $bad;		die "Exiting on errors.\n" if $bad;
			my @ny=("no", "yes");
	record($conf, $log, "Node Assassin: . [$conf->{na}{ipaddr}].\n");		record($conf, $log, "Node Assassin: . [$conf->{na}{ipaddr}].\n");
	record($conf, $log, "TCP Port: ...... [$conf->{na}{tcp_port}].\n");		record($conf, $log, "TCP Port: ...... [$conf->{na}{tcp_port}].\n");
Line 115:		Line 117:
	record($conf, $log, "Password: ...... [$conf->{na}{passwd}].\n");		record($conf, $log, "Password: ...... [$conf->{na}{passwd}].\n");
	record($conf, $log, "Action: ........ [$conf->{na}{action}].\n");		record($conf, $log, "Action: ........ [$conf->{na}{action}].\n");
	record($conf, $log, "Version Request: [$conf->{'system'}{version}].\n");		record($conf, $log, "Version Request: [".$ny[$conf->{'system'}{version}]."].\n");
	record($conf, $log, "Done reading args.\n");		record($conf, $log, "Done reading args.\n");

Line 134:		Line 136:
	if (($conf->{na}{login} ne $conf->{'system'}{username}) or ($conf->{na}{passwd} ne $conf->{'system'}{password}))		if (($conf->{na}{login} ne $conf->{'system'}{username}) or ($conf->{na}{passwd} ne $conf->{'system'}{password}))
	{		{
	record($conf, $log, "Username and/or password ~~failed~~.\n");		record($conf, $log, "Username and/or password invalid. Did you use the command line switches properly?\n");
	do_exit($conf, $log, 8);		do_exit($conf, $log, 8);
	}		}

Digimer at 14:13, 16 April 2010

2010-04-16T14:13:43Z

Show changes

Digimer at 05:30, 7 April 2010

2010-04-07T05:30:05Z

← Older revision		Revision as of 05:30, 7 April 2010
Line 8:		Line 8:
	# Node Assassin - Fence Agent		# Node Assassin - Fence Agent
	# Digimer; digimer@alteeve.com		# Digimer; digimer@alteeve.com
	# ~~Mar~~. 08, 2010.		# Apr. 06, 2010
	# Version: 0.1.~~005~~		# Version: 1.1.4
	#		#
	# Bugs;		# Bugs;
Line 18:		Line 18:

	Changes:		Changes:

			v1.1.4
			- Changed the version number to follow the Node Assassin version number. From
			this point on, matching version numbers will be compatible. This version
			breaks compatibility with older versions of Node Assassin devices.
			-

			v0.1.006
			- Added an initial 'release_all' to the 'boot_all' action to make sure nodes
			that were fenced have their reset ports released.

	v0.1.005		v0.1.005
Line 77:		Line 87:

	- Node Assassin's implentation of options.		- Node Assassin's implentation of options.
	- 'off' This ~~sets~~ the node to state ~~'0' on the reset port followed by~~		- 'off' This set's the node to state 1; Fenced.
	~~state '3' to the power port. State 0 is maintained to prevent~~		- 'on' This sets the node to state '0'; Unfenced. It then pauses one
	~~a reboot~~.		second and then sets state 2 to boot the node.
	- 'on' This sets the node to state '1' ~~on the reset port followed by~~		- 'reboot' This sets the node to state 1; Fenced. It then waits for one
	state '2~~' on the power port~~ to boot the node.		second, sets state 0 to unfence the node, waits a further
	- 'reboot' This sets the node to state ~~'2' on the reset port to quickly~~		second and sets the node to state 2 to boot the node.
	~~kill the node~~, ~~then switches~~ to ~~state '3' on~~ the ~~power port,~~		- 'status' This calls '00:0' and returns the state of the node. This
	~~checks the return value (later, will check the probe pin)~~,		includes the state of the power and reset button plus the power
	~~sets state '1' on the reset port, pauses 1~~ second, and ~~then~~		feed status to indicate if the node is on or not.
	sets state '2~~' on the power port~~ to boot the node.
	- 'status' This calls '00:0' and returns the state of the ~~port~~. ~~Later,~~
	~~this will return~~ the ~~value from~~ the ~~voltage sensing pin~~.
	- 'monitor' being a multi-port fence device, this should call 'list'.		- 'monitor' being a multi-port fence device, this should call 'list'.
	MADI: Confirm that this is what is meant in "Issues" here:		MADI: Confirm that this is what is meant in "Issues" here:
Line 164:		Line 171:

	# Set STDOUT and $log to hot.		# Set STDOUT and $log to hot.
			if (1)
	{		{
	select $log;		select $log;
Line 182:		Line 190:
	# This makes sure the node ID is zero-padded or '00'.		# This makes sure the node ID is zero-padded or '00'.
	$conf->{na}{port}=$conf->{na}{port} ? $conf->{na}{port}=sprintf("%02d", $conf->{na}{port}) : "00";		$conf->{na}{port}=$conf->{na}{port} ? $conf->{na}{port}=sprintf("%02d", $conf->{na}{port}) : "00";
			# record($conf, $log, __LINE__."; na::port: [$conf->{na}{port}]\n");

	# Find the TCP port from the config file.		# Find the TCP port from the config file.
Line 189:		Line 198:
	{		{
	$conf->{'system'}{na_id}=$i;		$conf->{'system'}{na_id}=$i;
			# record($conf, $log, __LINE__."; system::na_id: [$conf->{'system'}{na_id}]\n");
	$conf->{na}{tcp_port}=$conf->{na}{$i}{tcp_port};		$conf->{na}{tcp_port}=$conf->{na}{$i}{tcp_port};
			# record($conf, $log, __LINE__."; na::tcp_port: [$conf->{na}{tcp_port}]\n");
	$conf->{na}{na_name}=$conf->{na}{$i}{na_name} ? $conf->{na}{$i}{na_name} : "Node Assassin #$i";		$conf->{na}{na_name}=$conf->{na}{$i}{na_name} ? $conf->{na}{$i}{na_name} : "Node Assassin #$i";
			# record($conf, $log, __LINE__."; na::na_name: [$conf->{na}{na_name}]\n");
	$conf->{na}{max_nodes}=$conf->{na}{$i}{max_nodes};		$conf->{na}{max_nodes}=$conf->{na}{$i}{max_nodes};
			# record($conf, $log, __LINE__."; na::max_nodes: [$conf->{na}{max_nodes}]\n");
	~~foreach my $node~~ (~~1..~~$conf~~->{na}{max_nodes})~~
	{
	$~~conf->{na}{power_pins}.=sprintf("%02d"~~, ~~(($node*2)-1))~~.",";
	$conf->{na}{~~reset_pins~~}~~.=sprintf("%02d~~"~~, (($node*2~~)~~-1)).",";~~
	}
	~~$conf->{na}{power_pins}=~s/,$//;~~
	~~$conf->{na}{reset_pins}=~s/,$//;~~
	~~last~~;
	}		}
	}		}

	die "Exiting on errors.\n" if $bad;		die "Exiting on errors.\n" if $bad;
	# record($conf, $log, "Node Assassin: [$conf->{na}{ipaddr}].\n");		record($conf, $log, "Node Assassin: . [$conf->{na}{ipaddr}].\n");
	# record($conf, $log, "TCP Port: .... [$conf->{na}{tcp_port}].\n");		record($conf, $log, "TCP Port: ...... [$conf->{na}{tcp_port}].\n");
	# record($conf, $log, "Node: ........ [$conf->{na}{port}].\n");		record($conf, $log, "Node: .......... [$conf->{na}{port}].\n");
	# record($conf, $log, "Login: ....... [$conf->{na}{login}].\n");		record($conf, $log, "Login: ......... [$conf->{na}{login}].\n");
	# record($conf, $log, "Password: .... [$conf->{na}{passwd}].\n");		record($conf, $log, "Password: ...... [$conf->{na}{passwd}].\n");
	# record($conf, $log, "Action: ...... [$conf->{na}{action}].\n");		record($conf, $log, "Action: ........ [$conf->{na}{action}].\n");
	# record($conf, $log, "Version: ~~.....~~ [$conf->{'system'}{version}].\n");		record($conf, $log, "Version Request: [$conf->{'system'}{version}].\n");
	# record($conf, $log, "Done reading args.\n");		record($conf, $log, "Done reading args.\n");

	# If I've been asked to show the version information, do so and then exit.		# If I've been asked to show the version information, do so and then exit.
Line 240:		Line 244:
	# If I've been asked to show the info on the given node assassin, do so and		# If I've been asked to show the info on the given node assassin, do so and
	# then exit.		# then exit.
	# record($conf, $log, "List State: .. [$conf->{'system'}{list_state}].\n");		# record($conf, $log, "List State: .... [$conf->{'system'}{list_state}].\n");
	if ($conf->{'system'}{list_state})		if ($conf->{'system'}{list_state})
	{		{
			record($conf, $log, "Calling the 'show_state' function.\n");
	show_state($conf, $log);		show_state($conf, $log);
	do_exit($conf, $log, 0);		do_exit($conf, $log, 0);
Line 249:		Line 254:
	# When asked to 'monitor' or 'list', do this... whatever 'this' is. All I know		# When asked to 'monitor' or 'list', do this... whatever 'this' is. All I know
	# is that it should not generate output.		# is that it should not generate output.
	# record($conf, $log, "Action: ...... [$conf->{na}{action}].\n");		# record($conf, $log, "Action: ........ [$conf->{na}{action}].\n");
	if (($conf->{na}{action} eq "monitor") or ($conf->{na}{action} eq "list"))		if (($conf->{na}{action} eq "monitor") or ($conf->{na}{action} eq "list"))
	{		{
			record($conf, $log, "Calling the 'show_list' function.\n");
	show_list($conf, $log, "list");		show_list($conf, $log, "list");
	do_exit($conf, $log, 0);		do_exit($conf, $log, 0);

Digimer at 19:56, 8 March 2010

2010-03-08T19:56:12Z

← Older revision		Revision as of 19:56, 8 March 2010
Line 18:		Line 18:

	Changes:		Changes:

			v0.1.005
			- Expanded the 'version' call to return complete details on each attached and
			configured Node Assassins.
			- Implemented the 'release', 'release_all', 'fence_all' and 'boot_all'
			actions.
			- General cleanup and updating of the docs.

	v0.1.004		v0.1.004

Digimer at 19:53, 8 March 2010

2010-03-08T19:53:39Z

Show changes

Digimer at 06:24, 8 March 2010

2010-03-08T06:24:41Z

← Older revision		Revision as of 06:24, 8 March 2010
Line 8:		Line 8:
	# Node Assassin - Fence Agent		# Node Assassin - Fence Agent
	# Digimer; digimer@alteeve.com		# Digimer; digimer@alteeve.com
	# Mar. 05, 2010.		# Mar. 07, 2010.
	# Version: 0.1.004		# Version: 0.1.004
	#		#

Digimer at 06:24, 8 March 2010

2010-03-08T06:24:29Z

Show changes

Digimer at 06:42, 5 March 2010

2010-03-05T06:42:44Z

← Older revision		Revision as of 06:42, 5 March 2010
Line 1:		Line 1:
			{{na_header}}

	'''NOTE''': The comments in this file need to be update, please don't trust them.		'''NOTE''': The comments in this file need to be update, please don't trust them.

Line 293:		Line 295:
	do_exit($conf, $log, 0);		do_exit($conf, $log, 0);
	</source>		</source>

			{{na_footer}}

Digimer: Created page with ''''NOTE''': The comments in this file need to be update, please don't trust them. This is the core fence agent that exists in /sbin/.