App-Git-IssueManager/bin/git-issue-commit-hook

43 lines
811 B
Perl
Executable File

#!/usr/bin/env perl
use strict;
use warnings;
use Try::Tiny;
use Git::IssueManager;
use Git::LowLevel;
use utf8;
#
# main program
#
my $manager = Git::IssueManager->new(repository=>Git::LowLevel->new(git_dir=> "."));
warn("IssueManager not yet initialize ignoring commit\n") unless $manager->ready();
exit(0) unless $manager->ready();
my $tag = $manager->tag();
my $help=readpipe("git log -1 HEAD");
my @lines=split /\n/, $help;
my $commit="";
for my $line (@lines)
{
#check for commit
if ($line =~ /^commit\s([0-9abcdef]+)$/)
{
$commit=$1;
}
#search for an issue tag within the commit message
if ($line =~ /($tag-[0-9abcdef]{8})/)
{
my $id=$1;
# check for all possible commit issue commands
if ($line =~ /#close/)
{
$manager->close($id, $commit);
}
}
}