X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FHTTPDtype.pl;h=b65cc75138c4b60d1680b7bd8b484551f027e4f8;hb=f7cae48a17d6decd0a9bd997188271daa0a885b1;hp=3494846d113b7895a25135d87929baf560fc2109;hpb=93eb520d8e5ebbdea3a20029d9d95e0d4e848901;p=infobot.git

diff --git a/src/Modules/HTTPDtype.pl b/src/Modules/HTTPDtype.pl
index 3494846..b65cc75 100644
--- a/src/Modules/HTTPDtype.pl
+++ b/src/Modules/HTTPDtype.pl
@@ -16,15 +16,15 @@ sub HTTPDtype {
     return unless &::loadPerlModule("Net::HTTP::NB");
     return unless &::loadPerlModule("IO::Select");
 
-        my $s = Net::HTTP::NB->new(Host => $HOST) || return;
-        $s->write_request(HEAD => "/");
+	my $s = Net::HTTP::NB->new(Host => $HOST) || return;
+	$s->write_request(HEAD => "/");
 
-        my $sel = IO::Select->new($s);
-        $line = "Header timeout" unless $sel->can_read(10);
-        ($code, $mess, %h) = $s->read_response_headers;
+	my $sel = IO::Select->new($s);
+	$line = "Header timeout" unless $sel->can_read(10);
+	($code, $mess, %h) = $s->read_response_headers;
 
-        $line = (length($h{Server}) > 0) ? $h{Server} :
-          "Couldn't fetch headers from $HOST";
+	$line = (length($h{Server}) > 0) ? $h{Server} :
+	  "Couldn't fetch headers from $HOST";
 
     &::pSReply($line||"Unknown Error Condition");