diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-08-25 12:43:27 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-08-25 12:43:27 +0000 |
| commit | 8d6323c7ead52614ba855926880e3ba2796e8803 (patch) | |
| tree | 5767a930e7e3cd53d88e93b3e213769a960ed153 /perl-install/standalone | |
| parent | 9528621622106517834d7e755534a0403ea7a616 (diff) | |
| download | drakx-backup-do-not-use-8d6323c7ead52614ba855926880e3ba2796e8803.tar drakx-backup-do-not-use-8d6323c7ead52614ba855926880e3ba2796e8803.tar.gz drakx-backup-do-not-use-8d6323c7ead52614ba855926880e3ba2796e8803.tar.bz2 drakx-backup-do-not-use-8d6323c7ead52614ba855926880e3ba2796e8803.tar.xz drakx-backup-do-not-use-8d6323c7ead52614ba855926880e3ba2796e8803.zip | |
enable empty path for homes share
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/draksambashare | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare index 4df8cb855..ad702f8aa 100755 --- a/perl-install/standalone/draksambashare +++ b/perl-install/standalone/draksambashare @@ -138,7 +138,7 @@ sub get_samba_share() { foreach my $clef (keys %$samba) { if ($samba->{$clef}{printable} =~ /yes/i || $clef =~ /print\$/) { print "$clef is a printer\n"; - } elsif ($clef =~ /global/ || $clef =~ /cdrom$/ || $clef eq "homes" || $clef eq "Profiles") { + } elsif ($clef =~ /global/ || $clef =~ /cdrom$/ || $clef eq "Profiles") { print "unwanted (special shares)\n"; } else { push @listshare, { @@ -422,7 +422,9 @@ sub modify_entry { my $share = $share_name->get_text; my $test_dir = $dir->get_text; $comment->get_text or err_dialog(N("Information"), N("Please enter a Comment for this share.")) and return 1; - -d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return; + if ($share !~ 'homes' and !-d $test_dir) { + err_dialog(N("Error!"), N("Please enter a directory to share.")) and return; + } foreach ($create_mask->get_text, $directory_mask->get_text) { if ($_ && !/^\d+$/) { err_dialog(N("Error"), N("Create mask, create mode and directory mask should be numeric. ie: 0755.")) and return 1; |