Author: bmbouter
Date: Mon Mar 30 18:57:34 2009
New Revision: 760104

URL: http://svn.apache.org/viewvc?rev=760104&view=rev
Log:
VCL-123

This version has the comments cleaned up.  I should have submitted this version 
the first time; sorry for the confusion.


Modified:
    incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Ubuntu.pm

Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Ubuntu.pm
URL: 
http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Ubuntu.pm?rev=760104&r1=760103&r2=760104&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Ubuntu.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Ubuntu.pm Mon Mar 30 
18:57:34 2009
@@ -280,6 +280,7 @@
        }
 
        notify($ERRORS{'DEBUG'}, 0, "Enterered reserve() in the Ubuntu OS 
module");
+
        my $user_name = $self->data->get_user_login_id();
        my $computer_node_name = $self->data->get_computer_node_name();
        my $image_identity = $self->data->get_image_identity;
@@ -310,7 +311,7 @@
        }
 
        return 1;
-} ## end sub delete_user
+}
 
 sub grant_access {
        my $self = shift;
@@ -319,27 +320,8 @@
                return 0;
        }
 
-       notify($ERRORS{'DEBUG'}, 0, 
"===+++++++++++========+++++++++++++Enterered grant_access in Ubuntu");
-       
-       my $user_name = $self->data->get_user_login_id();
-       my $computer_node_name = $self->data->get_computer_node_name();
-       my $reservation_password = $self->data->get_reservation_password();
-       my $image_identity = $self->data->get_image_identity;
-
-       notify($ERRORS{'OK'}, 0, "user_name $user_name");
-       notify($ERRORS{'OK'}, 0, "comp_node_name $computer_node_name");
-       notify($ERRORS{'OK'}, 0, "identity key $image_identity");
-
-#              my @sshcmd = run_ssh_command($computer_node_name, 
$image_identity, "echo $reservation_password \| /usr/bin/passwd -f $user_name 
--stdin", "root");
-#              foreach my $l (@{$sshcmd[1]}) {
-#                      if ($l =~ /authentication tokens updated successfully/) 
{
-#                              notify($ERRORS{'OK'}, 0, "successfully changed 
local password account $user_name");
-#                              return 1;
-#                      }
-#              }
-       
        return 1;
-} ## end sub delete_user
+}
 
 1;
 __END__


Reply via email to