ea4-tool-post-update

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - ea4-tool-post-update                 Copyright(c) 2021 cPanel, L.L.C.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

package ea_libicu::ea4_tool_post_update;

use strict;
use warnings;

use lib "../ea-tools/lib/ea4_tool";    # assumes ea-tools is checked out next to this repo
use ea4_tool::util ();
use File::chdir;
use Path::Tiny;

exit( run(@ARGV) ? 0 : 1 ) if !caller;

sub run {
    my ( $old_ver, $new_ver ) = @_;

    my ( $major_ver, $minor_ver ) = split /\./, $new_ver;
    my $tarball_ver = $new_ver;
    $tarball_ver =~ s/\./-/;

    my $spec  = ea4_tool::util::specfile($CWD);
    my @lines = path($spec)->lines;
    foreach my $line (@lines) {
        if ( $line =~ /^%define\s+version_major/ ) {
            $line =~ s/[0-9]+/$major_ver/;
        }
        elsif ( $line =~ /^%define\s+tarball_version/ ) {
            $line =~ s/[0-9\-]+/$tarball_ver/;
        }
    }

    path($spec)->spew(@lines);

    print "Committing SPEC file change …\n";
    my $git    = ea4_tool::util::git($CWD);
    my $branch = $git->current_branch();

    $git->run( add    => $spec );
    $git->run( commit => "-m", "$branch: ea4-tool-post-update version_major to $major_ver and tarball_version to $tarball_ver" );
    ea4_tool::util::pushup( $git, $branch );

    print "Done!\n";
    return 1;
}

1;