36 lines
841 B
Perl
36 lines
841 B
Perl
|
package App::Git::IssueManager::AddHook;
|
||
|
|
#ABSTRACT: class implementing the Add-Hook command of the GIT IssueManager
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use MooseX::App::Command;
|
||
|
|
extends qw(App::Git::IssueManager);
|
||
|
|
use Git::LowLevel;
|
||
|
|
use Git::IssueManager;
|
||
|
|
use Git::IssueManager::Issue;
|
||
|
|
|
||
|
|
use Term::ANSIColor;
|
||
|
|
use Try::Tiny;
|
||
|
|
|
||
|
|
|
||
|
|
command_short_description 'add the post-commit hook for managing git issues to the repository';
|
||
|
|
command_usage 'git issue add-hook';
|
||
|
|
|
||
|
|
sub run
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
die("No .git directory found\n") unless -d ".git";
|
||
|
|
die("A post-commit hook is already installed. Please add hook manually\n") unless ! -e ".git/hooks/post-commit";
|
||
|
|
|
||
|
|
open my $hook,">",".git/hooks/post-commit";
|
||
|
|
print $hook "#!/bin/sh\n";
|
||
|
|
print $hook "git-issue-commit-hook\n";
|
||
|
|
close $hook;
|
||
|
|
|
||
|
|
system("chmod a+x .git/hooks/post-commit");
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|