version.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use URPM;
   6 use MDK::Common;
   7
   8 my %urpms;
   9 my $rootdir = "/mnt/BIG/dis";
  10
  11 foreach my $f (@ARGV) {
  12     my ($path, $fullname) = (dirname($f), basename($f));
  13
  14     my ($name, $evr) = $fullname =~ /^(.*)-([^\-]*-[^\-]*)$/ or die "bad argument $f\n";
  15
  16     my $urpm = $urpms{$path} ||= do {
  17         my $urpm = URPM->new;
  18         my $synthesis = "$rootdir/$path/media_info/synthesis.hdlist.cz";
  19         my ($start, $end) = $urpm->parse_synthesis($synthesis) or die "can't parse $synthesis\n";
  20         $urpm;
  21     };
  22
  23     my $status;
  24     if (my $pkg = srpm_by_name($urpm, $name)) {
  25         my $fullname = $pkg->fullname;
  26         my $score = $pkg->compare($evr);
  27         if ($score == 1) {
  28 #           $status = "obsolete (there is $fullname)";
  29             $status = "obsolete";
  30         } elsif ($score == 0) {
  31             $status = "available";
  32         } else {
  33 #           $status = "not yet (there is $fullname)";
  34             $status = "hdlists";
  35         }
  36     } else {
  37         $status = "missing";
  38     }
  39     print "$fullname $status\n";
  40 }
  41
  42
  43 sub srpm_by_name {
  44     my ($urpm, $name) = @_;
  45     $urpm->{srpm_names} ||= { map { $_->name => $_ } @{$urpm->{depslist}} };
  46
  47     $urpm->{srpm_names}{$name};
  48 }