diff options
| -rwxr-xr-x | long_list.cgi | 36 | ||||
| -rwxr-xr-x | showattachment.cgi | 40 | ||||
| -rwxr-xr-x | xml.cgi | 41 |
3 files changed, 117 insertions, 0 deletions
diff --git a/long_list.cgi b/long_list.cgi new file mode 100755 index 000000000..58bd255a3 --- /dev/null +++ b/long_list.cgi @@ -0,0 +1,36 @@ +#!/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): 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 $buglist = $cgi->param('buglist') || $cgi->param('bug_id') || $cgi->param('id') || ''; +my @ids = split (/[\s,]+/, $buglist); + +my $ids = join('', map { $_ = "&id=" . $_ } @ids); + +print $cgi->redirect("show_bug.cgi?format=multiple$ids"); diff --git a/showattachment.cgi b/showattachment.cgi new file mode 100755 index 000000000..e90a01533 --- /dev/null +++ b/showattachment.cgi @@ -0,0 +1,40 @@ +#!/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): Terry Weissman <terry@mozilla.org> +# Jacob Steenhagen <jake@bugzilla.org> + +use strict; + +use lib qw(. lib); + +use Bugzilla; +use Bugzilla::Util; + +my $cgi = Bugzilla->cgi; + +my $id = $cgi->param('attach_id'); +detaint_natural($id) if defined $id; +$id ||= ""; + +print $cgi->redirect(-location=>"attachment.cgi?id=$id", + -status=>'301 Permanent Redirect'); + +exit; diff --git a/xml.cgi b/xml.cgi new file mode 100755 index 000000000..ce6a7c39b --- /dev/null +++ b/xml.cgi @@ -0,0 +1,41 @@ +#!/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"); |