summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draksambashare46
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")))