summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksambashare40
1 files changed, 17 insertions, 23 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index 7553daf11..118627b4f 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -258,16 +258,6 @@ sub get_samba_printers() {
return @listprinters;
}
-sub create_smbuser {
- my ($list) = @_;
- my @users = split(" ", $list);
- foreach my $user (@users) {
- if (!any { /^$user:/ } cat_("/etc/samba/smbpasswd")) {
- system("smbpasswd -a $user -n");
- }
- }
-}
-
sub write_conf() {
$samba->write_conf("/etc/samba/smb.conf");
}
@@ -370,13 +360,13 @@ sub add_entry() {
}
}
if (!$wiz_addshare_path) {
- err_dialog(N("Error"), N("Can\'t create the directory, please enter a correct path.")) and return 'welcome';
+ err_dialog(N("Error"), N("Can't create the directory, please enter a correct path.")) and return 'welcome';
}
if (!$wiz_addshare_comment) {
err_dialog(N("Error"), N("Please enter a Comment for this share.")) and return 'welcome';
}
if (! -d $wiz_addshare_path) {
- mkdir_p($wiz_addshare_path) or err_dialog(N("Error"), N("Can\'t create the directory, please enter a correct path.")) and return 'welcome';
+ mkdir_p($wiz_addshare_path) or err_dialog(N("Error"), N("Can't create the directory, please enter a correct path.")) and return 'welcome';
}
},
post => sub {
@@ -767,7 +757,7 @@ sub modify_entry {
0, Gtk2::HSeparator->new,
0, $expander_file,
),
- ),
+ ),
create_okcancel({
cancel_clicked => sub { $w->destroy },
ok_clicked => sub {
@@ -782,6 +772,14 @@ sub modify_entry {
err_dialog(N("Error"), N("Create mask, create mode and directory mask should be numeric. ie: 0755.")) and return 1;
}
}
+ foreach ($read_list->get_text, $write_list->get_text, $admin_users->get_text, $valid_users->get_text) {
+ my @users = split(" ", $_);
+ foreach my $user (@users) {
+ if (!any { /^$user:/ } cat_("/etc/samba/smbpasswd") and !/\@/) {
+ err_dialog(N("Error"), N("Please create this Samba user: %s", $user)) and return;
+ }
+ }
+ }
# update gui SimpleList
remove_entry($selected, $share_list);
push @{$share_list->{data}}, [
@@ -874,7 +872,7 @@ sub get_user {
my $conf = "/etc/passwd";
my @data; local $_;
foreach (cat_($conf)) {
- push @data, "$1" if m/^([^#:]+):[^:]+:([^:]+):/ and $2 > 499;
+ push @data, $1 if m/^([^#:]+):[^:]+:([^:]+):/ and $2 > 499;
}
push @data, " ";
return sort(@data);
@@ -934,15 +932,11 @@ 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;
+ my $F;
+ open($F, '|' . qq(smbpasswd $user -s));
+ print $F "$passwd\n";
+ print $F "$passwd\n";
+ close $F;
}
sub add_data_share_list {