From 5f042e841a435995e62f0cc8e8c4e9bd9f2c9c15 Mon Sep 17 00:00:00 2001
From: "mkanat%kerio.com" <>
Date: Mon, 7 Mar 2005 21:55:33 +0000
Subject: Bug 283924: Move ValidateComment out of CGI.pl Patch By Max
 Kanat-Alexander <mkanat@kerio.com> r=LpSolit, a=justdave

---
 Bugzilla/Bug.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'Bugzilla')

diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index b2261e1ee..b9229d98e 100755
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/Bug.pm
@@ -44,6 +44,13 @@ use Bugzilla::User;
 use Bugzilla::Util;
 use Bugzilla::Error;
 
+use base qw(Exporter);
+@Bugzilla::Bug::EXPORT = qw(
+    ValidateComment
+);
+
+use constant MAX_COMMENT_LENGTH => 65535;
+
 sub fields {
     # Keep this ordering in sync with bugzilla.dtd
     my @fields = qw(bug_id alias creation_ts short_desc delta_ts
@@ -585,6 +592,14 @@ sub CountOpenDependencies {
     return @dependencies;
 }
 
+sub ValidateComment ($) {
+    my ($comment) = @_;
+
+    if (defined($comment) && length($comment) > MAX_COMMENT_LENGTH) {
+        ThrowUserError("comment_too_long");
+    }
+}
+
 sub AUTOLOAD {
   use vars qw($AUTOLOAD);
   my $attr = $AUTOLOAD;
-- 
cgit v1.2.3-24-g4f1b