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");
$s->write_request(HEAD => "/");
my $sel = IO::Select->new($s);
- $line = "Header timeout" unless $sel->can_read(10);
+ $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");
-
+ &::performStrictReply($line||'Unknown Error Condition');
}
1;