michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Expand hostname from /etc/hosts if needed

Browse Source
This commit is contained in:
Jamie Cameron
2022-11-06 20:45:51 -08:00
parent 1a953bf2fe
commit b0c26867fe
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
web-lib-funcs.pl
View File

@@ -4086,6 +4086,23 @@ if (!$main::get_system_hostname[$m]) {
$fromfile .= ".".$dname if ($dname);
}
# Append domain name from /etc/hosts if needed
if ($fromfile && $fromfile !~ /\./) {
my $lref = &read_file_lines("/etc/hosts", 1);
HOST: foreach my $l (@$lref) {
next if ($l =~ /^\s*#/);
my ($ip, @names) = split(/\s+/, $l);
next if (&indexof($fromfile, @names) < 0);
foreach my $n (@names) {
if ($n =~ /^\Q$fromfile\E\.(.*)/) {
$dname = $2;
last HOST;
}
}
}
$fromfile .= ".".$dname if ($dname);
}
# If we found a hostname in a file, use it
if ($fromfile && ($m || $fromfile =~ /\./)) {
if ($m) {