query($channel, $nuh[0], $nuh[2], $nuh[4]);
$conn->privmsg($event->{to}->[0], "$result results found.");
]]>
{person}->{$nick} = { 'host' => $host };
ASM::XML->writeUsers();
$conn->privmsg($event->{to}->[0], "Hiya $nick");
]]>
{person}->{$nick}->{flags}); } else {
$::users->{person}->{$nick}->{flags} = $flags;
}
ASM::XML->writeUsers();
$conn->privmsg($event->{to}->[0], "Flags for $nick set to $flags");
]]>
{person}->{$nick});
ASM::XML->writeUsers();
$conn->privmsg($event->{to}->[0], "Byebye $nick");
]]>
{person}->{$nick}->{flags})) {
$conn->privmsg($event->{to}->[0], "Flags for $nick: $::users->{person}->{$nick}->{flags}");
} else {
$conn->privmsg($event->{to}->[0], "$nick has no flags");
}
]]>
{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;
ASM::XML->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;
}
ASM::XML->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;
ASM::XML->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;
}
ASM::XML->writeChannels();
$conn->privmsg($event->{to}->[0], "kthxbai $nick");
]]>
{channel}->{$chan})) {
$::channels->{channel}->{$chan} = { 'op' => 'no' };
ASM::XML->writeChannels();
}
$conn->join($chan);
my @autojoins = @{$::settings->{autojoins}};
@autojoins = (@autojoins, $chan);
$::settings->{autojoins} = \@autojoins;
ASM::XML->writeSettings();
]]>
part($chan);
my @autojoins = @{$::settings->{autojoins}};
@autojoins = grep { lc $_ ne lc $chan } @autojoins;
$::settings->{autojoins} = \@autojoins;
ASM::XML->writeSettings();
]]>
sl($1);
]]>
quit($1);
]]>
readXML();
$conn->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], lc $1 . " exempted");
]]>
commaAndify(ASM::Util->getAlert($event->{to}->[0], 'opalert', 'hilights'));
$conn->privmsg($_, "$hilite: $event->{nick} wants your attention ($1) ") foreach ASM::Util->getAlert($event->{to}->[0], 'opalert', 'msgs');
]]>
getlines;
chomp @eline;
%::eline = ();
foreach my $item (@eline) {
$::eline{lc $item} = 1;
}
]]>
> io 'string_blacklist.txt';
$conn->privmsg($event->{to}->[0], "$str blacklisted");
]]>