WikiLinker.pm

   1 #!/usr/local/bin/perl
   2
   3 package Bot::BasicBot::Pluggable::Module::WikiLinker;
   4 use Bot::BasicBot::Pluggable::Module;
   5 use base qw(Bot::BasicBot::Pluggable::Module);
   6
   7 use strict;
   8 use warnings;
   9 use MediaWiki::API;
  10 use Data::Dumper;
  11 use WikiLinkParser;
  12
  13 my %channels_urls = (
  14     '#wikinews-spam'      => 'https://en.wikinews.org/w/api.php',
  15     '#wikipedia-ru-spam'  => 'https://ru.wikipedia.org/w/api.php',
  16 );
  17 my %mw;
  18
  19 # Secondary variables.
  20 for my $channel_name (keys %channels_urls) {
  21     $mw{$channel_name} = MediaWiki::API->new();
  22     $mw{$channel_name}->{config}->{api_url} = $channels_urls{$channel_name};
  23 }
  24
  25 sub told{
  26     shift->process_message(@_);
  27 }
  28
  29 sub emoted {
  30     shift->process_message(@_);
  31 }
  32
  33 sub process_message{
  34     my ($self, $msg, $pri) = @_;
  35     my $body = $msg->{body};
  36     my $who  = $msg->{who};
  37     my $channel  = $msg->{'channel'};
  38     if (!grep { $_ eq $channel } keys %channels_urls){
  39         return;
  40     }
  41     if ($body =~ m{\[\[(.*?)\]\]} or $body =~ m{\{\{(.*?)\}\}}g){
  42         return join " ", @{WikiLinkParser->get_urls_by_text($body, $mw{$channel})};
  43     }
  44     return;
  45 }
  46
  47 sub help{
  48 return "parser for [[*]] in messages";
  49 }
  50
  51 1;
  52
  53 #_ _END_ _
  54