Typos.

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);