X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FHTTPDtype.pl;h=c5b56857caf9d103bd87f4b853d313d02ba47a61;hb=8addf484a5b78fe043ac663129be6c05e075f260;hp=c91ecd01a87416ee1a01540935644d25c5c557ae;hpb=f2b044dd477305d15d95a36826b6bbc487cf190f;p=infobot.git

diff --git a/src/Modules/HTTPDtype.pl b/src/Modules/HTTPDtype.pl
index c91ecd0..c5b5685 100644
--- a/src/Modules/HTTPDtype.pl
+++ b/src/Modules/HTTPDtype.pl
@@ -8,26 +8,30 @@ use strict;
 package HTTPDtype;
 
 sub HTTPDtype {
-    my($HOST) = @_;
-    my($line) = '';
-    my($code, $mess, %h);
+    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";
+    $line =
+      ( length( $h{Server} ) > 0 )
+      ? $h{Server}
+      : "Couldn't fetch headers from $HOST";
 
-    &::performStrictReply($line||"Unknown Error Condition");
+    &::performStrictReply( $line || 'Unknown Error Condition' );
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80