take a few more things literally

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

diff --git a/src/Modules/HTTPDtype.pl b/src/Modules/HTTPDtype.pl
index 3494846d113b7895a25135d87929baf560fc2109..5906077f64d395c6117e6b3d4c81f0123925d2ae 100644 (file)
--- a/src/Modules/HTTPDtype.pl
+++ b/src/Modules/HTTPDtype.pl
@@ -8,26 +8,26 @@ use strict;
 package HTTPDtype;
 
 sub HTTPDtype {
-    my ($HOST) = @_;
+    my($HOST) = @_;
     my($line) = '';
     my($code, $mess, %h);
 
+    # TODO: remove leading http:// and trailing :port and /foo if found
     $HOST = 'joeysmith.com' unless length($HOST) > 0;
     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";
-
-    &::pSReply($line||"Unknown Error Condition");
+       $line = (length($h{Server}) > 0) ? $h{Server} :
+         "Couldn't fetch headers from $HOST";
 
+    &::performStrictReply($line||'Unknown Error Condition');
 }
 
 1;