summaryrefslogtreecommitdiff
path: root/repo/bin/list
blob: d133f4d481c47693256b83b2a3e1888514a72213 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl

use strict;
use warnings;
use Dpkg::Version;

die "Syntax: $0 <pkg>" unless (@ARGV == 1);
my $want_pkg = $ARGV[0];

print "$want_pkg:\n";

$/ = ''; # slurp paragraphs

my @packages_files = sort (glob ("dists/*/*/*/Packages"), glob ("dists/*/*/*/Sources.gz"));

foreach my $packages (@packages_files) {
  my ($dists, $dist, $component, $arch) = split m!/!, $packages;
  $arch =~ s/^binary-//;

  if ($packages =~ /\.gz$/) {
    open P, '-|', 'gunzip', '-c', $packages or die "$packages: $!";
  } else {
    open P, $packages or die "$packages: $!";
  }
  while (<P>) {
    my ($pkg) = /^Package: (.+)/m or die "$packages: paragraph without Package: $_";
    my ($ver) = /^Version: (.+)/m or die "$packages: paragraph without Version: $_";

    next unless ($pkg eq $want_pkg);
    printf "%-20s %-4s %-7s %s\n",
      $dist, $component, $arch, $ver;
  }
  close P;
}