@@ -9,17 +9,18 @@ use strict; use Bot::BasicBot::Pluggable; my $bot = Bot::BasicBot::Pluggable->new( channels => [ ], - server => "london.rhizomatic.net", + server => "london.irc.perl.org", nick => "jerabot", ); $bot->load("Seen"); -my $google = $bot->load("Google"); -$google->set("google_key", "xxxxxxxxxxxxxxx"); +#my $google = $bot->load("Google"); +#$google->set("google_key", "xxxxxxxxxxxxxxx"); $bot->load("Infobot"); +$bot->load("Title"); $bot->run(); examples/simple.pl @@ -147,6 +147,52 @@ sub load { return $self->{store}; } +=head2 say(message) + +passing through to the underlying Bot::BasicBot object, this method lets +you send messages without replying to a said() call, eg: + + $self->say({ who => 'tom', body => 'boo', channel => 'msg' }); + +=cut + +sub say { + my $self = shift; + return $self->{Bot}->say(@_); +} + +=head2 reply(message, body) + +replies to the given message with the given text. Another passthrough to the +Bot::BasicBot object. + +=cut + +sub reply { + my $self = shift; + return $self->{Bot}->reply(@_); +} + +=head2 tell(nick / channel, message) + +convenience method to send a message to the given nick or channel, will send +a privmsg if a nick is given, or a public for a channel. + + $self->tell('tom', "hello there, fool"); + +=cut + +sub tell { + my $self = shift; + my $target = shift; + my $body = shift; + if ($target =~ /^#/) { + $self->say({ channel => $target, body => $body }); + } else { + $self->say({ channel => 'msg', body => $body, who => $target }); + } +} + =head2 said(message, priority) This is I<the> method to override. It's called when the bot sees lib/Bot/BasicBot/Pluggable/Module/Base.pm @@ -14,14 +14,23 @@ Speak the title of urls mentioned in channel None. If the module is loaded, the bot will speak the titles of all web pages mentioned. -=head1 TODO - -If you speak the URL of something big, the bot will download it all. It'll probably -then time out and drop off the server. Oops. - =cut -use LWP::Simple; +use LWP::UserAgent; +use HTTP::Request; +use HTTP::Response; + +sub get { + my $url = shift; + my $ua = LWP::UserAgent->new; + $ua->timeout(20); + $ua->max_size(16384); + my $req = HTTP::Request->new(GET => $url); + $req->header( Range => 'bytes=0-16384' ); + my $res = $ua->request($req); + return unless $res->is_success; + return $res->content; +} sub help { return "will speak the title of any wab page mentioned in channel"; @@ -36,7 +45,7 @@ sub said { my $url = $1; my $data = get($url) or return; # "Can't get $url"; - + my $title; my $match; lib/Bot/BasicBot/Pluggable/Module/Title.pm examples/plingbot.pl 108fdf32de923fc07c43473de49137c1a7969152 tomi tomi@ab05c693-d3d1-0310-8e8b-e1346d90d6a5 http://github.com/jerakeen/bot-basicbot-pluggable/commit/a8756cac41cbaf6f418269e828eb0cb9c112f4d6 a8756cac41cbaf6f418269e828eb0cb9c112f4d6 2004-01-02T15:14:19-08:00 2004-01-02T15:14:19-08:00 fix title bugs cca667def98bad06aa14d5e762fe03b52b8ccf38 tomi tomi@ab05c693-d3d1-0310-8e8b-e1346d90d6a5