Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Various small tweaks.

  • Loading branch information...
commit c08084f37169938e5013f8c5617c666da2c8fb99 1 parent 62b0d72
@davorg authored
Showing with 10 additions and 0 deletions.
  1. +10 −0 fedora_rpms
View
10 fedora_rpms
@@ -14,10 +14,16 @@ my @repos = qw(fedora updates magnum rpmfusion-free rpmfusion-nonfree
rpmfusion-free-updates rpmfusion-nonfree-updates livna);
my @cols = qw(name version vendor repo);
+if (@ARGV) {
+ @repos = @ARGV;
+}
+
open my $csv, '>', 'fedora_perl.csv' or die $!;
my $rpm;
+my %xlate = (' http://dag.wieers.com/apt/' => 'rpmforge');
+
foreach my $r (@repos) {
my $exec = $cmd;
$exec =~ s/REPO/$r/;
@@ -27,6 +33,10 @@ foreach my $r (@repos) {
my %rec;
@rec{@cols} = split /,/;
+ if (exists $xlate{$rec{repo}}) {
+ $rec{repo} = $xlate{$rec{repo}};
+ }
+
$rpm->{$rec{name}}{$rec{repo}} = $rec{version};
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.