Author: fapeeler
Date: Thu Jul 8 19:57:59 2010
New Revision: 961910
URL: http://svn.apache.org/viewvc?rev=961910&view=rev
Log:
VCL-197
_is_user_added is not used anymore
Modified:
incubator/vcl/trunk/managementnode/lib/VCL/utils.pm
Modified: incubator/vcl/trunk/managementnode/lib/VCL/utils.pm
URL:
http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/utils.pm?rev=961910&r1=961909&r2=961910&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/utils.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/utils.pm Thu Jul 8 19:57:59 2010
@@ -79,7 +79,6 @@ our @ISA = qw(Exporter);
our @EXPORT = qw(
_checknstartservice
_getcurrentimage
- _is_user_added
_machine_os
_pingnode
_sshd_status
@@ -2758,49 +2757,6 @@ sub _machine_os {
#/////////////////////////////////////////////////////////////////////////////
-=head2 _is_user_added
-
- Parameters : $node, $user, $type, $os
- Returns : 1 yes user exists - 0 no
- Description : logs into remote node checks to see if
- supplied user account exists
-=cut
-
-sub _is_user_added {
- my ($node, $user, $type, $os,$image_os_type) = @_;
- my ($package, $filename, $line, $sub) = caller(0);
- notify($ERRORS{'WARNING'}, 0, "node is not defined") if
(!(defined($node)));
- notify($ERRORS{'WARNING'}, 0, "user is not defined") if
(!(defined($user)));
- notify($ERRORS{'WARNING'}, 0, "type is not defined") if
(!(defined($type)));
- notify($ERRORS{'WARNING'}, 0, "os is not defined") if
(!(defined($os)));
-
- my @lines;
- my $l;
- my @SSHCMD;
-
- if ($type =~ /blade|virtualmachine/) {
-
- if ($image_os_type =~ /linux/i) {
- undef @SSHCMD;
- @SSHCMD = run_ssh_command($node,
$ENV{management_node_info}{keys}, "cat /etc/passwd", "root");
- foreach $l (@{$SSHCMD[1]}) {
- return 1 if ($l =~ /$user/);
- }
- return 0;
- }
- else {
- notify($ERRORS{'WARNING'}, 0, "osname is not defined or
supported $os");
- return 0;
- }
- } ## end if ($type =~ /blade|virtualmachine/)
- elsif ($type eq "lab") {
- #tobe done later
-
- }
-} ## end sub _is_user_added
-
-#/////////////////////////////////////////////////////////////////////////////
-
=head2 nmap_port
Parameters : $hostname, $port
