#!/usr/bin/perl -w

use strict;
use warnings;
#use Carp;
use Source::Repository::RPM::NoEpoch;
#our $verbose=0;

die "usage: $0 url1 ... urlN\n" unless @ARGV;

my $repo=Source::Repository::RPM::NoEpoch->create_repo_chain_from_cli(-path=>\@ARGV);

foreach my $name (@{$repo->all_names_ref()}) {
    my $pkg=$repo->name2pkg($name);
    print $name, "\t", $pkg->version(), "\t", $pkg->url(),"\n";
}

1;
