diff options
Diffstat (limited to 'pkgs/build-support/vm/rpm/rpm-list-to-nix.pl')
-rwxr-xr-x | pkgs/build-support/vm/rpm/rpm-list-to-nix.pl | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/pkgs/build-support/vm/rpm/rpm-list-to-nix.pl b/pkgs/build-support/vm/rpm/rpm-list-to-nix.pl deleted file mode 100755 index bd0e32ac97e..00000000000 --- a/pkgs/build-support/vm/rpm/rpm-list-to-nix.pl +++ /dev/null @@ -1,51 +0,0 @@ -#! /usr/bin/perl -w - -use strict; - -my $list = shift; -my $expr = shift; - -open LIST, "<$list"; -open NEW, ">$list.tmp"; -open EXPR, ">$expr"; - -print EXPR "{fetchurl}: [\n"; - -my $baseURL; - -while (<LIST>) { - - if (/^\s*baseURL\s+(\S+)\s*$/) { - $baseURL = $1; - print NEW "baseURL $baseURL\n"; - } - - elsif (/^\s*(\S+)(\s+([a-z0-9]+))?\s*$/) { - my $pkgName = $1; - my $url = "$baseURL/$pkgName"; - my $hash = $3; - if (!defined $hash) { - $hash = `nix-prefetch-url '$url'`; - die "fetch of `$url' failed" if ($? != 0); - chomp $hash; - } - print NEW "$pkgName $hash\n"; - if (length $hash == 32) { - print EXPR " (fetchurl {url=$url; md5=\"$hash\";})\n"; - } else { - print EXPR " (fetchurl {url=$url; sha256=\"$hash\";})\n"; - } - } - - else { - die "invalid line" - } -} - -print EXPR "]\n"; - -close LIST; -close NEW; -close EXPR; - -rename "$list\.tmp", "$list" or die "cannot rename"; |