diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/draksambashare | 46 |
1 files changed, 42 insertions, 4 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare index 3e4ac556b..7553daf11 100755 --- a/perl-install/standalone/draksambashare +++ b/perl-install/standalone/draksambashare @@ -225,7 +225,6 @@ sub get_samba_user() { undef @listusers; foreach (cat_("/etc/samba/smbpasswd")) { my ($user) = m!^(\w+):!; - print $user; $user and push @listusers, { user_name => $user, }; @@ -871,6 +870,17 @@ sub remove_user { system("smbpasswd -x $user"); } +sub get_user { + my $conf = "/etc/passwd"; + my @data; local $_; + foreach (cat_($conf)) { + push @data, "$1" if m/^([^#:]+):[^:]+:([^:]+):/ and $2 > 499; + } + push @data, " "; + return sort(@data); +} + + sub modify_user_info { my ($user, $passwd, $todo) = @_; my ($buser, $bpasswd); @@ -880,7 +890,8 @@ sub modify_user_info { $dialog->set_position('center'); $dialog->set_resizable(0); if ($todo eq "add") { - $buser = Gtk2::Entry->new; + $buser = Gtk2::ComboBox->new_with_strings([ get_user() ]); + $buser->set_wrap_width(3); } else { $buser = Gtk2::Label->new; $buser->set_text($user); @@ -898,8 +909,21 @@ sub modify_user_info { 0, create_okcancel({ cancel_clicked => sub { $dialog->destroy }, ok_clicked => sub { - system("smbpasswd -a $user -n"); - set_user_passwd($user, $passwd); + my $user_selected = $buser->get_text; + if ($todo eq "add") { + if (any { /^$user_selected:/ } cat_("/etc/samba/smbpasswd")) { + err_dialog(N("Error"), ("Samba User already exist")) and return; + } + system("smbpasswd -a $user_selected -n"); + push @{$user_list->{data}}, [ + $user_selected, + ]; + push @listusers, { + user_name => $user_selected, + }; + } + my $passwd_e = $bpasswd->get_text; + set_user_passwd($user_selected, $passwd_e); $dialog->destroy; } }, @@ -910,6 +934,15 @@ sub modify_user_info { sub set_user_passwd { my ($user, $passwd) = @_; + print "here\n"; + local *F; + open(F, "|smbpasswd $user\n"); + print F " +$passwd\n +$passwd\n +\n +"; + close F; } sub add_data_share_list { @@ -1121,6 +1154,11 @@ gtkappend_page($nb, gtkpack_(gtkset_border_width(Gtk2::HBox->new, 0), err_dialog(N("Error"), N("Failed to delete user.") . "\n\n" . $err); } }), + 0, Gtk2::HSeparator->new, + 0, gtksignal_connect(Gtk2::Button->new(N("Userdrake")), clicked => sub { + run_program::raw({ detach => 1 }, 'userdrake'); + } + ), ), ), gtkshow(Gtk2::Label->new(N("Samba Users"))) |