File Coverage

blib/lib/OTRS/OPM/Maker/Command/changes.pm

Criterion	Covered	Total	%
statement	62	78	79.4
branch	7	16	43.7
condition	2	8	25.0
subroutine	15	18	83.3
pod	5	5	100.0
total	91	125	72.8

package OTRS::OPM::Maker::Command::changes;

use strict;
use warnings;

# ABSTRACT: Generate changes file based on vcs commits

use Carp;
use File::Find::Rule;
use File::Basename;
use File::Spec;
use IO::File;
use JSON;
use List::Util qw(first);
use Path::Class ();
use Time::Piece;

use OTRS::OPM::Maker -command;
use OTRS::OPM::Maker::Utils::Git;

our $VERSION = 0.02;

sub abstract {
    return "Generate changes file based on git commits";
}

sub usage_desc {
    return "opmbuild changes [--file ] [--dir ]";
}

sub opt_spec {
    return (
        [ 'file=s', 'Path to .changes file'  ],
        [ 'dir=s',  'Directory of the addon' ],
    );
}

sub validate_args {
    my ($self, $opt, $args) = @_;

    if ( !$opt->{dir} ) {
        $opt->{dir} = OTRS::OPM::Maker::Utils::Git->find_toplevel( dir => '.' );
    }

    if ( !$opt->{dir} ) {
        $self->usage_error( 'no directory with addon found' );
        exit;
    }

    if ( !$opt->{file} ) {
        my @parts = $opt->{dir};
        if ( -d $opt->{dir} . '/doc' ) {
            push @parts, 'doc';
        }

        my $name = (File::Spec->splitpath( File::Spec->rel2abs( $opt->{dir} ) ) ) [-1];

        $opt->{file} = File::Spec->catfile(
            @parts,
            $name . '.changes',
        );
    }
}

sub execute {
    my ($self, $opt, $args) = @_;

    chdir $opt->{dir};

    my $changes_file = Path::Class::File->new( $opt->{file} );
    my @entries;
    my $lines;

    if ( -f $changes_file->stringify ) {
        $lines = $changes_file->slurp( iomode => '<:encoding(UTF-8)' );

        my @entries = grep{ ( $_ // '' ) ne '' }split m{
            (?:\s+)?
            (                                         # headline with version and date
                ^
                \d+\.\d+ (?:\.\d+)?                   # version
                \s+ -? \s+
                \d{4}-\d{2}-\d{2} (?:\s|T)            # date
                \d{2}:\d{2}:\d{2} (?:[+-]\d+:\d+)?\s  # time
                (?: - \s [a-f0-9]+ )?                 # optional git commit
            )
            \s+
        }xms, $lines;
    }

    my $last_version;
    my $last_commit;

    ENTRY:
    while ( @entries ) {
        my ($header, $desc) = ( shift(@entries), shift(@entries) );

        my ($version, $date, $commit) = split /\s+-\s+/, $header // '';

        if ( $version ) {
            $last_version = $version;
            $last_commit  = $commit;
            last ENTRY;
        }
    }

    $last_version //= '';
    $lines        //= '';

    my $new = OTRS::OPM::Maker::Utils::Git->commits(
        version => $last_version,
        dir     => $opt->{dir},
    );

    my @all_lines = ( $new, $lines ? $lines : () );

    my $fh = IO::File->new( $changes_file->stringify, 'w' ) or die $!;
    $fh->print( join "\n\n", @all_lines );
    $fh->close;

    return $changes_file->stringify;
}

1;

__END__