mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 18:35:49 -04:00
32 lines
677 B
Perl
32 lines
677 B
Perl
use Net::INET6Glue::INET_is_INET6;
|
|
use LWP::UserAgent;
|
|
no warnings 'void';
|
|
sub {
|
|
my( $said ) = @_;
|
|
|
|
my $ua = LWP::UserAgent->new( agent => "BB3WebAgent! (mozilla)" );
|
|
my $url;
|
|
|
|
if( $said->{body} =~ m{(http://\S+)} ) {
|
|
$url = $1;
|
|
}
|
|
elsif( $said->{body} =~ /(\S+)/ ) {
|
|
$url = "http://$1";
|
|
}
|
|
else {
|
|
print "That doesn't look like a url..";
|
|
return;
|
|
}
|
|
|
|
my $resp = $ua->head( $url );
|
|
|
|
if( not $resp ) {
|
|
print "Couldn't fetch [$url] you failure";
|
|
return;
|
|
}
|
|
|
|
print "$url: " . $resp->code . ": " . $resp->message . ". " . $resp->header("server");
|
|
};
|
|
|
|
__DATA__
|
|
head http://url/; returns the response code and server type from a HEAD request for a particular url.
|