From 00d16d08cc735c3f4a2f00ba3a10b9d84d607410 Mon Sep 17 00:00:00 2001
From: Petter Reinholdtsen <pere@hungry.com>
Date: Sun, 1 Jun 2008 21:43:26 +0000
Subject: Typos.

---
 SiteSummary.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'SiteSummary.pm')

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