# 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} ], 
                                            start_time => $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 $include_closed = $params->{include_closed} || 0;
    my $results = query_flags($type, $include_closed);

    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.