abuild/apkbuild-cpan.in

862 lines
24 KiB
Plaintext
Raw Normal View History

#!/usr/bin/perl
# apk add perl-libwww perl-json
use strict;
use warnings;
use 5.016;
use LWP::UserAgent;
use LWP::ConnCache;
use CPAN::Meta;
use Module::CoreList;
use JSON;
use Text::Wrap qw(wrap $columns);
use List::Util qw (uniq);
use File::Basename qw(basename dirname);
use URI;
my $license_mappings = {
"perl_5" => "GPL-1.0-or-later OR Artistic-1.0-Perl",
"artistic_2" => "Artistic-2.0",
"gpl_2" => "GPL-2.0-only",
"gpl_3" => "GPL-3.0-only",
"mit" => "MIT",
"apache_2_0" => "Apache-2.0",
};
my $package_mappings = {
"LWP" => "perl-libwww",
"libwww-perl" => "perl-libwww",
"TermReadKey" => "perl-term-readkey",
"perl-ldap" => "perl-ldap",
"PerlIO-gzip" => "perl-io-gzip",
"ControlX10-CM11" => "perl-control-x10",
"File-RsyncP" => "perl-file-rsync",
"Perl-Critic" => "perl-critic",
"Perl-Tidy" => "perl-tidy",
"ack" => "ack",
"Mail-SpamAssassin" => "spamassassin",
};
our $packager = "";
my $template = <<'EOF';
# Automatically generated by apkbuild-cpan, template 4
[% authors %]
pkgname=[% pkgname %]
pkgver=[% pkgver %]
pkgrel=[% pkgrel %]
#_pkgreal is used by apkbuild-cpan to find modules at MetaCpan
_pkgreal=[% pkgreal %]
pkgdesc="Perl module for [% pkgreal %]"
provides="[% provides %]"
replaces="[% replaces %]"
2018-11-25 01:51:08 +00:00
url="https://metacpan.org/release/[% pkgreal %]/"
arch="noarch"
options="[% options %]"[% options_comment %]
2020-02-27 15:58:41 +00:00
license="GPL-1.0-or-later OR Artistic-1.0-Perl"
depends="perl"
makedepends=""
checkdepends=""
subpackages="$pkgname-doc"
source="[% source %]"
builddir="[% builddir %]"
build() {
:
}
check() {
:
}
package() {
:
}
EOF
our $ua = LWP::UserAgent->new();
our $json = JSON->new;
$ua->env_proxy;
$ua->conn_cache( LWP::ConnCache->new() );
sub read_file {
my ($filename) = @_;
local $/;
open my $fh, "<", $filename or die "could not open $filename: $!";
return <$fh>;
}
sub read_assignments_from_file {
my ($filename) = @_;
return () if ( !-e $filename );
my $text = read_file($filename);
my %sline = $text =~ /^(\w+)\s*=\s*([^\"\n]*)$/mg;
my %mline = $text =~ /^(\w+)\s*=\s*\"([^\"]*)\"$/mg;
my %hash = ( %sline, %mline );
return \%hash if $filename ne 'APKBUILD';
my $authors = join( "\n",
$text =~ /^# Contributor: .*$/mg,
$text =~ /^# Maintainer: .*$/mg );
$hash{'authors'} = $authors if length($authors) > 1;
my $options = $text =~ m/^options=\"(.*)\"(.*)$/mg;
$hash{'options'} = "$1" if length($options) >= 1;
$hash{'options_comment'} = "$2" if length($options) >= 1;
return \%hash;
}
sub map_cpan_to_apk {
my ($cpan_distrib) = @_;
return $package_mappings->{$cpan_distrib}
if exists $package_mappings->{$cpan_distrib};
# most packages are named according to the
# distribution name
return 'perl-' . lc $cpan_distrib;
}
sub read_apkbuild {
return read_assignments_from_file("APKBUILD");
}
sub format_line {
my $line = shift;
return "\t" . $line . "\n";
}
sub format_source {
my $srcurl = shift;
my $orig_src = shift;
$orig_src =~ s/^\n//mg;
my @sources = split (/\n/m, $orig_src);
return $srcurl if scalar @sources le 1;
my $source = format_line($srcurl);
shift @sources;
my $patches = undef;
for my $patch (@sources) {
$patch =~ s/\t//g;
next if $patch eq "";
$patches .= format_line($patch);
}
return "\n" . $source . (defined $patches ? $patches : '') . "\t";
}
sub write_apkbuild {
my ( $distdata, $apkbuild, $moddata ) = @_;
my $authors = undef;
my $replaces = undef;
my $provides = undef;
my $pkgrel = 0;
my $options = undef;
my $options_comment = undef;
my $orig_source = undef;
if ( defined $apkbuild ) {
$authors = $apkbuild->{authors};
$provides = $apkbuild->{provides};
$replaces = $apkbuild->{replaces};
$pkgrel = $apkbuild->{pkgrel};
$options = $apkbuild->{options} if defined $apkbuild->{options};
$options_comment = $apkbuild->{options_comment} if defined $apkbuild->{options_comment};
$orig_source = $apkbuild->{source};
if ( $apkbuild->{pkgver} eq $moddata->{version} ) {
$pkgrel++;
}
}
my $builddir;
my $srcurl = $moddata->{download_url};
my $filename = (URI->new($srcurl)->path_segments)[-1];
my $pkgreal = $moddata->{distribution};
my $pkgver = $moddata->{version} =~ s/^[^0-9]+//r;
if ( $filename =~ m/$pkgreal-$pkgver/ ) {
$builddir = "\$srcdir/\$_pkgreal-\$pkgver";
} elsif ( $filename =~ m/$pkgreal-v${pkgver}/ ) {
$builddir = "\$srcdir/\$_pkgreal-v\$pkgver";
} else {
$builddir = "\$srcdir/\$_pkgreal-" . $moddata->{version};
}
my %repl = (
authors => (
$authors
or "# Contributor: $packager\n# Maintainer: $packager"
),
pkgname => map_cpan_to_apk( $moddata->{distribution} ),
pkgreal => $pkgreal,
pkgver => $pkgver,
pkgrel => $pkgrel,
source => format_source($srcurl, $orig_source),
pkgdesc => $distdata->{abstract},
provides => ( $provides or '' ),
replaces => ( $replaces or '' ),
builddir => $builddir,
options => ( $options or '' ),
options_comment => ( $options_comment or '' ),
);
$repl{source} =~ s/$repl{pkgver}/\$pkgver/g;
$template =~ s/\[% (.*?) %\]/$repl{$1}/g;
open my $fh, '>', "APKBUILD" or die;
print $fh $template;
close $fh;
say "Wrote $repl{pkgname}/APKBUILD";
}
sub query_metacpan {
my ($type, $name) = @_;
my $response = $ua->get("https://fastapi.metacpan.org/$type/$name");
$response->is_success
or die $response->status_line
. " unable to find $name, verify Perl Module name in APKBUILD\n";
my $data = $json->decode( $response->decoded_content );
$data->{error}
and die "Error trying to locate $name: $data->{error}\n";
return $data;
}
sub parse_deps {
my ($reqs) = @_;
my $distfiles = {};
my $deps = "";
my $reqmodlist = "";
#Get list of unique required modules from all parameters
foreach $reqs (@_) {
for my $module ( $reqs->required_modules ) {
$reqmodlist .= "$module " unless $reqmodlist =~ m/^$module$/;
}
}
# Check add the require module to $dep if not part of core perl
foreach my $module ( split " ", $reqmodlist ) {
next if $module eq 'perl';
if ( Module::CoreList->is_core($module) ) {
my $perlver = Module::CoreList->first_release($module);
say " $module is part of core perl since $perlver.";
next;
}
# map module name to package name
my $moddata = query_metacpan( module => $module );
$distfiles->{$module} = $moddata->{distribution};
}
# map package names to alpine packages
foreach ( sort keys %{$distfiles} ) {
my $distdata = query_metacpan( module => $_ );
my $pkgname = map_cpan_to_apk( $distdata->{distribution} );
$deps .= "$pkgname " unless $deps =~ m/\b$pkgname\b/;
}
$deps =~ s/\h+/ /g;
$deps =~ s/ $//;
return defined $deps ? $deps : '';
}
sub prepare_tree {
system("abuild checksum unpack prepare") == 0
or die "abuild checksum failed";
}
sub update_functions {
my $apkbuild = read_apkbuild;
my $pkgver = $apkbuild->{'pkgver'};
my $build_pl_found = glob("src/*${pkgver}/Build.PL");
my $build_func;
my $check_func;
my $package_func;
my $text = read_file "APKBUILD";
if ( $build_pl_found ) {
$build_func = <<'EOF';
build() {
export CFLAGS=$(perl -MConfig -E 'say $Config{ccflags}')
perl Build.PL \
--installdirs=vendor \
--create_packlist=0
./Build
}
EOF
$package_func = <<'EOF';
package() {
./Build install --destdir="$pkgdir"
}
EOF
$check_func = <<'EOF';
check() {
./Build test
}
EOF
}
else {
$build_func = <<'EOF';
build() {
export CFLAGS=$(perl -MConfig -E 'say $Config{ccflags}')
PERL_MM_USE_DEFAULT=1 perl -I. Makefile.PL \
INSTALLDIRS=vendor \
NO_PACKLIST=1 \
NO_PERLLOCAL=1
make
}
EOF
$package_func = <<'EOF';
package() {
2017-07-11 11:57:29 +00:00
make DESTDIR="$pkgdir" install
}
EOF
$check_func = <<'EOF';
check() {
export CFLAGS=$(perl -MConfig -E 'say $Config{ccflags}')
make test
}
EOF
}
if ( length(`find src/*$pkgver/lib -name '*.pod'`) ) {
$package_func .= <<'EOF';
doc() {
local file; find "$pkgdir" -name "*.pod" | while read -r file; do
amove "${file#"$pkgdir"}"
done
default_doc
}
EOF
}
$text =~ s/^build\(\) \{.*?^\}\n/$build_func/smg
or die "Can't replace build function APKBUILD";
$text =~ s/^package\(\) \{.*?^\}\n/$package_func/smg
or die "Can't replace package function APKBUILD";
$text =~ s/^check\(\) \{.*?^\}\n/$check_func/smg
or die "Can't replace check function APKBUILD";
open my $fh, '>', "APKBUILD" or die;
print $fh $text;
close $fh;
}
sub sort_pkgs_by_orig {
my $sort_order = shift;
my $list = shift;
return '' if !defined $list;
my @array_to_sort = split / /, $list;
s/[\t\n\r\f]/ /g
for $sort_order; # remove embedded new lines from sort order
s/\h+/ /g for $sort_order; # remove embedded spaces from sort order
my @sort_order = split / /, $sort_order;
#get order of order by string
my $count = 0;
my %position_of;
$position_of{$_} = $count++ for @sort_order;
my %sorted; # holds the position of array to sort
foreach (@array_to_sort) {
my $pos = $position_of{$_};
if ( !defined $pos ) {
# not found in sort order so add to the end
$sorted{$_} = $count;
$count++;
}
else {
$sorted{$_} = $pos;
}
}
my @tmp; # hold array of sorted in position order
foreach my $name ( sort { $sorted{$a} <=> $sorted{$b} } keys %sorted ) {
push @tmp, $name;
}
# remove any duplicates
uniq @tmp;
return join( " ", @tmp );
}
sub format_depends {
my $deps = shift;
return '' if !defined $deps;
$columns = 102;
$deps =~ s/ {2,}/ /g;
$deps =~ s/^\s//g;
$deps =~ s/\s$//g;
if ( length($deps) >= $columns ) {
$deps = wrap( "\t", "\t", $deps );
}
$deps =~ s/\s$//g;
if ( length($deps) >= $columns ) {
$deps = "\n" . $deps . "\n\t";
}
return $deps;
}
sub do_depends {
my $modver = shift;
my $oldapkbuild = shift;
my $apkbuild = read_apkbuild;
my $metaprefix = '';
if ( exists $apkbuild->{'_realname'} ) {
$metaprefix = "src/" . $apkbuild->{'_realname'};
}
elsif ( exists $apkbuild->{'_pkgreal'} ) {
$metaprefix = "src/" . $apkbuild->{'_pkgreal'};
}
elsif ( exists $apkbuild->{'_pkgname'} ) {
$metaprefix = "src/" . $apkbuild->{'_pkgname'};
}
elsif ( exists $apkbuild->{'_name'} ) {
$metaprefix = "src/" . $apkbuild->{'_name'};
}
elsif ( exists $apkbuild->{'_realpkgname'} ) {
$metaprefix =
"src/" . $apkbuild->{'_realpkgname'};
}
elsif ( exists $apkbuild->{'_pkg_real'} ) {
$metaprefix = "src/" . $apkbuild->{'_pkg_real'};
}
else {
die
"Unable to find meta file directory - check APKBUILD Perl Module Name";
}
$modver = defined($modver) ? $modver : $apkbuild->{'pkgver'};
$modver =~ s/v//g;
# try with partial metaprefix
my @metafiles = glob("
$metaprefix-*${modver}/*META.json
$metaprefix-*${modver}/*META.yml
");
my $build_path = glob("
src/*${modver}/Build.PL
src/*${modver}/Makefile.PL
");
if ( @metafiles ) {
$metaprefix = dirname($metafiles[0]);
} elsif ( $build_path ) {
$metaprefix = dirname($build_path);
my $build_file = basename($build_path);
system("cd $metaprefix && perl -I. $build_file");
# try again with full metaprefix
push @metafiles, glob("
$metaprefix/*META.json
$metaprefix/*META.yml
");
} else {
die "Unable to find meta, makefile, and build.pl - cannot proceed"
}
die "No meta files found after executing $build_path" unless @metafiles;
my $builddir = do {
my $pkgreal = $apkbuild->{'_pkgreal'};
my $oldbuilddir = $apkbuild->{builddir};
my $newbuilddir = $metaprefix;
$newbuilddir =~ s/src/\$srcdir/;
$newbuilddir =~ s/$pkgreal/\$_pkgreal/;
$newbuilddir =~ s/$modver/\$pkgver/;
$newbuilddir eq $oldbuilddir ? undef : $newbuilddir
};
my $meta;
foreach
my $metafile ( @metafiles )
{
if ( -e "$metafile" ) {
say "Using meta information from $metafile";
$meta = CPAN::Meta->load_file("$metafile");
last;
}
}
my $deps;
my $abstract;
my $license;
if ($meta) {
$license = join " OR ",
map { $license_mappings->{$_} or $_ } $meta->license;
say "License: $license";
$abstract = $meta->abstract;
say "Abstract: $abstract";
$deps = parse_deps(
$meta->effective_prereqs->requirements_for( 'runtime', 'requires' ) );
}
if ( defined $oldapkbuild->{'depends'} ) {
if ( defined $oldapkbuild->{'cpandepends'} ) {
$oldapkbuild->{'depends'} =~
s/\$cpandepends/$oldapkbuild->{'cpandepends'}/g;
}
my @libs = split /\s+/, $oldapkbuild->{'depends'};
if ( @libs ) {
my $libs = join ' ',
grep { not (m/perl\-\w+[-\w+]+/ or ($_ eq 'perl')) } @libs;
$deps .= " " . $libs if defined $deps;
}
$deps = sort_pkgs_by_orig( $oldapkbuild->{'depends'}, $deps );
}
if ( defined $deps && $deps eq '' ) {
if (defined $oldapkbuild->{'depends'} && ! $meta ) {
$deps = $oldapkbuild->{'depends'};
} else {
$deps = "perl";
}
}
else {
$deps = format_depends( "perl " . $deps ) if defined $deps;
}
my $makedeps = '';
if ($meta) {
say "CPAN runtime Required: $deps";
say "CPAN runtime Recommended: "
. parse_deps(
$meta->effective_prereqs->requirements_for( 'runtime', 'recommends' ) );
$makedeps = parse_deps(
$meta->effective_prereqs->requirements_for( 'configure', 'requires' ),
$meta->effective_prereqs->requirements_for( 'configure', 'recommends' ),
$meta->effective_prereqs->requirements_for( 'build', 'requires' ),
$meta->effective_prereqs->requirements_for( 'build', 'recommends' )
);
if ( -e "$metaprefix/Build.PL" ) {
$makedeps = "$makedeps perl-module-build"
unless $makedeps =~ m/^perl-module-build$/;
}
}
if ( defined $oldapkbuild->{'makedepends'} ) {
if ( defined $oldapkbuild->{'cpanmakedepends'} ) {
$oldapkbuild->{'makedepends'} =~
s/\$cpanmakedepends/$oldapkbuild->{'cpanmakedepends'}/g;
}
my @libs = split /\s+/, $oldapkbuild->{'makedepends'};
if ( @libs ) {
my $libs = join ' ', grep { not (m/perl\-\w+[-\w+]+/) } @libs;
$makedeps .= " " . $libs;
}
$makedeps =
sort_pkgs_by_orig( $oldapkbuild->{'makedepends'}, $makedeps );
}
my $has_xs = length(`find $metaprefix -name '*.xs'`);
my $perldev = (
( defined $oldapkbuild->{'makedepends'}
&& $oldapkbuild->{'makedepends'} =~ 'perl-dev' ) ||
$has_xs )
? "perl-dev" : '';
if ( defined $makedeps && $makedeps eq '' ) {
if (defined $oldapkbuild->{'makedepends'} && ! $meta) {
$makedeps = $oldapkbuild->{'makedepends'};
} else {
$makedeps = $perldev;
}
}
else {
$makedeps = format_depends( $perldev . " " . $makedeps );
}
$makedeps =~ s/ +$//g;
my $checkdeps;
if ($meta) {
say "CPAN build deps: $makedeps";
say " CPAN build requires: "
. parse_deps(
$meta->effective_prereqs->requirements_for( 'configure', 'requires' ),
$meta->effective_prereqs->requirements_for( 'build', 'requires' )
);
say " CPAN build recommends: "
. parse_deps(
$meta->effective_prereqs->requirements_for( 'configure', 'recommends' ),
$meta->effective_prereqs->requirements_for( 'build', 'recommends' )
);
$checkdeps = parse_deps(
$meta->effective_prereqs->requirements_for( 'test', 'requires' ),
$meta->effective_prereqs->requirements_for( 'test', 'recommends' )
);
}
if ( defined $oldapkbuild->{'checkdepends'} ) {
if ( defined $oldapkbuild->{'cpancheckdepends'} ) {
$oldapkbuild->{'checkdepends'} =~
s/\$cpancheckdepends/$oldapkbuild->{'cpancheckdepends'}/g;
}
my @libs = split /\s+/, $oldapkbuild->{'checkdepends'};
if ( @libs ) {
my $libs = join ' ', grep { not (m/perl\-\w+[-\w+]+/) } @libs;
$checkdeps .= " " . $libs;
}
$checkdeps =
sort_pkgs_by_orig( $oldapkbuild->{'checkdepends'}, $checkdeps );
}
if ( defined $checkdeps && $checkdeps eq '' ) {
if (defined $oldapkbuild->{'checkdeps'} && ! $meta) {
$checkdeps = $oldapkbuild->{'checkdeps'};
}
} else {
$checkdeps = format_depends($checkdeps);
}
say "CPAN check deps: $checkdeps";
my $text = read_file "APKBUILD";
if ( $abstract && $abstract ne 'unknown' ) {
$abstract =~ s/"/\\"/g;
$abstract =~ s/[.\s]+$//;
$text =~ s/^pkgdesc=\"([^\"]*)\"$/pkgdesc=\"$abstract\"/mg
or die "Can't find pkgdesc line in APKBUILD";
}
if ( exists $oldapkbuild->{'arch'} ) {
# Prevent removal of empty arch variable for disabled aports
my $subst_arch = $oldapkbuild->{'arch'}
? '"' . $oldapkbuild->{'arch'} . '"'
: "";
$text =~ s/^arch=\"([^\"]*)\"$/arch=$subst_arch/mg
or die "Can't find arch line in APKBUILD";
} elsif ( $has_xs ) {
$text =~ s/^arch=\"([^\"]*)\"$/arch="all"/mg
or die "Can't find arch line in APKBUILD";
}
if ( defined $license && $license ne 'unknown' ) {
$text =~ s/^license=\"([^\"]*)\"$/license=\"$license\"/mg
or die "Can't find license line in APKBUILD";
}
$text =~ s/^depends=\"([^\"]*)\"$/depends=\"$deps\"/mg
or $text =~ s/(license=.*\n)/$1depends=\"$deps\"\n/gm
or die "Can't insert depends line in APKBUILD" if defined $deps;
$text =~ s/^makedepends=\"([^\"]*)\"$/makedepends=\"$makedeps\"/mg
or $text =~ s/(depends=.*\n)/$1makedepends=\"$makedeps\"\n/gm
or die "Can't insert makedepends line in APKBUILD" if defined $makedeps;
$text =~ s/^checkdepends=\"([^\"]*)\"$/checkdepends=\"$checkdeps\"/mg
or $text =~ s/(makedepends=.*\n)/$1checkdepends=\"$checkdeps\"\n/gm
or die "Can't insert checkdepends line in APKBUILD" if defined $checkdeps;
if (defined $builddir) {
print "\n\$builddir redefined:\n\tOLD: '", $apkbuild->{builddir},
"', NEW: '", $builddir, "'\n";
$text =~ s/^builddir=\"([^\"]*)\"/builddir="$builddir"/mg;
}
# remove empty variables
$text =~ s/.*="".{0,}\n//g;
open my $fh, '>', "APKBUILD" or die;
print $fh $text;
close $fh;
}
sub get_data {
my $apkbuild = read_apkbuild;
my $pkgreal = '';
if ( exists $apkbuild->{_realname} ) {
$pkgreal = $apkbuild->{_realname};
}
elsif ( exists $apkbuild->{_pkgreal} ) {
$pkgreal = $apkbuild->{_pkgreal};
}
elsif ( exists $apkbuild->{_pkgname} ) {
$pkgreal = $apkbuild->{_pkgname};
}
elsif ( exists $apkbuild->{_name} ) {
$pkgreal = $apkbuild->{_name};
}
elsif ( exists $apkbuild->{_realpkgname} ) {
$pkgreal = $apkbuild->{_realpkgname};
}
elsif ( exists $apkbuild->{_pkg_real} ) {
$pkgreal = $apkbuild->{_pkg_real};
}
else {
my $module = '';
my $distribution = '';
while ( ( my $key, my $value ) = each(%$apkbuild) ) {
# Do not parse any depends lines to not find incorrect module
if ( $key =~ m/.*depends.*/ ) {
next;
}
# Try to find a perl module name in APKBUILD
if ( $value =~ m/((\w+::)+\w+)/g ) {
# Match Perl Module names containing ::
$module .= "$1 " unless $module =~ m/$1/;
}
elsif ( $value =~ m/(([A-Z]\w+-)+\w+)/ ) {
# Match possible distribution names with -
$distribution .= "$1 " unless $distribution =~ m/ *$1 /;
}
elsif ( $value =~ m/.*release\/([A-Z]\w+).*/ ) {
# Match Single Word Perl Module Name after release in URL?
$distribution .= "$1 " unless $distribution =~ m/ *$1 /;
}
}
# Want to try the traditional Module::Name first
my $list = $module . $distribution;
foreach ( split / /, $list ) {
my $type = '';
if ( $_ =~ m/::/ ) {
$type = 'module';
}
else {
$type = 'release';
}
my $moddata;
eval { $moddata = query_metacpan( $type => $_ ); };
next if $@
or ref $moddata ne 'HASH'
or not $moddata->{distribution};
$pkgreal = $moddata->{distribution};
last;
}
}
$pkgreal =~ s/-\$pkgver//g;
my $distdata = query_metacpan( release => $pkgreal );
my $moddata = query_metacpan( module => $distdata->{main_module} );
return ( $apkbuild, $distdata, $moddata );
}
my $abuild_conf = read_assignments_from_file("/etc/abuild.conf");
$packager = $abuild_conf->{PACKAGER} if $abuild_conf->{PACKAGER};
my $user_abuild_conf =
read_assignments_from_file( $ENV{"HOME"} . "/.abuild/abuild.conf" );
$packager = $user_abuild_conf->{PACKAGER} if $user_abuild_conf->{PACKAGER};
my $command = $ARGV[0] // '';
if ( $command eq "create" ) {
my $module = $ARGV[1];
$module or die "Module name is a mandatory argument";
my $moddata = query_metacpan( module => $module );
my $distdata = query_metacpan( release => $moddata->{distribution} );
my $apkname = map_cpan_to_apk $distdata->{metadata}{name};
mkdir $apkname;
chdir $apkname;
write_apkbuild( $distdata, undef, $moddata );
prepare_tree;
update_functions;
do_depends $moddata->{version};
}
elsif ( $command eq "recreate" ) {
#TODO: likely should keep pkgrel the same on recreate
my ( $apkbuild, $distdata, $moddata ) = get_data;
my $pkgver = $moddata->{version} =~ s/^[^0-9]+//r;
if ( $pkgver ne $apkbuild->{pkgver} ) {
#Reset pkgrel on upgrade on recreate
say "Upgrading CPAN module from $apkbuild->{pkgver} to $pkgver";
$apkbuild->{pkgrel} = 0;
}
write_apkbuild( $distdata, $apkbuild, $moddata );
prepare_tree;
update_functions;
do_depends( $moddata->{version}, $apkbuild );
}
elsif ( $command eq "upgrade" ) {
my ( $apkbuild, $distdata, $moddata ) = get_data;
my $pkgver = $moddata->{version} =~ s/^[^0-9]+//r;
if ( $pkgver ne $apkbuild->{pkgver} ) {
say "Upgrading CPAN module from $apkbuild->{pkgver} to $pkgver";
my $text = read_file "APKBUILD";
$text =~ s/^pkgver=(.*)$/pkgver=$pkgver/mg
or die "Can't find pkgver line in APKBUILD";
$text =~ s/^pkgrel=(.*)$/pkgrel=0/mg;
#FIXME: review whether this works over time
# It deletes the blank line before the checksum
# So prepare_tree does not insert extra blank line
$text =~ s/\n^(.*sums=.*\n)/$1/mg;
open my $fh, '>', "APKBUILD" or die;
say $fh $text;
close $fh;
prepare_tree;
do_depends( $moddata->{version}, $apkbuild );
}
else {
2023-07-07 20:48:12 +00:00
say "Up-to-date with CPAN";
}
}
elsif ( $command eq "check" ) {
my ( $apkbuild, $distdata, $moddata ) = get_data;
my $pkgver = $moddata->{version} =~ s/^[^0-9]+//r;
say
"$apkbuild->{pkgname}: Latest version: $pkgver Packaged version: $apkbuild->{pkgver}";
if ( $pkgver ne $apkbuild->{pkgver} ) {
exit(1);
}
}
elsif ( $command eq "update" ) {
prepare_tree;
do_depends;
}
else {
say
"Usage: apkbuild-cpan [create <Module::Name> | check | recreate | update | upgrade]";
exit;
}