diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ASM/Commander.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/ASM/Commander.pm b/lib/ASM/Commander.pm index df73589..c63952d 100644 --- a/lib/ASM/Commander.pm +++ b/lib/ASM/Commander.pm @@ -119,7 +119,7 @@ my $cmdtbl = { 'cmd' => \&cmd_restrict }, q{(?x) ^ \s* # start of line, optional whitespace - \!ops # actual command + \!ops? # actual command (?: # optionally: \s+ # spaces (?<chan> \# \S+ ) # channel name @@ -459,7 +459,7 @@ sub cmd_help2 { sub cmd_db { my ($conn, $event) = @_; - $conn->privmsg($event->replyto, "db is at http://antispammeta.net/query.html"); + $conn->privmsg($event->replyto, "db is at $::settings->{web}->{querybase}query.html"); } sub sql_wildcard { @@ -495,7 +495,7 @@ sub cmd_investigate { my $nick = lc $+{nick}; unless (defined($::sn{$nick})) { $conn->privmsg($event->replyto, "I don't see $nick in my state tracking database, so I can't run any queries on their info, sorry :(" . - " You can try https://antispammeta.net/cgi-bin/secret/investigate.pl?nick=$nick instead!"); + " You can try $::settings->{web}->{cgisbase}investigate.pl?nick=$nick instead!"); return; } my $person = $::sn{$nick}; @@ -556,7 +556,7 @@ sub cmd_investigate { my $query_string = join '&', @queries; $conn->privmsg( $event->replyto, "I found $all_found. " . - ASM::Shortener->shorturl("https://antispammeta.net/cgi-bin/secret/investigate.pl?$query_string") ); + ASM::Shortener->shorturl("$::settings->{web}->{cgisbase}investigate.pl?$query_string") ); } sub cmd_investigate2 { @@ -979,7 +979,7 @@ sub cmd_ops { my $hilite=ASM::Util->commaAndify(ASM::Util->getAlert($tgt, 'opalert', 'hilights')); my $txtz = "[\x02$tgt\x02] - $event->{nick} wants op attention"; if ((time-$::sc{$tgt}{users}{$nick}{jointime}) > 90) { - $txtz .= " ($msg) $hilite !att-$tgt-opalert"; + $txtz .= " (" . (defined($msg) ? $msg : '') . ")" . ($hilite ? " $hilite" : '') . " !att-$tgt-opalert"; $::ignored{$tgt} = $::RISKS{'opalert'}; $conn->schedule(45, sub { delete($::ignored{$tgt}) if $::ignored{$tgt} == $::RISKS{'opalert'} }); } |