svn commit: r1539826 - /vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/UnixLab.pm

[fa...@apache.org]

Author: fapeeler
Date: Thu Nov  7 21:22:45 2013
New Revision: 1539826

URL: http://svn.apache.org/r1539826
Log:
VCL-735

Added is_ssh_responding and firewall_compare_update.


Modified:
    vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/UnixLab.pm

Modified: vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/UnixLab.pm
URL: http://svn.apache.org/viewvc/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/UnixLab.pm?rev=1539826&r1=1539825&r2=1539826&view=diff
==============================================================================
--- vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/UnixLab.pm (original)
+++ vcl/trunk/managementnode/lib/VCL/Module/OS/Linux/UnixLab.pm Thu Nov  7 21:22:45 2013
@@ -417,7 +417,101 @@ sub check_connection_on_port {
         }
         return $ret_val;
 }
+#/////////////////////////////////////////////////////////////////////////////
+
+=head2 is_ssh_responding
+
+ Parameters  : $computer_name (optional), $max_attempts (optional)
+ Returns     : If computer responds to SSH: 1
+               If computer never responds to SSH: 0
+				   Description : Checks if the computer is responding to SSH. Ports 22 and 24 are
+               first checked to see if either is open. If neither is open, 0 is
+               returned. If either of the ports is open a test SSH command which
+              simply echo's a string is attempted. The default is to only
+               attempt to run this command once. This can be changed by
+               supplying the $max_attempts argument. If the $max_attempts is
+					supplied but set to 0, only the port checks are done.
+
+=cut
+
+sub is_ssh_responding {
+	my $self = shift;
+	if (ref($self) !~ /VCL::Module/i) {
+		 notify($ERRORS{'CRITICAL'}, 0, "subroutine was called as a function, it must be called as a class method");
+       return;
+	}
+
+	my $computer_node_name;
+	my $max_attempts = 1;
+	 
+	my $argument_1 = shift;
+	my $argument_2 = shift;
+
+	if ($argument_1) {
+ 		# Check if the argument is an integer
+		if ($argument_1 =~ /^\d+$/) {
+			$max_attempts = $argument_1;
+		}
+		else {
+			$computer_node_name = $argument_1;
+			if ($argument_2 && $argument_2 =~ /^\d+$/) {
+				$max_attempts = $argument_2;
+			}
+		}
+	}
+
+	if (!$computer_node_name) {
+		$computer_node_name = $self->data->get_computer_node_name();
+	}
+
+	# Try nmap to see if any of the ssh ports are open before attempting to run a test command
+	my $port_22_status = nmap_port($computer_node_name, 22) ? "open" : "closed";
+	my $port_24_status = nmap_port($computer_node_name, 24) ? "open" : "closed";
+	if ($port_22_status ne 'open' && $port_24_status ne 'open') {
+		notify($ERRORS{'DEBUG'}, 0, "$computer_node_name is NOT responding to SSH, ports 22 or 24 are both closed");
+		return 0;
+	}
 
+	if ($max_attempts) {
+		my ($exit_status, $output) = run_ssh_command({
+			node => $computer_node_name,
+			command => "echo \"testing ssh on $computer_node_name\"",
+			max_attempts => $max_attempts,
+			output_level => 0,
+			timeout_seconds => 30,
+			port => 24,
+			user => "vclstaff",
+		});
+
+		# The exit status will be 0 if the command succeeded
+		if (defined($output) && grep(/testing/, @$output)) {
+			notify($ERRORS{'DEBUG'}, 0, "$computer_node_name is responding to SSH, port 22: $port_22_status, port 24: $port_24_status");
+			return 1;
+		}
+		else {
+			notify($ERRORS{'DEBUG'}, 0, "$computer_node_name is NOT responding to SSH, SSH command failed, port 22: $port_22_status, port 24: $port_24_status");
+			return 0;
+		}
+	}
+	else {
+		return 1;
+	}
+}
+
+#/////////////////////////////////////////////////////////////////////////////
+
+=head2 firewall_compare_update
+
+ Parameters  : $computer_name (optional), $max_attempts (optional)
+ Returns     :	returns true.
+ 					Since the vclstaff user doesn't have root on the lab machines, there is not much this routine can do.
+
+=cut 
+
+sub firewall_compare_update {
+	
+	return 1;
+}
 #/////////////////////////////////////////////////////////////////////////////
 
 1;