Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 02:25:40 -04:00
Code Issues Releases Wiki Activity

Fix for prod

Browse source
This commit is contained in:
Ryan Voots 2017-05-13 01:25:18 -04:00
parent 75555141ee
commit e2c06a8eeb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/pastebinadmin.pm
View file

@ -109,7 +109,7 @@ sub command {
} elsif ($command eq 'banuser') { } elsif ($command eq 'banuser') {
my $paste = $args[0]; my $paste = $args[0];
if (my ($id) = ($paste =~ m{^(?:(?:https?://(?:[a-z\.]+)perlbot.pl/p(?:astebin)?/([^/]{6,})/?)|([^/]+))$}g)) { if (my ($id) = ($paste =~ m{^(?:(?:https?://(?:[a-z\.]+)?perlbot.pl/p(?:astebin)?/([^/]{6,})/?)|([^/]+))$}g)) {
my $response = $self->ban_user_paste($env, $id, $who, $where); my $response = $self->ban_user_paste($env, $id, $who, $where);
return ("handled", $response); return ("handled", $response);
} else { } else {
@ -118,7 +118,7 @@ sub command {
} elsif ($command eq 'banasn') { } elsif ($command eq 'banasn') {
my $paste = $args[0]; my $paste = $args[0];
if (my ($id) = ($paste =~ m{^(?:(?:https?://(?:[a-z\.]+)perlbot.pl/p(?:astebin)?/([^/]{6,})/?)|([^/]+))$}g)) { if (my ($id) = ($paste =~ m{^(?:(?:https?://(?:[a-z\.]+)?perlbot.pl/p(?:astebin)?/([^/]{6,})/?)|([^/]+))$}g)) {
my $response = $self->ban_asn_paste($env, $id, $who, $where); my $response = $self->ban_asn_paste($env, $id, $who, $where);
return ("handled", $response); return ("handled", $response);
} else { } else {