diff options
Diffstat (limited to 'userdrake2')
| -rwxr-xr-x | userdrake2 | 92 |
1 files changed, 77 insertions, 15 deletions
@@ -39,6 +39,7 @@ my $in = interactive->vnew('su', 'default'); my $us = {} ; $us->{VERSION} = 0.91; +my $error = 0; my %prefs = getVarsFromSh($conffile); my $sysfilter = text2bool($prefs{FILTER}); @@ -126,10 +127,10 @@ sub Refresh_Users_Full { my $users = $ctx->UsersEnumerateFull(); $utree_model->clear(); my @UserReal; - LOOP: foreach my $l (@$users) { next LOOP if ($filterusers && $l->Uid <= 499 || $l->Uid == 65534) ; push(@UserReal, $l) }; + LOOP: foreach my $l (@$users) { next LOOP if ($filterusers && $l->Uid(-65533) <= 499 || $l->Uid(-65533) == 65534) ; push(@UserReal, $l) }; foreach my $l (@UserReal) { - my $a = $l->Gid; my $group = $ctx->LookupGroupById($a); - $utree_model->append_set([ 0 => $l->UserName, 1 => $l->Uid, 2 => $group->GroupName, 3 => $l->Gecos, 4 => $l->LoginShell, 5 => $l->HomeDir ]); + my $a = $l->Gid(-65533); my $group = $ctx->LookupGroupById($a); + $utree_model->append_set([ 0 => $l->UserName(-65533), 1 => $l->Uid(-65533), 2 => $group->GroupName(-65533), 3 => $l->Gecos(-65533), 4 => $l->LoginShell(-65533), 5 => $l->HomeDir(-65533) ]); } } @@ -138,18 +139,18 @@ sub Refresh_Groups_Full { my $groups = $ctx->GroupsEnumerateFull(); $gtree_model->clear(); my @GroupReal; - LOOP:foreach my $g (@$groups) { next LOOP if ($filtergroups && $g->Gid <= 499 || $g->Gid == 65534); push(@GroupReal, $g) }; + LOOP:foreach my $g (@$groups) { next LOOP if ($filtergroups && $g->Gid(-65533) <= 499 || $g->Gid(-65533) == 65534); push(@GroupReal, $g) }; foreach my $g (@GroupReal) { - my $a = $g->Gid; my $group = $ctx->LookupGroupById($a); - my $u_b_g = $ctx->EnumerateUsersByGroup($g->GroupName); + my $a = $g->Gid(-65533); my $group = $ctx->LookupGroupById($a); + my $u_b_g = $ctx->EnumerateUsersByGroup($g->GroupName(-65533)); my $listUbyG = join(',', @$u_b_g); - $gtree_model->append_set([ 0 => $g->GroupName, 1 => $g->Gid, 2 => $listUbyG ]); + $gtree_model->append_set([ 0 => $g->GroupName(-65533), 1 => $g->Gid(-65533), 2 => $listUbyG ]); } } sub AddUser { my $w = ugtk2->new(N("Create New User"), grab => 1); - my $mode = 0; + my $createhomedir = 1; my $is_system = 0; my %u; my %sec = getVarsFromSh($secfile); gtkadd($w->{window}, gtkpack_(Gtk2::VBox->new(0, 2), @@ -170,15 +171,51 @@ sub AddUser { gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub { if (!$r) { $u{username} = $us->{o}->{log}->get_text(); - if (!valid($u{username})) { raiseerror($us->{error}); $mode = 1 }; - my $nm = $ctx->LookupGroupByName($u{username}); - if ($nm) { raiseerror(N("User already exists, please choose another User Name")); $mode = 1 }; - $mode and $us->{o}->{log}->set_text(''); + if (!valid($u{username})) { raiseerror($us->{error}); $error = 1 }; + my $nm = $ctx->LookupUserByName($u{username}); + if ($nm) { raiseerror(N("User already exists, please choose another User Name")); $error = 1 ; $us->{o}->{log}->set_text('') }; $u{passwd} = $us->{o}->{passwd}->get_text(); - if ($us->{o}->{passwd}->get_text() ne $us->{o}->{confpasswd}->get_text()) { raiseerror(N("Password Mismatch")); $mode = 1 }; - !$mode and print "############# Test Succesfull ##############\n"; + if ($us->{o}->{passwd}->get_text() ne $us->{o}->{confpasswd}->get_text()) { raiseerror(N("Password Mismatch")); $error = 1 }; + if ($sec{SECURE_LEVEL} > 3 && length($u{passwd}) < 6) { raiseerror(N("This password is too simple. \n Good passwords should be > 6 caracters")); $error = 1 }; + if ($us->{o}->{userid}->get_active) { + if ((my $u{uid} = $us->{o}->{uid}->get_value) < 500) { + print 1; + } + }; + if ($us->{o}{privategroup}->get_active) { + if (!$error) { + #Check if group exist + my $gr = $ctx->LookupGroupByName($u{username}); + if ($gr) { + my $groupchoice = ChooseGroup(); + if ($groupchoice == 0 && !$error) { + #You choose to put it in the existing group + $u{gid} = $gr->Gid(-65533); + printf("EXISTGROUP: le Gid du group sera %d\n groupchoice = %d\n", $u{gid}, $groupchoice); + } elsif ($groupchoice == 1) { + # Put it in 'users' group + $u{gid} = Add2UsersGroup(); + printf("USERGROUP: le Gid du group sera %d\n groupchoice = %d\n", $u{gid}, $groupchoice); + } + } else { + #it's a new group: Add it + my $newgroup = $ctx->AddGroup($u{username},$is_system); + $u{gid} = $newgroup->Gid(-65533); + printf("NEWGROUP : le Gid du group sera %d\n", $u{gid}); + } + } + } else { + $u{gid} = Add2UsersGroup(); + printf("le Gid du group sera %d", $u{gid}); + } + if(!$error) { + print "############# Test Succesfull ##############\n"; + $u{gecos} = $us->{o}->{fullname}->get_text(); + $u{homedir} = $us->{o}->{homedir}->get_text() || ""; + $u{loginshell} = $us->{o}->{shells}->entry->get_text(); + } } - !$mode and Gtk2->main_quit; $mode = 0 }) + !$error and Gtk2->main_quit; $error = 0 }) } ([ N("Cancel"), 1 ], [ N("Ok"), 0 ])), ) ); @@ -191,6 +228,30 @@ sub AddUser { $w->{rwindow}->show_all; $w->main; } +sub Add2UsersGroup() { + my $usersgroup = $ctx->LookupGroupByName('users'); + return $usersgroup->Gid(-65533); +} +sub ChooseGroup { + my $w = ugtk2->new(N("Choose Group"), grab => 1, center => 1); + my $choice; + my @radio = gtkradio(N("Add to the existing group"), (N("Add to the existing group"), N("Add to the 'users' group"))); + gtkadd($w->{window}, + gtkpack__(Gtk2::VBox->new(0,5), + Gtk2::Label->new(N("A group with this name already exists. What would you like to do?")), + gtkpack(Gtk2::VBox->new(0,0), @radio), + Gtk2::HSeparator->new, + gtkpack(create_hbox(), + gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { + each_index { $_->get_active and $choice = $::i } @radio; + Gtk2->main_quit; + }), + gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { $w->{retval} = 0; $error = 1; Gtk2->main_quit })))); + $w->main; + $choice; +} + + sub AddGroup { my $w = ugtk2->new(N("Create New User"), grab => 1); my $mode = 0; @@ -220,6 +281,7 @@ sub AddGroup { $w->main; } + sub Delete { } |