1 # HTTPDtype.pl: retrieves http server headers
2 # Author: Joey Smith <joey@php.net>
3 # Licensing: Artistic License
4 # Version: v0.1 (20031110)
15 $HOST = 'joeysmith.com' unless length($HOST) > 0;
16 return unless &::loadPerlModule("Net::HTTP::NB");
17 return unless &::loadPerlModule("IO::Select");
19 my $s = Net::HTTP::NB->new(Host => $HOST) || return;
20 $s->write_request(HEAD => "/");
22 my $sel = IO::Select->new($s);
23 $line = "Header timeout" unless $sel->can_read(10);
24 ($code, $mess, %h) = $s->read_response_headers;
26 $line = (length($h{Server}) > 0) ? $h{Server} :
27 "Couldn't fetch headers from $HOST";
29 &::pSReply($line||"Unknown Error Condition");