blob: 4d543c94b74890ad1e0cfb7f77a9270009be390f (
plain) (
blame)
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
|
<commands>
<command cmd="^;join (.*)" flag="a">
<![CDATA[
$conn->join($1);
]]>
</command>
<command cmd="^;part (.*)" flag="a">
<![CDATA[
$conn->part($1);
]]>
</command>
<command cmd="^;sl (.*)" flag="d">
<![CDATA[
$conn->sl($1);
]]>
</command>
<command cmd="^;quit ?(.*)" flag="a">
<![CDATA[
$conn->quit($1);
]]>
</command>
<command cmd="^;ev (.*)" flag="d">
<![CDATA[
eval $1; warn $@ if $@;
]]>
</command>
<command cmd="^;rehash$" flag="a">
<![CDATA[
readXML();
$conn->privmsg($event->{to}->[0], 'config files were re-read');
]]>
</command>
<command cmd="^;say (.*)" flag="t">
<![CDATA[
$conn->privmsg($event->{to}->[0], $1);
]]>
</command>
<command cmd="^;do (.*)" flag="t">
<![CDATA[
$conn->me($event->{to}->[0], $1);
]]>
</command>
<command cmd="^;exempt (.*)" flag="o">
<![CDATA[
push(@::eline, $1);
"$1\n" >> io 'exempt.txt';
$conn->privmsg($event->{to}->[0], "$1 exempted");
]]>
</command>
<command cmd="^\!ops *(.*)">
<![CDATA[
my $hilite=commaAndify(getAlert($event->{to}->[0], 'opalert', 'hilights'));
$conn->privmsg($_, "$hilite: $event->{nick} wants your attention ($1) ") foreach getAlert($event->{to}->[0], 'opalert', 'msgs');
]]>
</command>
<command cmd="^;re(load|hash) exempts" flag="a">
<![CDATA[
@eline=io('exempt.txt')->getlines;
chomp @eline;
]]>
</command>
<command cmd="^;remove (.*)$" flag="o">
<![CDATA[
$conn->sl("remove $event->{to}->[0] $1");
]]>
</command>
</commands>
|
