From 8ba9e581ab914bcf54e075a21ecef89805c68036 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Fri, 10 Dec 2004 14:22:57 +0000 Subject: use test_host_domain --- samba_wizard/Samba.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'samba_wizard') diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm index 6e05cc0e..581df5bd 100755 --- a/samba_wizard/Samba.pm +++ b/samba_wizard/Samba.pm @@ -30,6 +30,9 @@ use MDK::Wizard::Wizcommon; my $wiz = new MDK::Wizard::Wizcommon; my $old; +my $DOMAINNAME = chomp_(`dnsdomainname`); +my $SHORTHOSTNAME = chomp_(`hostname -s`); + my $o = { name => N("Samba wizard"), @@ -59,6 +62,7 @@ my $o = { } else { return 0, N("%s does not exist.", $file) } + test_host_domain($SHORTHOSTNAME, $DOMAINNAME); } }; -- cgit v1.2.1