Debbugs::SOAP uses encode_utf8_structure from Debbugs::Common

[debbugs.git] / Debbugs / SOAP.pm

diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm
index 32e874e0b366626982412b5e6609add1a67c67e1..5cb08bb0f11eff7de6ab49dea880731a13dcb8b3 100644 (file)
--- a/Debbugs/SOAP.pm
+++ b/Debbugs/SOAP.pm
@@ -24,6 +24,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
 use warnings;
 use strict;
 use vars qw($DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);

+use Debbugs::SOAP::Server;

 use base qw(Exporter SOAP::Server::Parameters);
 
 BEGIN{
 use base qw(Exporter SOAP::Server::Parameters);
 
 BEGIN{


@@ -38,16 +39,16 @@ BEGIN{
 
 }
 
 
 }
 

-

 use IO::File;
 use Debbugs::Status qw(get_bug_status);
 use IO::File;
 use Debbugs::Status qw(get_bug_status);

-use Debbugs::Common qw(make_list getbuglocation getbugcomponent);
+use Debbugs::Common qw(make_list getbuglocation getbugcomponent :utf8);

 use Debbugs::Packages;
 use Debbugs::Packages;

-use Storable qw(nstore retrieve);
+
+use Storable qw(nstore retrieve dclone);

 use Scalar::Util qw(looks_like_number);
 
 
 use Scalar::Util qw(looks_like_number);
 
 

-our $CURRENT_VERSION = 1;
+our $CURRENT_VERSION = 2;

 
 =head2 get_usertag
 
 
 =head2 get_usertag
 


@@ -75,7 +76,7 @@ sub get_usertag {
               delete $ut{$tag} unless exists $tags{$tag};
          }
      }
               delete $ut{$tag} unless exists $tags{$tag};
          }
      }

-     return \%ut;
+     return encode_utf8_structure(\%ut);

 }
 
 
 }
 
 


@@ -142,7 +143,7 @@ sub get_status {
          }
      }
 #     __prepare_response($self);
          }
      }
 #     __prepare_response($self);

-     return \%status;
+     return encode_utf8_structure(\%status);

 }
 
 =head2 get_bugs
 }
 
 =head2 get_bugs


@@ -172,7 +173,7 @@ sub get_bugs{
      my %params = __collapse_params(@params);
      my @bugs;
      @bugs = Debbugs::Bugs::get_bugs(%params);
      my %params = __collapse_params(@params);
      my @bugs;
      @bugs = Debbugs::Bugs::get_bugs(%params);

-     return \@bugs;
+     return encode_utf8_structure(\@bugs);

 }
 
 =head2 newest_bugs
 }
 
 =head2 newest_bugs


@@ -188,7 +189,7 @@ sub newest_bugs{
      my $VERSION = __populate_version(pop);
      my ($self,$num) = @_;
      my $newest_bug = Debbugs::Bugs::newest_bug();
      my $VERSION = __populate_version(pop);
      my ($self,$num) = @_;
      my $newest_bug = Debbugs::Bugs::newest_bug();

-     return [($newest_bug - $num + 1) .. $newest_bug];
+     return encode_utf8_structure([($newest_bug - $num + 1) .. $newest_bug]);

 
 }
 
 
 }
 


@@ -249,7 +250,7 @@ sub get_bug_log{
                          msg_num => $current_msg,
                         };
      }
                          msg_num => $current_msg,
                         };
      }

-     return \@messages;
+     return encode_utf8_structure(\@messages);

 }
 
 =head2 binary_to_source
 }
 
 =head2 binary_to_source


@@ -262,7 +263,12 @@ architecture. If undef is passed as the architecture, returns a list
 of references to all possible pairs of source package names and
 versions for all architectures, with any duplicates removed.
 
 of references to all possible pairs of source package names and
 versions for all architectures, with any duplicates removed.
 

-(This function corresponds to L<Debbugs::Packages::binarytosource>)
+As of comaptibility version 2, this has changed to use the more
+powerful binary_to_source routine, which allows returning source only,
+concatenated scalars, and other useful features.
+
+See the documentation of L<Debbugs::Packages::binary_to_source> for
+details.

 
 =cut
 
 
 =cut
 


@@ -270,7 +276,15 @@ sub binary_to_source{
      my $VERSION = __populate_version(pop);
      my ($self,@params) = @_;
 
      my $VERSION = __populate_version(pop);
      my ($self,@params) = @_;
 

-     return [Debbugs::Packages::binarytosource(@params)];
+     if ($VERSION <= 1) {
+        return encode_utf8_structure([Debbugs::Packages::binary_to_source(binary => $params[0],
+                                                    (@params > 1)?(version => $params[1]):(),
+                                                    (@params > 2)?(arch    => $params[2]):(),
+                                                   )]);
+     }
+     else {
+        return encode_utf8_structure([Debbugs::Packages::binary_to_source(@params)]);
+     }

 }
 
 =head2 source_to_binary
 }
 
 =head2 source_to_binary


@@ -291,7 +305,7 @@ sub source_to_binary {
      my $VERSION = __populate_version(pop);
      my ($self,@params) = @_;
 
      my $VERSION = __populate_version(pop);
      my ($self,@params) = @_;
 

-     return [Debbugs::Packages::sourcetobinary(@params)];
+     return encode_utf8_structure([Debbugs::Packages::sourcetobinary(@params)]);

 }
 
 =head2 get_versions
 }
 
 =head2 get_versions


@@ -336,7 +350,7 @@ sub get_versions{
      my $VERSION = __populate_version(pop);
      my ($self,@params) = @_;
 
      my $VERSION = __populate_version(pop);
      my ($self,@params) = @_;
 

-     return scalar Debbugs::Packages::get_versions(@params);
+     return encode_utf8_structure(scalar Debbugs::Packages::get_versions(@params));

 }
 
 =head1 VERSION COMPATIBILITY
 }
 
 =head1 VERSION COMPATIBILITY