Bug 1365340 - Add /new-bug (new_bug.cgi) (#82)

1 files changed, 50 insertions, 0 deletions

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 <sebastinssanty@gmail.com>
+#
+##############################################################################
+#
+# 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());          
+