blob: bf370f8d789ef970a2bc4f1e0cdaa9054f68a6b3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! /usr/bin/perl -w
my $dir = shift @ARGV;
$dir || die "missing directory";
my $url = shift @ARGV;
$url || die "missing base url";
chdir $dir || die "cannot chdir to $dir";
foreach my $prebuilt (glob("*.tar.bz2")) {
$prebuilt =~ /-([a-z0-9]+)-([a-z0-9]+).tar.bz2$/
|| die "invalid file name: $prebuilt";
my $pkgHash = $1;
my $prebuiltHash = $2;
print "regprebuilt $pkgHash $prebuiltHash\n";
print "regurl $prebuiltHash $url/$prebuilt\n";
}
|
