Support 7 digit bugs in bugspam.cgi

[debbugs.git] / examples / debian / misc / bugspam.cgi

diff --git a/examples/debian/misc/bugspam.cgi b/examples/debian/misc/bugspam.cgi
index 46bc17f68e0a5e969162c123bb797dc28270b51a..7830aeeeee7ea95c9c7ac21b6cdbb8635a02027d 100755 (executable)
--- 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) {