From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 12 Jan 2022 05:14:10 +0000 (-0800)
Subject: Support 7 digit bugs in bugspam.cgi
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=b10a87938eb116b8871081643058052564e39603

Support 7 digit bugs in bugspam.cgi
---

diff --git a/examples/debian/misc/bugspam.cgi b/examples/debian/misc/bugspam.cgi
index 46bc17f..7830aee 100755
--- a/examples/debian/misc/bugspam.cgi
+++ b/examples/debian/misc/bugspam.cgi
@@ -16,7 +16,7 @@ sub quitcgi($;$) {
 }
 
 my $bug = param('bug') or quitcgi('No bug specfied', '400 Bad Request');
-quitcgi('No valid bug number', '400 Bad Request') unless $bug =~ /^\d{3,6}$/;
+quitcgi('No valid bug number', '400 Bad Request') unless $bug =~ /^\d{3,7}$/;
 my $remote_host = remote_host or quitcgi("No remote host");
 my $ok = param('ok');
 if (not defined $ok) {