From 4d9a13264e6ea5e6ba0fb6bcac93b7633814bed9 Mon Sep 17 00:00:00 2001
From: "mkanat%bugzilla.org" <>
Date: Mon, 23 Jun 2008 14:54:45 +0000
Subject: Bug 157092: Implement a checking mechanism for invalid regexp (Fix
 the Oracle driver) Patch By Xiaoou Wu <xiaoou.wu@oracle.com> r=mkanat,
 a=mkanat

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

(limited to 'Bugzilla')

diff --git a/Bugzilla/DB/Oracle.pm b/Bugzilla/DB/Oracle.pm
index 1387a45cb..19ebbb2c5 100644
--- a/Bugzilla/DB/Oracle.pm
+++ b/Bugzilla/DB/Oracle.pm
@@ -94,6 +94,16 @@ sub bz_last_key {
     return $last_insert_id;
 }
 
+sub bz_check_regexp {
+    my ($self, $pattern) = @_;
+
+    eval { $self->do("SELECT 1 FROM DUAL WHERE "
+          . $self->sql_regexp($self->quote("a"), $self->quote($pattern), 1)) };
+
+    $@ && ThrowUserError('illegal_regexp',
+        { value => $pattern, dberror => $self->errstr });
+}
+
 sub sql_regexp {
     my ($self, $expr, $pattern, $nocheck) = @_;
 
-- 
cgit v1.2.3-24-g4f1b