21 lines
467 B
Text
21 lines
467 B
Text
|
#! /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";
|
||
|
|
}
|