ws

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

diff --git a/src/Modules/HTTPDtype.pl b/src/Modules/HTTPDtype.pl
index 3494846d113b7895a25135d87929baf560fc2109..b65cc75138c4b60d1680b7bd8b484551f027e4f8 100644 (file)
--- 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");