1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
# 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.
package Bugzilla::Extension::MyDashboard::WebService;
use strict;
use warnings;
use base qw(Bugzilla::WebService Bugzilla::WebService::Bug);
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Util qw(detaint_natural trick_taint template_var);
use Bugzilla::WebService::Util qw(validate);
use Bugzilla::Extension::MyDashboard::Queries qw(QUERY_DEFS query_bugs query_flags);
use constant READ_ONLY => qw(
run_bug_query
run_flag_query
);
sub run_bug_query {
my($self, $params) = @_;
my $dbh = Bugzilla->dbh;
my $user = Bugzilla->login(LOGIN_REQUIRED);
defined $params->{query}
|| ThrowCodeError('param_required',
{ function => 'MyDashboard.run_bug_query',
param => 'query' });
my $result;
foreach my $qdef (QUERY_DEFS) {
next if $qdef->{name} ne $params->{query};
my ($bugs, $query_string) = query_bugs($qdef);
# Add last changes to each bug
foreach my $b (@$bugs) {
my $last_changes = {};
my $activity = $self->history({ ids => [ $b->{bug_id} ],
new_since => $b->{changeddate} });
if (@{$activity->{bugs}[0]{history}}) {
my $change_set = $activity->{bugs}[0]{history}[0];
$last_changes->{activity} = $change_set->{changes};
foreach my $change (@{ $last_changes->{activity} }) {
$change->{field_desc}
= template_var('field_descs')->{$change->{field_name}} || $change->{field_name};
}
$last_changes->{email} = $change_set->{who};
$last_changes->{when} = $self->datetime_format_inbound($change_set->{when});
}
my $last_comment_id = $dbh->selectrow_array("
SELECT comment_id FROM longdescs
WHERE bug_id = ? AND bug_when >= ?",
undef, $b->{bug_id}, $b->{changeddate});
if ($last_comment_id) {
my $comments = $self->comments({ comment_ids => [ $last_comment_id ] });
my $comment = $comments->{comments}{$last_comment_id};
$last_changes->{comment} = $comment->{text};
$last_changes->{email} = $comment->{creator} if !$last_changes->{email};
$last_changes->{when}
= $self->datetime_format_inbound($comment->{creation_time}) if !$last_changes->{when};
}
$b->{last_changes} = $last_changes;
}
$query_string =~ s/^POSTDATA=&//;
$qdef->{bugs} = $bugs;
$qdef->{buffer} = $query_string;
$result = $qdef;
last;
}
return { result => $result };
}
sub run_flag_query {
my ($self, $params) =@_;
my $user = Bugzilla->login(LOGIN_REQUIRED);
my $type = $params->{type};
$type || ThrowCodeError('param_required',
{ function => 'MyDashboard.run_flag_query',
param => 'type' });
my $results = query_flags($type);
return { result => { $type => $results }};
}
1;
__END__
=head1 NAME
Bugzilla::Extension::MyDashboard::Webservice - The MyDashboard WebServices API
=head1 DESCRIPTION
This module contains API methods that are useful to user's of bugzilla.mozilla.org.
=head1 METHODS
See L<Bugzilla::WebService> for a description of how parameters are passed,
and what B<STABLE>, B<UNSTABLE>, and B<EXPERIMENTAL> mean.
|
