1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
# -*- cperl -*-
# -----------------------------------------------------------------------------
# $Id: AliasTest.pm 11365 2008-05-10 14:58:28Z topia $
# -----------------------------------------------------------------------------
# copyright (C) 2003 Topia <topia@clovery.jp>. all rights reserved.
package Debug::AliasTest;
use strict;
use warnings;
use base qw(Module);
use Module::Use qw(Auto::Utils);
use Auto::Utils;
use Mask;
sub message_arrived {
my ($this,$msg,$sender) = @_;
my @result = ($msg);
# サーバーからのメッセージか？
if ($sender->isa('IrcIO::Server')) {
# PRIVMSGか？
if ($msg->command eq 'PRIVMSG') {
my ($get_ch_name,undef,undef,$reply_anywhere)
= Auto::Utils::generate_reply_closures($msg,$sender,\@result);
my ($req, $str) = split(/\s+/, $msg->param(1), 2);
if (Mask::match_array([$this->config->request('all')], $req, 1)) {
# 一致していた。
if (Mask::match_deep_chan([$this->config->mask('all')],$msg->prefix,$get_ch_name->())) {
$reply_anywhere->(join('', ($this->config->prefix||''), $str, ($this->config->suffix||'')));
}
}
}
}
return @result;
}
1;
|
