From e2c06a8eebee8b0b47e296feadfda41ba4948d3f Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Sat, 13 May 2017 01:25:18 -0400
Subject: [PATCH] Fix for prod

---
 plugins/pastebinadmin.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/plugins/pastebinadmin.pm b/plugins/pastebinadmin.pm
index 3382534..d35e746 100644
--- a/plugins/pastebinadmin.pm
+++ b/plugins/pastebinadmin.pm
@@ -109,7 +109,7 @@ sub command {
   } elsif ($command eq 'banuser') {
     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);
       return ("handled", $response);
     } else {
@@ -118,7 +118,7 @@ sub command {
   } elsif ($command eq 'banasn') {
     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);
       return ("handled", $response);
     } else {