AzaezelLinux/abuild
Archived
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

apkbuild-cpan.in fix issues with update, recreate, etc

Browse Source
This commit is contained in:
Timothy Legge 2018-11-26 03:18:10 +00:00 committed by Natanael Copa
parent f98db143cb
commit 422199858c
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
apkbuild-cpan.in
View File

@ -110,7 +110,7 @@ sub read_apkbuild {
sub write_apkbuild { sub write_apkbuild {
my ($distdata, $authors, $moddata) = @_; my ($distdata, $authors, $moddata) = @_;
my $cpanid = $distdata->{releases}[0]->{id}; my $cpanid = $distdata->{id};
$cpanid = substr($cpanid, 0, 1) . "/" . substr($cpanid, 0, 2) . "/$cpanid"; $cpanid = substr($cpanid, 0, 1) . "/" . substr($cpanid, 0, 2) . "/$cpanid";
my %repl = ( my %repl = (
@ -323,7 +323,12 @@ sub get_data {
my $distdata = $json->decode($response->decoded_content); my $distdata = $json->decode($response->decoded_content);
$distdata->{error} and die "Error trying to locate $apkbuild->{_pkgreal}: $distdata->{error}\n"; $distdata->{error} and die "Error trying to locate $apkbuild->{_pkgreal}: $distdata->{error}\n";
return ($apkbuild, $distdata); $response = $ua->get("https://fastapi.metacpan.org/module/$distdata->{main_module}");
$response->is_success or die $response->status_line;
my $moddata = $json->decode($response->decoded_content);
$moddata->{error} and die "Error trying to locate $distdata->{main_module}: $moddata->{error}\n";
return ($apkbuild, $distdata, $moddata);
} }
my $abuild_conf = read_assignments_from_file("/etc/abuild.conf"); my $abuild_conf = read_assignments_from_file("/etc/abuild.conf");
@ -357,14 +362,14 @@ given ( $ARGV[0] ) {
do_depends; do_depends;
} }
when ("recreate") { when ("recreate") {
my ($apkbuild, $distdata) = get_data; my ($apkbuild, $distdata, $moddata) = get_data;
write_apkbuild($distdata, $apkbuild->{authors}); write_apkbuild($distdata, $apkbuild->{authors}, $moddata);
prepare_tree; prepare_tree;
update_functions; update_functions;
do_depends; do_depends;
} }
when ("upgrade") { when ("upgrade") {
my ($apkbuild, $distdata) = get_data; my ($apkbuild, $distdata, $moddata) = get_data;
my $pkgver = $distdata->{metadata}{version}; my $pkgver = $distdata->{metadata}{version};
if ($pkgver != $apkbuild->{pkgver}) { if ($pkgver != $apkbuild->{pkgver}) {
@ -385,8 +390,8 @@ given ( $ARGV[0] ) {
} }
} }
when ('check') { when ('check') {
my ($apkbuild, $distdata) = get_data; my ($apkbuild, $distdata, $moddata) = get_data;
my $pkgver = $distdata->{releases}[0]->{version}; my $pkgver = $distdata->{metadata}{version};
say "$apkbuild->{pkgname}: Latest version: $pkgver Packaged version: $apkbuild->{pkgver}"; say "$apkbuild->{pkgname}: Latest version: $pkgver Packaged version: $apkbuild->{pkgver}";
if ($pkgver ne $apkbuild->{pkgver}) { if ($pkgver ne $apkbuild->{pkgver}) {
exit(1); exit(1);