oneechanhax/abuild
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

apkbuild-cpan: Added 'check' command, which prints latest & packaged versions.

Browse Source
This commit is contained in:
Kiyoshi Aman 2011-06-28 10:51:07 -04:00
parent 014544bc68
commit b17e7c1d02
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
apkbuild-cpan.in
View File

@ -268,6 +268,16 @@ sub do_depends {
close $fh; close $fh;
} }
sub get_data {
my $apkbuild = read_apkbuild;
my $response = $ua->get("http://search.cpan.org/api/dist/$apkbuild->{_pkgreal}");
$response->is_success or die $response->status_line;
my $distdata = $json->decode($response->decoded_content);
$distdata->{error} and die "Error trying to locate $apkbuild->{_pkgreal}: $distdata->{error}\n";
return ($apkbuild, $distdata);
}
my $abuild_conf = read_assignments_from_file("/etc/abuild.conf"); my $abuild_conf = read_assignments_from_file("/etc/abuild.conf");
$packager = $abuild_conf->{PACKAGER} if $abuild_conf->{PACKAGER}; $packager = $abuild_conf->{PACKAGER} if $abuild_conf->{PACKAGER};
@ -296,23 +306,14 @@ given ( $ARGV[0] ) {
do_depends; do_depends;
} }
when ("recreate") { when ("recreate") {
my $apkbuild = read_apkbuild; my ($apkbuild, $distdata) = get_data;
my $response = $ua->get("http://search.cpan.org/api/dist/$apkbuild->{_pkgreal}");
$response->is_success or die $response->status_line;
my $distdata = $json->decode($response->decoded_content);
$distdata->{error} and die "Error trying to locate $apkbuild->{_pkgreal}: $distdata->{error}\n";
write_apkbuild($distdata); write_apkbuild($distdata);
prepare_tree; prepare_tree;
update_functions; update_functions;
do_depends; do_depends;
} }
when ("upgrade") { when ("upgrade") {
my $apkbuild = read_apkbuild; my ($apkbuild, $distdata) = get_data;
my $response = $ua->get("http://search.cpan.org/api/dist/$apkbuild->{_pkgreal}");
$response->is_success or die $response->status_line;
my $distdata = $json->decode($response->decoded_content);
$distdata->{error} and die "Error trying to locate $apkbuild->{_pkgreal}: $distdata->{error}\n";
my $pkgver = $distdata->{releases}[0]->{version}; my $pkgver = $distdata->{releases}[0]->{version};
if ($pkgver != $apkbuild->{pkgver}) { if ($pkgver != $apkbuild->{pkgver}) {
@ -332,12 +333,17 @@ given ( $ARGV[0] ) {
say "Up-to-data with CPAN"; say "Up-to-data with CPAN";
} }
} }
when ('check') {
my ($apkbuild, $distdata) = get_data;
my $pkgver = $distdata->{releases}[0]->{version};
say "Latest version: $pkgver Packaged version: $apkbuild->{pkgver}";
}
when ("update") { when ("update") {
prepare_tree; prepare_tree;
do_depends; do_depends;
} }
default { default {
say "Usage: apkbuild-cpan [create <Module::Name> | recreate | upgrade | update]"; say "Usage: apkbuild-cpan [create <Module::Name> | check | recreate | update | upgrade]";
exit; exit;
} }
} }