Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 13:45:42 -04:00
Code Issues Releases Wiki Activity

adding a title plugin for highbit

Browse source
This commit is contained in:
Ryan Voots 2010-02-13 11:44:28 -05:00
parent a41c6d3975
commit fe5ccf77b2
1 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
plugins/title.pm Normal file
View file

@ -0,0 +1,31 @@
use WWW::Mechanize;
sub {
my( $said ) = @_;
my $ua = WWW::Mechanize->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->get( $url );
if( not $resp ) {
print "Couldn't fetch [$url] you failure";
return;
}
print "$url: " . $ua->title();
}
__DATA__
head http://url/; returns the response code and server type from a HEAD request for a particular url.