1 # This module is part of debbugs, and is released
2 # under the terms of the GPL version 2, or any later version at your option.
3 # See the file README and COPYING for more information.
4 # Copyright 2007 by Don Armstrong <don@donarmstrong.com>.
26 use vars qw($DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
27 use base qw(Exporter SOAP::Server::Parameters);
30 $DEBUG = 0 unless defined $DEBUG;
36 Exporter::export_ok_tags();
37 $EXPORT_TAGS{all} = [@EXPORT_OK];
42 use Debbugs::Status qw(get_bug_status);
43 use Debbugs::Common qw(make_list);
44 use Storable qw(nstore retrieve);
48 our $CURRENT_VERSION = 1;
49 our %DEBBUGS_SOAP_COOKIES;
54 my %ut = get_usertag('don@donarmstrong.com','this-bug-sucks','eat-this-bug');
56 Returns a hashref of bugs which have the specified usertags for the
61 use Debbugs::User qw(read_usertags);
64 my $VERSION = __populate_version(pop);
65 my ($self,$email, @tags) = @_;
67 read_usertags(\%ut, $email);
69 @tags{@tags} = (1) x @tags;
71 for my $tag (keys %ut) {
72 delete $ut{$tag} unless exists $tags{$tag};
83 my @statuses = get_status(@bugs);
85 Returns an arrayref of hashrefs which output the status for specific
88 See L<Debbugs::Status::get_bug_status> for details.
93 my $VERSION = __populate_version(pop);
94 my ($self,@bugs) = @_;
95 @bugs = make_list(@bugs);
99 my $bug_status = get_bug_status(bug => $bug);
100 if (defined $bug_status and keys %{$bug_status} > 0) {
101 $status{$bug} = $bug_status;
104 # __prepare_response($self);
110 my @bugs = get_bugs(...);
112 See L<Debbugs::Bugs::get_bugs> for details.
116 use Debbugs::Bugs qw();
119 my $VERSION = __populate_version(pop);
120 my ($self,@params) = @_;
122 while (my ($key,$value) = splice @params,0,2) {
123 push @{$params{$key}}, $value;
126 @bugs = Debbugs::Bugs::get_bugs(%params);
131 =head1 VERSION COMPATIBILITY
133 The functionality provided by the SOAP interface will change over time.
135 To the greatest extent possible, we will attempt to provide backwards
136 compatibility with previous versions; however, in order to have
137 backwards compatibility, you need to specify the version with which
142 sub __populate_version{
144 return $request->{___debbugs_soap_version};