REGRESSION (r243153): [iOS] TestWebKitAPI.FocusPreservationTests.ChangingFocusedNodeR...
[WebKit-https.git] / Websites / bugs.webkit.org / votes.cgi
1 #!/usr/bin/perl -T
2 # This Source Code Form is subject to the terms of the Mozilla Public
3 # License, v. 2.0. If a copy of the MPL was not distributed with this
4 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
5 #
6 # This Source Code Form is "Incompatible With Secondary Licenses", as
7 # defined by the Mozilla Public License, v. 2.0.
8
9 # This script remains as a backwards-compatibility URL for before
10 # the time that Voting was an extension.
11
12 use 5.10.1;
13 use strict;
14 use warnings;
15
16 use lib qw(. lib);
17
18 use Bugzilla;
19 use Bugzilla::Error;
20
21 my $is_enabled = grep { $_->NAME eq 'Voting' } @{ Bugzilla->extensions };
22 $is_enabled || ThrowUserError('extension_disabled', { name => 'Voting' });
23
24 my $cgi = Bugzilla->cgi;
25 my $action = $cgi->param('action') || 'show_user';
26
27 if ($action eq "show_bug") {
28     $cgi->delete('action');
29     $cgi->param('id', 'voting/bug.html');
30
31 elsif ($action eq "show_user" or $action eq 'vote') {
32     $cgi->delete('action') unless $action eq 'vote';
33     $cgi->param('id', 'voting/user.html');
34 }
35 else {
36     ThrowUserError('unknown_action', {action => $action});
37 }
38
39 print $cgi->redirect('page.cgi?' . $cgi->query_string);
40 exit;