]>
Commit | Line | Data |
---|---|---|
1 | package POE::Component::IRC::Plugin::Hello 0.001; | |
2 | ||
3 | use 5.014000; | |
4 | use strict; | |
5 | use warnings; | |
6 | ||
7 | use List::Util qw/first/; | |
8 | ||
9 | use IRC::Utils qw/parse_user/; | |
10 | use POE::Component::IRC::Plugin qw/PCI_EAT_NONE/; | |
11 | ||
12 | sub new { | |
13 | my $class = shift; | |
14 | my $self = { | |
15 | greetings => [qw/privet hello salut salutari neata neaţa hola hey hi bonjour niihau wassup sup hallo chikmaa tungjatjeta parev salam namaskaar mingalarba ahoy saluton allo moin aloha namaste shalom ciào ciao servus salve ave merhaba witaj hei hola selam sawubona/, "what's up", 'que tal', 'こんにちは', '你好'], | |
16 | @_ | |
17 | }; | |
18 | ||
19 | bless $self, $class | |
20 | } | |
21 | ||
22 | sub PCI_register { | |
23 | my ($self, $irc) = @_; | |
24 | $irc->plugin_register($self, SERVER => qw/public/); | |
25 | 1 | |
26 | } | |
27 | ||
28 | sub PCI_unregister { 1 } | |
29 | ||
30 | sub S_public{ | |
31 | my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_; | |
32 | my $nick = parse_user $$rfullname; | |
33 | my $mynick = $irc->nick_name; | |
34 | my @hello = @{$self->{greetings}}; | |
35 | ||
36 | my $match = first { $$rmessage =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*$/i } @hello; | |
37 | $irc->yield(privmsg => $$rchannels->[0] => $hello[int rand $#hello].", $nick") if $match; | |
38 | PCI_EAT_NONE | |
39 | } | |
40 | ||
41 | 1; | |
42 | __END__ | |
43 | ||
44 | =head1 NAME | |
45 | ||
46 | POE::Component::IRC::Plugin::Hello - PoCo-IRC plugin that says hello | |
47 | ||
48 | =head1 SYNOPSIS | |
49 | ||
50 | use POE::Component::IRC::Plugin::Hello; | |
51 | ||
52 | my $irc = POE::Component::IRC::State->spawn(...); | |
53 | $irc->plugin_add(Hello => POE::Component::IRC::Plugin::Hello->new); | |
54 | ||
55 | =head1 DESCRIPTION | |
56 | ||
57 | POE::Component::IRC::Plugin::Hello is a PoCo-IRC plugin that greets back | |
58 | who greet him or a channel in public. It knows how to say hello in several | |
59 | languages, and greets people in a randomly chosen language. | |
60 | ||
61 | The list of greetings is configurable by the plugin user. | |
62 | ||
63 | =head1 SEE ALSO | |
64 | ||
65 | L<POE::Component::IRC::Plugin> | |
66 | ||
67 | =head1 AUTHOR | |
68 | ||
69 | Marius Gavrilescu, E<lt>marius@ieval.roE<gt> | |
70 | ||
71 | =head1 COPYRIGHT AND LICENSE | |
72 | ||
73 | Copyright (C) 2013 by Marius Gavrilescu | |
74 | ||
75 | This library is free software; you can redistribute it and/or modify | |
76 | it under the same terms as Perl itself, either Perl version 5.14.2 or, | |
77 | at your option, any later version of Perl 5 you may have available. | |
78 | ||
79 | ||
80 | =cut |