From 3913ef5f5d5988f8e344921534b8f1db1c51da13 Mon Sep 17 00:00:00 2001 From: Sebastin Santy Date: Sat, 27 May 2017 10:49:11 +0530 Subject: Bug 1365340 - Add /new-bug (new_bug.cgi) (#82) --- new_bug.cgi | 50 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 new_bug.cgi (limited to 'new_bug.cgi') diff --git a/new_bug.cgi b/new_bug.cgi new file mode 100644 index 000000000..ec67980b9 --- /dev/null +++ b/new_bug.cgi @@ -0,0 +1,50 @@ +#!/usr/bin/perl -T +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# This Source Code Form is "Incompatible With Secondary Licenses", as +# defined by the Mozilla Public License, v. 2.0. +# +# Contributor(s): Sebastin Santy +# +############################################################################## +# +# new_bug.cgi +# ------------- +# Single page interface to file bugs +# +############################################################################## + +use 5.10.1; +use strict; +use warnings; + +use lib qw(. lib local/lib/perl5); + +use Bugzilla; +use Bugzilla::Constants; +use Bugzilla::Util; +use Bugzilla::Error; +use Bugzilla::Bug; +use Bugzilla::User; +use Bugzilla::Hook; +use Bugzilla::Product; +use Bugzilla::Classification; +use Bugzilla::Keyword; +use Bugzilla::Token; +use Bugzilla::Field; +use Bugzilla::Status; +use Bugzilla::UserAgent; + +my $user = Bugzilla->login(LOGIN_REQUIRED); + +my $cgi = Bugzilla->cgi; +my $template = Bugzilla->template; +my $vars = {}; + +print $cgi->header(); +$template->process("bug/new_bug.html.tmpl", + $vars) + or ThrowTemplateError($template->error()); + -- cgit v1.2.3-24-g4f1b