* Missed DebianBugs.pl in the previous merge

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

diff --git a/src/Modules/dns.pl b/src/Modules/dns.pl
index 415444d5535a41b78efa213e24fa13a2c688e186..333fd1d46e3e3192ee114cb303f6b1295235b45f 100644 (file)
--- a/src/Modules/dns.pl
+++ b/src/Modules/dns.pl
@@ -13,42 +13,46 @@ package dns;
 use strict;
 
 sub dns::dns {
-       my $dns = shift;
-       my($match, $x, $y, $result, $pid);
+    my $dns = shift;
+    my ( $match, $x, $y, $result, $pid );
 
-       if ($dns =~ /(\d+\.\d+\.\d+\.\d+)/) {
-               use Socket;
+    if ( $dns =~ /(\d+\.\d+\.\d+\.\d+)/ ) {
+        use Socket;
 
-               &::status("DNS query by IP address: $dns");
+        &::status("DNS query by IP address: $dns");
 
-               $y = pack('C4', split(/\./, $dns));
-               $x = (gethostbyaddr($y, &AF_INET));
+        $y = pack( 'C4', split( /\./, $dns ) );
+        $x = ( gethostbyaddr( $y, &AF_INET ) );
 
-               if ($x !~ /^\s*$/) {
-                       $result = "$dns is $x" unless ($x =~ /^\s*$/);
-               } else {
-                       $result = "I can't find the address $dns in DNS";
-               }
+        if ( $x !~ /^\s*$/ ) {
+            $result = "$dns is $x" unless ( $x =~ /^\s*$/ );
+        }
+        else {
+            $result = "I can't find the address $dns in DNS";
+        }
 
-       } else {
+    }
+    else {
 
-               &::status("DNS query by name: $dns");
-               $x = join('.',unpack('C4',(gethostbyname($dns))[4]));
+        &::status("DNS query by name: $dns");
+        $x = join( '.', unpack( 'C4', ( gethostbyname($dns) )[4] ) );
 
-               if ($x !~ /^\s*$/) {
-                       $result = "$dns is $x";
-               } else {
-                       $result = "I can't find $dns in DNS";
-               }
-       }
+        if ( $x !~ /^\s*$/ ) {
+            $result = "$dns is $x";
+        }
+        else {
+            $result = "I can't find $dns in DNS";
+        }
+    }
 
-       return($result);
+    return ($result);
 }
 
 sub dns::query {
-       &::performStrictReply(&dns(@_));
-       return;
+    &::performStrictReply( &dns(@_) );
+    return;
 }
 
 1;
-# vim: ts=2 sw=2
+
+# vim:ts=4:sw=4:expandtab:tw=80