summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draknfs
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-06 02:59:57 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-06 02:59:57 +0000
commit38c5de0bbbb2df2d57892b8c05101a235f63c0a4 (patch)
treef4b20a5523df0268bc6294ed45407381d0c47daa /perl-install/standalone/draknfs
parent729eb6c755a0a4e1e30f25471e9b6c576f88624d (diff)
downloaddrakx-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar
drakx-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar.gz
drakx-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar.bz2
drakx-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar.xz
drakx-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.zip
fix domain in hosts access combobox
Diffstat (limited to 'perl-install/standalone/draknfs')
-rw-r--r--perl-install/standalone/draknfs6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index 6a8f60b3f..a69c6ab61 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -219,13 +219,13 @@ sub get_access_list {
network::network::read_net_conf($net);
my $interface ||= $net->{net_interface};
my $ip_address = network::tools::get_interface_ip_address($net, $interface);
- my $domain = chomp_(`dnsdomainame`);
+ my $domain = chomp_(`dnsdomainname`);
my @o = split(/\./, $ip_address);
my $ipnet;
if ($ip_address) {
$ipnet = $o[0] . "." . $o[1] . "." . $o[2] . ".0";
} else { $ipnet = "ip_address" }
- my @all = split(", ", qq(*, $domain, $ipnet/8, $ipnet/24, $ipnet/32));
+ my @all = split(", ", qq(*, *.$domain, $ipnet/8, $ipnet/24, $ipnet/32));
return @all;
}
@@ -356,7 +356,7 @@ sub add_modify_entry {
if ($lr->get_text =~ /yes/) { $lr_data = "ro" } elsif ($lr->get_text =~ /no/) { $lr_data = "rw" } else { $lr_data = "" }
if ($lsecure->get_text =~ /yes/) { $lsecure_data = "secure" } elsif ($lsecure->get_text =~ /no/) { $lsecure_data = "insecure" } else { $lsecure_data = "" }
my $all_right = join(",", grep { defined $_ } $luserid->get_text, $anonu, $anong, $lsync_data, $lsecure_data, $lr_data);
- print "---------- $all_right";
+ print "---------- $all_right -----\n";
if ($wanted =~ /add/) {
my $test_dir = $dir->get_text;
-d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;