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: Reload.pm 11365 2008-05-10 14:58:28Z topia $
# -----------------------------------------------------------------------------
package System::Reload;
use strict;
use warnings;
use base qw(Module);
use ReloadTrigger;
use Timer;
use Configuration;
use Mask;
use RunLoop;
sub new {
my $class = shift;
my $this = $class->SUPER::new(@_);
if (!defined $this->config->conf_reloaded_notify ||
$this->config->conf_reloaded_notify) {
$this->{conf_hook} = Configuration::Hook->new(
sub {
my ($hook) = shift;
RunLoop->shared_loop->notify_msg("Reloaded configuration file.");
})->install('reloaded');
}
return $this;
}
sub destruct {
my $this = shift;
$this->{conf_hook}->uninstall if defined $this->{conf_hook};
$this->{conf_hook} = undef;
}
sub message_arrived {
my ($this,$msg,$sender) = @_;
my $do_reload = 0;
# クライアントの発言か？
if ($sender->isa('IrcIO::Client')) {
# コマンド名は一致してるか？
if (Mask::match_deep([$this->config->broadcast_command('all')],
$msg->command)) {
RunLoop->shared_loop->broadcast_to_servers($msg->clone);
$do_reload = 1;
} elsif (Mask::match_deep([$this->config->command('all')],
$msg->command)) {
$do_reload = 1;
}
}
if ($do_reload) {
# 必要ならリロードを実行。
ReloadTrigger->_install_reload_timer;
return undef;
}
return $msg;
}
1;
=pod
info: confファイルやモジュールの更新をリロードするコマンドを追加する。
default: on
# リロードを実行するコマンド名。省略されるとコマンドを追加しません。
# 例えば"load"を設定すると、"/load"と発言しようとした時にリロードを実行します。
# この時コマンドはTiarraが握り潰すので、IRCプロトコル上で定義された
# コマンド名を設定すべきではありません。
command: load
# command と同じですが、サーバにもブロードキャストします。
-broadcast-command: load-all
# confファイルをリロードしたときに通知します。
# モジュールの設定が変更されていた場合は、ここでの設定にかかわらず、
# モジュールごとに表示されます。1または省略された場合は通知します。
conf-reloaded-notify: 1
=cut
|
