svn commit: r832875 - /incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm

[fa...@apache.org]

Author: fapeeler
Date: Wed Nov  4 21:21:36 2009
New Revision: 832875

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

create a usergroup vcl
added the -g vcl option to the useradd cmd


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

Modified: incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm
URL: http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm?rev=832875&r1=832874&r2=832875&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm (original)
+++ incubator/vcl/trunk/managementnode/lib/VCL/Module/OS/Linux.pm Wed Nov  4 21:21:36 2009
@@ -609,7 +609,11 @@
 	my $user_standalone      = $self->data->get_user_standalone();
 	my $user_uid				 = $self->data->get_user_uid();
 
-	my $useradd_string = "/usr/sbin/useradd -u $user_uid -d /home/$user_name -m $user_name";
+	if($self->add_vcl_usergroup()){
+
+	}
+
+	my $useradd_string = "/usr/sbin/useradd -u $user_uid -d /home/$user_name -m $user_name -g vcl";
 
 	my @sshcmd = run_ssh_command($computer_node_name, $image_identity, $useradd_string, "root");
 	foreach my $l (@{$sshcmd[1]}) {
@@ -918,7 +922,34 @@
 	return 1;
 
 } ## end sub stop_external_sshd
+#/////////////////////////////////////////////////////////////////////////////
+
+=head2 add_vcl_usergroup
+
+ Parameters  : 
+ Returns     : 1
+ Description : step to add a user group to avoid group errors from useradd cmd 
+
+=cut
+
+sub add_vcl_usergroup {
+	my $self = shift;
+	if (ref($self) !~ /linux/i) {
+		notify($ERRORS{'CRITICAL'}, 0, "subroutine was called as a function, it must be called as a class method");
+		return;
+	}
+
+	my $management_node_keys = $self->data->get_management_node_keys();
+	my $computer_node_name   = $self->data->get_computer_node_name();
+	my $identity             = $self->data->get_image_identity;
+
+	if(run_ssh_command($computer_node_name, $identity, "groupadd vcl", "root")){
+		notify($ERRORS{'DEBUG'}, 0, "successfully added the vcl user group");
+	}
+
+	return 1;
 
+} 
 sub is_connected {
 	my $self = shift;
 	if (ref($self) !~ /linux/i) {