ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 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/. |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 5 | # |
ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 6 | # This Source Code Form is "Incompatible With Secondary Licenses", as |
| 7 | # defined by the Mozilla Public License, v. 2.0. |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 8 | |
ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 9 | use 5.10.1; |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 10 | use strict; |
ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 11 | use warnings; |
| 12 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 13 | use lib qw(. lib); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 14 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 15 | use Bugzilla; |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 16 | use Bugzilla::Constants; |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 17 | use Bugzilla::Util; |
| 18 | use Bugzilla::Error; |
| 19 | use Bugzilla::Keyword; |
| 20 | use Bugzilla::Token; |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 21 | |
| 22 | my $cgi = Bugzilla->cgi; |
| 23 | my $dbh = Bugzilla->dbh; |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 24 | my $template = Bugzilla->template; |
| 25 | my $vars = {}; |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 26 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 27 | my $user = Bugzilla->login(LOGIN_REQUIRED); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 28 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 29 | print $cgi->header(); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 30 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 31 | $user->in_group('editkeywords') |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 32 | || ThrowUserError("auth_failure", {group => "editkeywords", |
| 33 | action => "edit", |
| 34 | object => "keywords"}); |
| 35 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 36 | my $action = trim($cgi->param('action') || ''); |
| 37 | my $key_id = $cgi->param('id'); |
| 38 | my $token = $cgi->param('token'); |
| 39 | |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 40 | $vars->{'action'} = $action; |
| 41 | |
| 42 | |
| 43 | if ($action eq "") { |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 44 | $vars->{'keywords'} = Bugzilla::Keyword->get_all_with_bug_count(); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 45 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 46 | $template->process("admin/keywords/list.html.tmpl", $vars) |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 47 | || ThrowTemplateError($template->error()); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 48 | exit; |
| 49 | } |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 50 | |
| 51 | if ($action eq 'add') { |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 52 | $vars->{'token'} = issue_session_token('add_keyword'); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 53 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 54 | $template->process("admin/keywords/create.html.tmpl", $vars) |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 55 | || ThrowTemplateError($template->error()); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 56 | exit; |
| 57 | } |
| 58 | |
| 59 | # |
| 60 | # action='new' -> add keyword entered in the 'action=add' screen |
| 61 | # |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 62 | if ($action eq 'new') { |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 63 | check_token_data($token, 'add_keyword'); |
| 64 | my $name = $cgi->param('name') || ''; |
| 65 | my $desc = $cgi->param('description') || ''; |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 66 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 67 | my $keyword = Bugzilla::Keyword->create( |
| 68 | { name => $name, description => $desc }); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 69 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 70 | delete_token($token); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 71 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 72 | $vars->{'message'} = 'keyword_created'; |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 73 | $vars->{'name'} = $keyword->name; |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 74 | $vars->{'keywords'} = Bugzilla::Keyword->get_all_with_bug_count(); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 75 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 76 | $template->process("admin/keywords/list.html.tmpl", $vars) |
| 77 | || ThrowTemplateError($template->error()); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 78 | exit; |
| 79 | } |
| 80 | |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 81 | |
| 82 | # |
| 83 | # action='edit' -> present the edit keywords from |
| 84 | # |
| 85 | # (next action would be 'update') |
| 86 | # |
| 87 | |
| 88 | if ($action eq 'edit') { |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 89 | my $keyword = new Bugzilla::Keyword($key_id) |
ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 90 | || ThrowUserError('invalid_keyword_id', { id => $key_id }); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 91 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 92 | $vars->{'keyword'} = $keyword; |
| 93 | $vars->{'token'} = issue_session_token('edit_keyword'); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 94 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 95 | $template->process("admin/keywords/edit.html.tmpl", $vars) |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 96 | || ThrowTemplateError($template->error()); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 97 | exit; |
| 98 | } |
| 99 | |
| 100 | |
| 101 | # |
| 102 | # action='update' -> update the keyword |
| 103 | # |
| 104 | |
| 105 | if ($action eq 'update') { |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 106 | check_token_data($token, 'edit_keyword'); |
| 107 | my $keyword = new Bugzilla::Keyword($key_id) |
ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 108 | || ThrowUserError('invalid_keyword_id', { id => $key_id }); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 109 | |
ddkilzer@apple.com | 5777284 | 2014-10-16 16:00:58 +0000 | [diff] [blame] | 110 | $keyword->set_all({ |
| 111 | name => scalar $cgi->param('name'), |
| 112 | description => scalar $cgi->param('description'), |
| 113 | }); |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 114 | my $changes = $keyword->update(); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 115 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 116 | delete_token($token); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 117 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 118 | $vars->{'message'} = 'keyword_updated'; |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 119 | $vars->{'keyword'} = $keyword; |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 120 | $vars->{'changes'} = $changes; |
| 121 | $vars->{'keywords'} = Bugzilla::Keyword->get_all_with_bug_count(); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 122 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 123 | $template->process("admin/keywords/list.html.tmpl", $vars) |
| 124 | || ThrowTemplateError($template->error()); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 125 | exit; |
| 126 | } |
| 127 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 128 | if ($action eq 'del') { |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 129 | my $keyword = new Bugzilla::Keyword($key_id) |
ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 130 | || ThrowUserError('invalid_keyword_id', { id => $key_id }); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 131 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 132 | $vars->{'keyword'} = $keyword; |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 133 | $vars->{'token'} = issue_session_token('delete_keyword'); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 134 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 135 | $template->process("admin/keywords/confirm-delete.html.tmpl", $vars) |
| 136 | || ThrowTemplateError($template->error()); |
| 137 | exit; |
| 138 | } |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 139 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 140 | if ($action eq 'delete') { |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 141 | check_token_data($token, 'delete_keyword'); |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 142 | my $keyword = new Bugzilla::Keyword($key_id) |
ddkilzer@apple.com | 8040bb0 | 2017-03-21 16:27:49 +0000 | [diff] [blame] | 143 | || ThrowUserError('invalid_keyword_id', { id => $key_id }); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 144 | |
ddkilzer@apple.com | 5777284 | 2014-10-16 16:00:58 +0000 | [diff] [blame] | 145 | $keyword->remove_from_db(); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 146 | |
ddkilzer@apple.com | f3615fc | 2009-07-03 02:13:41 +0000 | [diff] [blame] | 147 | delete_token($token); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 148 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 149 | $vars->{'message'} = 'keyword_deleted'; |
ddkilzer@apple.com | 5777284 | 2014-10-16 16:00:58 +0000 | [diff] [blame] | 150 | $vars->{'keyword'} = $keyword; |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 151 | $vars->{'keywords'} = Bugzilla::Keyword->get_all_with_bug_count(); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 152 | |
ddkilzer@apple.com | 097da08 | 2009-07-03 02:14:25 +0000 | [diff] [blame] | 153 | $template->process("admin/keywords/list.html.tmpl", $vars) |
| 154 | || ThrowTemplateError($template->error()); |
timothy@apple.com | f42518d | 2008-02-06 20:19:16 +0000 | [diff] [blame] | 155 | exit; |
| 156 | } |
| 157 | |
ddkilzer@apple.com | 5777284 | 2014-10-16 16:00:58 +0000 | [diff] [blame] | 158 | ThrowUserError('unknown_action', {action => $action}); |