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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
# -----------------------------------------------------------------------------
# $Id: PatchworkMessage.pm 11365 2008-05-10 14:58:28Z topia $
# -----------------------------------------------------------------------------
# copyright (C) 2004 Topia <topia@clovery.jp>. all rights reserved.
package Client::PatchworkMessage;
use strict;
use warnings;
use base qw(Module);
use Mask;
use Multicast;
use NumericReply;
use Module::Use qw(Client::Guess);
use Client::Guess;
use Tiarra::Utils;
sub message_io_hook {
my ($this,$msg,$io,$type) = @_;
my $mark_as_need_colon = sub {
$msg->remark('always-use-colon-on-last-param', 1);
};
if ($io->isa('IrcIO::Client')) {
if ($this->is_target('woolchat', $io)) {
if ($type eq 'out' &&
$msg->command eq 'NICK') {
$mark_as_need_colon->();
}
} elsif ($this->is_target('xchat', $io)) {
if ($type eq 'out' &&
$msg->command eq RPL_WHOISUSER) {
$mark_as_need_colon->();
}
}
}
return $msg;
}
sub is_target {
my ($this, $target, $io, $default_disable) = @_;
if (Client::Guess->shared->is_target($target, $io) &&
utils->cond_yesno($this->config->get("enable-$target"),
!$default_disable)) {
return 1;
}
return 0;
}
1;
=pod
info: IRC メッセージにちょっと変更を加えて、クライアントのバグを抑制する
default: off
# 特に注意書きがない場合はデフォルトで有効です。
# また、 Client::GetVersion も同時に入れておくと便利です。
# とりあえず obsolete です。このモジュールで実装されていた機能は
# Client::Conservative によって実現できます。
# Client::Conservative で実装してはいけないようなものがあった場合のみ
# このモジュールで対処します。
# WoolChat:
# 対応しているメッセージ:
# NICK(コロンが必須)
# 説明:
# NICK は接続直後にも発行されるため、 Client::GetVersion での判別まで
# 待てません。該当クライアントのオプション client-type に woolchat と
# 指定してください。実名欄に $client-type=woolchat$ と書けば OK です。
enable-woolchat: 1
# X-Chat:
# 対応しているメッセージ:
# RPL_WHOISUSER(コロンが必須)
# 説明:
# WHOIS の realname にスペースが入っていないと最初の一文字が削られます。
enable-xchat: 1
=cut
|
