merge changes from dla source tree

[debbugs.git] / Debbugs / SOAP.pm

diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm
index 2d8306c0b30251e4d1dfd6e0d141b05ad04c7527..ebb96668b894bb770e6e2e1357dafe22e16c7190 100644 (file)
--- a/Debbugs/SOAP.pm
+++ b/Debbugs/SOAP.pm
@@ -109,6 +109,8 @@ sub get_status {
 
      my @bugs = get_bugs(...);
 
+Returns a list of bugs.
+
 See L<Debbugs::Bugs::get_bugs> for details.
 
 =cut
@@ -128,7 +130,7 @@ sub get_bugs{
      # back out
      for my $key (keys %params) {
          if (@{$params{$key}} == 1) {
-              ($params{$key}) = @{$params{key}}
+              ($params{$key}) = @{$params{$key}}
          }
      }
      my @bugs;
@@ -136,6 +138,22 @@ sub get_bugs{
      return \@bugs;
 }
 
+=head2 newest_bugs
+
+     my @bugs = newest_bugs(5);
+
+Returns a list of the newest bugs. [Note that all bugs are *not*
+guaranteed to exist, but they should in the most common cases.]
+
+=cut
+
+sub newest_bugs{
+     my $VERSION = __populate_version(pop);
+     my ($self,$num) = @_;
+     my $newest_bug = Debbugs::bugs::newest_bug();
+     return [($newest_bug - $num + 1) .. $newest_bug];
+
+}
 
 =head2 get_bug_log
 
@@ -182,9 +200,7 @@ sub get_bug_log{
      my @messages;
      while (my $record = $log->read_record()) {
          $current_msg++;
-         print STDERR "message $current_msg\n";
          #next if defined $msg_num and ($current_msg ne $msg_num);
-         print STDERR "still message $current_msg\n";
          next unless $record->{type} eq 'incoming-recv';
          my ($msg_id) = $record->{text} =~ /^Message-Id:\s+<(.+)>/im;
          next if defined $msg_id and exists $seen_msg_ids{$msg_id};
@@ -192,10 +208,8 @@ sub get_bug_log{
          next if defined $msg_id and $msg_id =~ /handler\..+\.ack(?:info)?\@/;
          my $message = parse($record->{text});
          my ($header,$body) = map {join("\n",make_list($_))}
-              values %{$message};
-         print STDERR "still still message $current_msg\n";
-         push @messages,{html => $record->{html},
-                         header => $header,
+              @{$message}{qw(header body)};
+         push @messages,{header => $header,
                          body   => $body,
                          attachments => [],
                          msg_num => $current_msg,