Commit 491ded26 authored by Ben Cooksley's avatar Ben Cooksley
Browse files

Add compatibility redirectors for Help > Report Bug and Bugbot

parent 70cf3cba
use warnings;
use lib qw(.);
use Bugzilla;
my $cgi = Bugzilla->cgi;
my $package = $cgi->param('package');
$package =~ s,/,\|,;
my $additional_info;
if ($cgi->param('os')) {
$additional_info .= "OS: " . $cgi->param('os') if $cgi->param('os');
$additional_info .= "\n" if $cgi->param('compiler');
}
if ($cgi->param('compiler')) {
$additional_info .= "Compiler: " . $cgi->param('compiler');
}
my $product;
my $component;
if ($cgi->param('package') =~ m,^(.*)\|(.*)$,) {
$product = $1;
$component = $2;
} else {
$product = $cgi->param('package');
}
my $newReportPage = $cgi->url(-base => 1);
$newReportPage .= "/enter_bug.cgi?format=guided";
$newReportPage .= "&product=";
$newReportPage .= $cgi->escape($product);
$newReportPage .= "&component=" . $cgi->escape($component) if ($component);
$newReportPage .= "&additional_info=" . $cgi->escape($additional_info) if ($additional_info);
$newReportPage .= "&version=" . $cgi->param('appVersion') if ($cgi->param('appVersion'));
print STDERR "new url for bug reporting is $newReportPage\n";
print STDERR "Redirecting now\n";
print $cgi->redirect($newReportPage);
return 0;
#!/usr/bin/perl -wT
# -*- 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.
#
# The Original Code is the Bugzilla Bug Tracking System.
#
# The Initial Developer of the Original Code is Netscape Communications
# Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s): Dawn Endico <endico@mozilla.org>
# Terry Weissman <terry@mozilla.org>
# Gervase Markham <gerv@gerv.net>
use strict;
use lib qw(. lib);
use Bugzilla;
my $cgi = Bugzilla->cgi;
# Convert comma/space separated elements into separate params
my @ids = ();
if (defined $cgi->param('id')) {
@ids = split (/[, ]+/, $cgi->param('id'));
}
my $ids = join('', map { $_ = "&id=" . $_ } @ids);
print $cgi->redirect("show_bug.cgi?ctype=xml$ids");
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment