1 package POE
::Component
::IRC
::Plugin
::Hello
;
7 use Encode qw
/encode decode/;
9 our $VERSION = '0.001002';
11 use List
::Util qw
/first/;
13 use IRC
::Utils qw
/parse_user/;
14 use POE
::Component
::IRC
::Plugin qw
/PCI_EAT_NONE/;
20 qw
/privet hello salut salutari neata neaţa neața neatza
21 hola hey hi bonjour wassup sup hallo chikmaa
22 tungjatjeta parev salam namaskaar mingalarba ahoy
23 saluton allo moin aloha namaste shalom ciào ciao servus
24 salve ave merhaba witaj hei hola selam sawubona
25 geodemorgen hoi καλημέρα
/,
26 "what's up", 'que tal', 'こんにちは', '你好', 'ni hao',
27 'добро јутро', 'γεια σας', 'bom dia', 'hyvää huomenta'],
35 my ($self, $irc) = @_;
36 $irc->plugin_register($self, SERVER
=> qw
/public/);
40 sub PCI_unregister
{ 1 }
43 my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
44 my $nick = parse_user
$$rfullname;
45 my $mynick = $irc->nick_name;
46 my $message = decode
'UTF-8', $$rmessage;
47 my @hello = @
{$self->{greetings
}};
49 my $match = first
{ $message =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*[.!]?\s*$/i } @hello;
50 my $randhello = encode
'UTF-8', $hello[int rand $#hello];
51 $irc->yield(privmsg
=> $$rchannels->[0] => "$randhello, $nick") if $match;
60 POE::Component::IRC::Plugin::Hello - PoCo-IRC plugin that says hello
64 use POE::Component::IRC::Plugin::Hello;
66 my $irc = POE::Component::IRC::State->spawn(...);
67 $irc->plugin_add(Hello => POE::Component::IRC::Plugin::Hello->new);
71 POE::Component::IRC::Plugin::Hello is a PoCo-IRC plugin that greets back
72 who greet him or a channel in public. It knows how to say hello in several
73 languages, and greets people in a randomly chosen language.
75 The list of greetings is configurable by the plugin user.
79 L<POE::Component::IRC::Plugin>
83 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
85 =head1 COPYRIGHT AND LICENSE
87 Copyright (C) 2013 by Marius Gavrilescu
89 This library is free software; you can redistribute it and/or modify
90 it under the same terms as Perl itself, either Perl version 5.14.2 or,
91 at your option, any later version of Perl 5 you may have available.