diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-06 02:59:57 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-06 02:59:57 +0000 |
| commit | 38c5de0bbbb2df2d57892b8c05101a235f63c0a4 (patch) | |
| tree | f4b20a5523df0268bc6294ed45407381d0c47daa /perl-install/standalone/draknfs | |
| parent | 729eb6c755a0a4e1e30f25471e9b6c576f88624d (diff) | |
| download | drakx-backup-do-not-use-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar drakx-backup-do-not-use-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar.gz drakx-backup-do-not-use-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar.bz2 drakx-backup-do-not-use-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.tar.xz drakx-backup-do-not-use-38c5de0bbbb2df2d57892b8c05101a235f63c0a4.zip | |
fix domain in hosts access combobox
Diffstat (limited to 'perl-install/standalone/draknfs')
| -rw-r--r-- | perl-install/standalone/draknfs | 6 |
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; |