Removed this file.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@228 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/DNS.pl b/src/Modules/DNS.pl
deleted file mode 100644 (file)
index fb0d619..0000000
--- a/src/Modules/DNS.pl
+++ /dev/null
@@ -1,59 +0,0 @@
-
-# infobot :: Kevin Lenzo  (c) 1997
-
-# once again, thanks to Patrick Cole
-
-#use POSIX;
-use Socket;
-use strict;
-
-use vars qw($waitedpid);
-
-sub REAPER {
-       $SIG{CHLD} = \&REAPER;  # loathe sysV
-       $waitedpid = wait;
-}
-
-$SIG{CHLD} = \&REAPER;
-
-sub DNS {
-    my $in = $_[0];
-    my($match, $x, $y, $result);
-    my $pid;
-
-    if (!defined($pid = fork)) {
-       return "no luck, $who";
-    } elsif ($pid) {
-       # parent
-    } else {
-       # child
-       if ($in =~ /(\d+\.\d+\.\d+\.\d+)/) {
-           &status("DNS query by IP address: $in");
-           $match = $1;
-           $y = pack('C4', split(/\./, $match));
-           $x = (gethostbyaddr($y, &AF_INET));
-           if ($x !~ /^\s*$/) {
-               $result = $match." is ".$x unless ($x =~ /^\s*$/);
-           } else {
-               $result = "I can't seem to find that address in DNS";
-           }
-       } else {
-           &status("DNS query by name: $in");
-           $x = join('.',unpack('C4',(gethostbyname($in))[4]));
-           if ($x !~ /^\s*$/) {
-               $result = $in." is ".$x;
-           } else {
-               $result = "I can\'t find that machine name";
-           }
-       }
-
-       if ($msgType eq 'public') {
-           &say($result);
-       } else {
-           &msg($who, $result);
-       }
-       exit;                   # bye child
-    }
-}
-
-1;