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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
<commands>
<command cmd="^;query (\S+) (\S+)$">
<![CDATA[
my $channel = $1;
my @nuh = split(/(\!|\@)/, $2);
my $result = sql_query($channel, $nuh[0], $nuh[2], $nuh[4]);
$conn->privmsg($event->{to}->[0], "$result results found.");
]]>
</command>
<command cmd="^;hilight (\S+) (\S+) ?(\S*)$" flag="a">
<![CDATA[
my $chan = $1;
my $nick = $2;
my $level= $3;
if ($level eq '') { $level = 'low'; }
my @tmphl = @{$::channels->{channel}->{$chan}->{hilights}->{$level}};
push(@tmphl, $nick);
$::channels->{channel}->{$chan}->{hilights}->{$level} = \@tmphl;
writeChannels();
$conn->privmsg($event->{to}->[0], "$nick added to $level risk hilights for $chan");
]]>
</command>
<command cmd="^;dehilight (\S+) (\S+)" flag="a">
<![CDATA[
my $chan = $1;
my $nick = $2;
foreach my $risk ( keys %::RISKS ) {
my @ppl = @{$::channels->{channel}->{$chan}->{hilights}->{$risk}};
@ppl = grep { lc $_ ne lc $nick } @ppl;
$::channels->{channel}->{$chan}->{hilights}->{$level} = \@ppl;
}
writeUsers();
$conn->privmsg($event->{to}->[0], "kthxbai $nick");
]]>
</command>
<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>
</commands>
|
