summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-25 12:43:27 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-25 12:43:27 +0000
commit8d6323c7ead52614ba855926880e3ba2796e8803 (patch)
tree5767a930e7e3cd53d88e93b3e213769a960ed153
parent9528621622106517834d7e755534a0403ea7a616 (diff)
downloaddrakx-8d6323c7ead52614ba855926880e3ba2796e8803.tar
drakx-8d6323c7ead52614ba855926880e3ba2796e8803.tar.gz
drakx-8d6323c7ead52614ba855926880e3ba2796e8803.tar.bz2
drakx-8d6323c7ead52614ba855926880e3ba2796e8803.tar.xz
drakx-8d6323c7ead52614ba855926880e3ba2796e8803.zip
enable empty path for homes share
-rwxr-xr-xperl-install/standalone/draksambashare6
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;