From aa421a2d56c5bdfb467eddaba478e5aef04bbce4 Mon Sep 17 00:00:00 2001 From: William Heimbigner Date: Tue, 26 Apr 2011 17:42:42 +0000 Subject: Lots of added stuff. Don't know whatall. --- config-default/commands.xml | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) (limited to 'config-default/commands.xml') diff --git a/config-default/commands.xml b/config-default/commands.xml index 3dba162..52f9339 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -16,6 +16,7 @@ privmsg($event->{to}->[0], "help is at http://meta.wikimedia.org/wiki/User:WHeimbigner/AntiSpamMeta"); + $conn->privmsg($event->{to}->[0], "You can also get faster help by emailing william dot heimbigner at ttu dot edu - or bug ErrantEgo or tomaw"); ]]> @@ -274,12 +275,18 @@ {to}->[0]; - $tgt = $1 if (defined($1)); - my $msg = $1; - $msg = $2 if defined($2); - my $hilite=ASM::Util->commaAndify(ASM::Util->getAlert($tgt, 'opalert', 'hilights')); - $conn->privmsg($_, "[\x02$tgt\x02] - $event->{nick} wants op attention ($msg) $hilite") foreach ASM::Util->getAlert($tgt, 'opalert', 'msgs'); + if ($::sn{lc $event->{nick}}->{dnsbl} == 0) { + my $tgt = $event->{to}->[0]; + $tgt = $1 if (defined($1)); + my $msg = $1; + $msg = $2 if defined($2); + unless (defined($::ignored{$tgt}) && ($::ignored{$tgt} >= $::RISKS{'opalert'})) { + $::ignored{$tgt} = $::RISKS{'opalert'}; + $conn->schedule(30, sub { delete($::ignored{$tgt})}); + my $hilite=ASM::Util->commaAndify(ASM::Util->getAlert($tgt, 'opalert', 'hilights')); + $conn->privmsg($_, "[\x02$tgt\x02] - $event->{nick} wants op attention ($msg) $hilite") foreach ASM::Util->getAlert($tgt, 'opalert', 'msgs'); + } + } ]]> -- cgit v1.2.3