diff options
| -rw-r--r-- | Bugzilla/Quantum.pm | 4 | ||||
| -rw-r--r-- | extensions/BMO/lib/Reports/ReleaseTracking.pm | 10 | ||||
| -rwxr-xr-x | testagent.cgi | 26 |
3 files changed, 4 insertions, 36 deletions
diff --git a/Bugzilla/Quantum.pm b/Bugzilla/Quantum.pm index d2352f6d8..8af06c477 100644 --- a/Bugzilla/Quantum.pm +++ b/Bugzilla/Quantum.pm @@ -63,6 +63,10 @@ sub startup { $r->any('/')->to('CGI#index_cgi'); $r->any('/bug/<id:num>')->to('CGI#show_bug_cgi'); $r->any('/<id:num>')->to('CGI#show_bug_cgi'); + $r->get('/testagent.cgi' => sub { + my $c = shift; + $c->render(text => "OK Mojolicious"); + }); $r->any('/rest')->to('CGI#rest_cgi'); $r->any('/rest.cgi/*PATH_INFO')->to( 'CGI#rest_cgi' => { PATH_INFO => '' } ); diff --git a/extensions/BMO/lib/Reports/ReleaseTracking.pm b/extensions/BMO/lib/Reports/ReleaseTracking.pm index 42ef24b47..9fba1e14b 100644 --- a/extensions/BMO/lib/Reports/ReleaseTracking.pm +++ b/extensions/BMO/lib/Reports/ReleaseTracking.pm @@ -421,16 +421,6 @@ sub report { $query .= join("\nAND ", @where); - if ($input->{debug}) { - print "Content-Type: text/plain\n\n"; - $query =~ s/\?/\000/g; - foreach my $param (@params) { - $query =~ s/\000/'$param'/; - } - print "$query\n"; - exit; - } - my $bugs = $dbh->selectcol_arrayref($query, undef, @params); push @$bugs, 0 unless @$bugs; diff --git a/testagent.cgi b/testagent.cgi deleted file mode 100755 index a1c200e10..000000000 --- a/testagent.cgi +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl -T -# -*- Mode: perl; indent-tabs-mode: nil -*- -# -# The contents of this file are subject to the Mozilla Public -# License Version 1.1 (the "License"); you may not use this file -# except in compliance with the License. You may obtain a copy of -# the License at http://www.mozilla.org/MPL/ -# -# Software distributed under the License is distributed on an "AS -# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or -# implied. See the License for the specific language governing -# rights and limitations under the License. -# -# Contributor(s): Joel Peshkin <bugreport@peshkin.net> - -# This script is used by servertest.pl to confirm that cgi scripts -# are being run instead of shown. This script does not rely on database access -# or correct params. - -use 5.10.1; -use strict; -use warnings; -print "content-type:text/plain\n\n"; -print "OK " . ($::ENV{MOD_PERL} || "mod_cgi") . "\n"; -exit; - |