From c34003dcdd1cc0705c5464164f7d4dfd52d6d3d6 Mon Sep 17 00:00:00 2001
From: "dkl%redhat.com" <>
Date: Thu, 19 Jun 2008 23:06:27 +0000
Subject: Bug 157092 – Implement a checking mechanism for invalid regexp Patch by
 David Lawrence <dkl@redhat.com> - r/a=mkanat
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bugzilla/DB.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'Bugzilla/DB.pm')

diff --git a/Bugzilla/DB.pm b/Bugzilla/DB.pm
index 1617b7fc2..2eba30482 100644
--- a/Bugzilla/DB.pm
+++ b/Bugzilla/DB.pm
@@ -383,6 +383,15 @@ sub bz_last_key {
                                  $table, $column);
 }
 
+sub bz_check_regexp {
+    my ($self, $pattern) = @_;
+
+    eval { $self->do("SELECT " . $self->sql_regexp($self->quote("a"), $pattern, 1)) };
+
+    $@ && ThrowUserError('illegal_regexp', 
+        { value => $pattern, dberror => $self->errstr }); 
+}
+
 #####################################################################
 # Database Setup
 #####################################################################
-- 
cgit v1.2.3-24-g4f1b