* Undo "less verbose" patch from r1153 to properly display Chans: in console logs

[infobot.git] / src / Modules / dns.pl

diff --git a/src/Modules/dns.pl b/src/Modules/dns.pl
index 73369ebaca31311d471fa5dd20b514d67f04bc95..415444d5535a41b78efa213e24fa13a2c688e186 100644 (file)
--- a/src/Modules/dns.pl
+++ b/src/Modules/dns.pl
@@ -1,9 +1,9 @@
 #
-#       dns.pl: host lookups
-#       Author: Tim Riker <Tim@Rikers.org>
-#       Source: extracted from UserExtra.pl
+#     dns.pl: host lookups
+#     Author: Tim Riker <Tim@Rikers.org>
+#     Source: extracted from UserExtra.pl
 #  Licensing: Artistic License (as perl itself)
-#      Version: v0.1
+#    Version: v0.1
 #
 #  Copyright (c) 2005 Tim Riker
 #
@@ -19,7 +19,7 @@ sub dns::dns {
        if ($dns =~ /(\d+\.\d+\.\d+\.\d+)/) {
                use Socket;
 
-               &main::status("DNS query by IP address: $dns");
+               &::status("DNS query by IP address: $dns");
 
                $y = pack('C4', split(/\./, $dns));
                $x = (gethostbyaddr($y, &AF_INET));
@@ -32,7 +32,7 @@ sub dns::dns {
 
        } else {
 
-               &main::status("DNS query by name: $dns");
+               &::status("DNS query by name: $dns");
                $x = join('.',unpack('C4',(gethostbyname($dns))[4]));
 
                if ($x !~ /^\s*$/) {