privmsg($event->{to}->[0], "$result results found."); ]]> {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}}; @ppl = grep { lc $_ ne lc $nick } @ppl; $::channels->{channel}->{$chan}->{hilights}->{$level} = \@ppl; } writeUsers(); $conn->privmsg($event->{to}->[0], "kthxbai $nick"); ]]> join($1); ]]> part($1); ]]> 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; ]]>