From: Don Armstrong <don@volo>
Date: Sat, 15 Jul 2006 04:29:49 +0000 (-0700)
Subject:  * Add getverisons to Debbugs/Packages
X-Git-Tag: release/2.6.0~585^2^2~95
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b8caf66a0243399cfdef5e7232ad5e0f58bd7c43;p=debbugs.git

 * Add getverisons to Debbugs/Packages
---

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index 743e29b..8c22da6 100644
--- a/Debbugs/Packages.pm
+++ b/Debbugs/Packages.pm
@@ -2,11 +2,7 @@ package Debbugs::Packages;
 
 use strict;
 
-# TODO: move config handling to a separate module
-my $config_path = '/etc/debbugs';
-require "$config_path/config";
-# Allow other modules to load config into their namespace.
-delete $INC{"$config_path/config"};
+use Debbugs::Config qw(:config :globals);
 
 use Exporter ();
 use vars qw($VERSION @ISA @EXPORT);
@@ -16,7 +12,7 @@ BEGIN {
 
     @ISA = qw(Exporter);
     @EXPORT = qw(getpkgsrc getpkgcomponent getsrcpkgs
-		 binarytosource sourcetobinary);
+		 binarytosource sourcetobinary getversions);
 }
 
 use Fcntl qw(O_RDONLY);
@@ -188,6 +184,46 @@ sub sourcetobinary {
     return map [$_, $srcver], @srcpkgs;
 }
 
+=item getversions
+
+Returns versions of the package in distribution at a specific architecture
+
+=cut
+
+my %_versions;
+sub getversions {
+    my ($pkg, $dist, $arch) = @_;
+    return () unless defined $debbugs::gVersionIndex;
+    $dist = 'unstable' unless defined $dist;
+
+    unless (tied %_versions) {
+        tie %_versions, 'MLDBM', $debbugs::gVersionIndex, O_RDONLY
+            or die "can't open versions index: $!";
+    }
+
+    if (defined $arch and exists $_versions{$pkg}{$dist}{$arch}) {
+        my $ver = $_versions{$pkg}{$dist}{$arch};
+        return $ver if defined $ver;
+        return ();
+    } else {
+        my %uniq;
+        for my $ar (keys %{$_versions{$pkg}{$dist}}) {
+            $uniq{$_versions{$pkg}{$dist}{$ar}} = 1 unless $ar eq 'source';
+        }
+        if (%uniq) {
+            return keys %uniq;
+        } elsif (exists $_versions{$pkg}{$dist}{source}) {
+            # Maybe this is actually a source package with no corresponding
+            # binaries?
+            return $_versions{$pkg}{$dist}{source};
+        } else {
+            return ();
+        }
+    }
+}
+
+
+
 =back
 
 =cut