diff options
Diffstat (limited to 'SiteSummary.pm')
| -rw-r--r-- | SiteSummary.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/SiteSummary.pm b/SiteSummary.pm index 50d4fbc..630c003 100644 --- a/SiteSummary.pm +++ b/SiteSummary.pm @@ -14,6 +14,7 @@ our @EXPORT = qw( get_site get_sitegroup get_hostname + get_dns_address get_linux_kernel_ver get_debian_edu_profile get_debian_edu_ver @@ -110,6 +111,11 @@ sub get_hostname { # but fall back to the IP address if the IP address do not resolve in # DNS. # +sub in_dns { + my $hostname = shift; + my $packed_ip = gethostbyname($hostname); + return defined $packed_ip; +} sub get_dns_address { my $hostid = shift; my $hostname = get_hostname($hostid); |