privmsg($event->{to}->[0], "$result results found.");
]]>
{channel}->{$chan}->{op};
if ($set eq "no") { $set = "when"; } else { $set = "no"; }
$::channels->{channel}->{$chan}->{op} = $set;
$conn->privmsg($event->{to}->[0], "Operator action for $chan set to \"$set\".");
]]>
{channel}->{$chan}->{msgs})) {
$::channels->{channel}->{$chan}->{msgs} = {};
}
unless (defined($::channels->{channel}->{$chan}->{msgs}->{$level})) {
$::channels->{channel}->{$chan}->{msgs}->{$level} = [];
}
my @tmphl = @{$::channels->{channel}->{$chan}->{msgs}->{$level}};
push(@tmphl, $nick);
$::channels->{channel}->{$chan}->{msgs}->{$level} = \@tmphl;
writeChannels();
$conn->privmsg($event->{to}->[0], "$nick added to $level risk messages for $chan");
]]>
{channel}->{$chan}->{msgs}->{$risk});
my @ppl = @{$::channels->{channel}->{$chan}->{msgs}->{$risk}};
@ppl = grep { lc $_ ne lc $nick } @ppl;
$::channels->{channel}->{$chan}->{msgs}->{$risk} = \@ppl;
}
writeChannels();
$conn->privmsg($event->{to}->[0], "no moar msgs for $nick");
]]>
{channel}->{$chan}->{hilights})) {
$::channels->{channel}->{$chan}->{hilights} = {};
}
unless (defined($::channels->{channel}->{$chan}->{hilights}->{$level})) {
$::channels->{channel}->{$chan}->{hilights}->{$level} = [];
}
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");
]]>
{channel}->{$chan}->{hilights}->{$risk});
my @ppl = @{$::channels->{channel}->{$chan}->{hilights}->{$risk}};
@ppl = grep { lc $_ ne lc $nick } @ppl;
$::channels->{channel}->{$chan}->{hilights}->{$risk} = \@ppl;
}
writeChannels();
$conn->privmsg($event->{to}->[0], "kthxbai $nick");
]]>
{channel}->{$chan})) {
$::channels->{channel}->{$chan} = { 'op' => 'no' };
writeChannels();
}
$conn->join($chan);
my @autojoins = @{$::settings->{autojoins}};
@autojoins = (@autojoins, $chan);
$::settings->{autojoins} = \@autojoins;
writeSettings();
]]>
part($chan);
my @autojoins = @{$::settings->{autojoins}};
@autojoins = grep { lc $_ ne lc $chan } @autojoins;
$::settings->{autojoins} = \@autojoins;
writeSettings();
]]>
sl($1);
]]>
quit($1);
]]>
privmsg($event->{to}->[0], 'config files were re-read');
]]>
privmsg($event->{to}->[0], $1);
]]>
me($event->{to}->[0], $1);
]]>
> io 'exempt.txt';
$conn->privmsg($event->{to}->[0], "$1 exempted");
]]>
{to}->[0], 'opalert', 'hilights'));
$conn->privmsg($_, "$hilite: $event->{nick} wants your attention ($1) ") foreach getAlert($event->{to}->[0], 'opalert', 'msgs');
]]>
getlines;
chomp @eline;
]]>