From 38c5de0bbbb2df2d57892b8c05101a235f63c0a4 Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 6 Jul 2005 02:59:57 +0000
Subject: fix domain in hosts access combobox

---
 perl-install/standalone/draknfs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1