ADD: reworked adding and listing
This commit is contained in:
parent
994fa9818b
commit
067e6140c1
@ -2,54 +2,61 @@ package Git::IssueManager;
|
|||||||
#ABSTRACT: Module for managing issues in a git branch within your repository
|
#ABSTRACT: Module for managing issues in a git branch within your repository
|
||||||
use Moose;
|
use Moose;
|
||||||
use MooseX::Privacy;
|
use MooseX::Privacy;
|
||||||
use Git::RepositoryHL;
|
|
||||||
use DateTime;
|
use DateTime;
|
||||||
use DateTime::TimeZone;
|
use DateTime::TimeZone;
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
use Git::LowLevel;
|
||||||
|
|
||||||
our $VERSION = "0.1";
|
|
||||||
|
=attr gitcmd
|
||||||
|
|
||||||
|
the path to the git command, default is using your path
|
||||||
|
|
||||||
|
=cut
|
||||||
|
has 'gitcmd' => (is => 'ro', isa => 'Str', default=>"git");
|
||||||
|
|
||||||
=attr repository
|
=attr repository
|
||||||
|
|
||||||
Git::Repository object on which to do the issue management
|
Git::Repository object on which to do the issue management
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
has 'repository' => (is =>'ro', isa => 'Git::RepositoryHL', required => 1);
|
has 'repository' => (is =>'rw', isa => 'Git::LowLevel');
|
||||||
|
|
||||||
=attr _open
|
=attr _open
|
||||||
|
|
||||||
B<private attribute>
|
B<private attribute>
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
has '_open' => (is => 'rw', isa => 'ArrayRef', traits => [qw/Private/]);
|
has '_open' => (is => 'rw', isa => 'Git::LowLevel::Tree', traits => [qw/Private/]);
|
||||||
|
|
||||||
=attr _assigned
|
=attr _assigned
|
||||||
|
|
||||||
B<private attribute>
|
B<private attribute>
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
has '_assigned' => (is => 'rw', isa => 'ArrayRef', traits => [qw/Private/]);
|
has '_assigned' => (is => 'rw', isa => 'Git::LowLevel::Tree', traits => [qw/Private/]);
|
||||||
|
|
||||||
|
|
||||||
=attr _inprogress
|
=attr _inprogress
|
||||||
|
|
||||||
B<private attribute>
|
B<private attribute>
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
has '_inprogress' => (is => 'rw', isa => 'ArrayRef', traits => [qw/Private/]);
|
has '_inprogress' => (is => 'rw', isa => 'Git::LowLevel::Tree', traits => [qw/Private/]);
|
||||||
|
|
||||||
=attr _closed
|
=attr _closed
|
||||||
|
|
||||||
B<private attribute>
|
B<private attribute>
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
has '_closed' => (is => 'rw', isa => 'ArrayRef', traits => [qw/Private/]);
|
has '_closed' => (is => 'rw', isa => 'Git::LowLevel::Tree', traits => [qw/Private/]);
|
||||||
|
|
||||||
=attr _root
|
=attr _root
|
||||||
|
|
||||||
B<private attribute>
|
B<private attribute>
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
has '_root' => (is => 'rw', isa => 'ArrayRef', traits => [qw/Private/]);
|
has '_root' => (is => 'rw', isa => 'Git::LowLevel::Tree', traits => [qw/Private/]);
|
||||||
|
|
||||||
=method ready
|
=method ready
|
||||||
|
|
||||||
@ -59,9 +66,14 @@ validates if everything is in place for issue management
|
|||||||
sub ready
|
sub ready
|
||||||
{
|
{
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
my $ref = $self->repository->getReference('refs/heads/issues');
|
||||||
|
return 0 unless $ref->exist;
|
||||||
|
|
||||||
# return false if issue branch does not exist
|
my $version = $ref->find('.version');
|
||||||
return 0 unless $self->repository->hasBranch('heads/issues');
|
return 0 unless defined($version) && ref($version) eq "Git::LowLevel::Blob";
|
||||||
|
|
||||||
|
my $tag = $ref->find('.tag');
|
||||||
|
return 0 unless defined($tag) && ref($tag) eq "Git::LowLevel::Blob";
|
||||||
|
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
@ -78,19 +90,10 @@ sub version
|
|||||||
|
|
||||||
return unless $self->ready();
|
return unless $self->ready();
|
||||||
|
|
||||||
my @tree = $self->repository->getTree("issues");
|
my $ref = $self->repository->getReference('refs/heads/issues');
|
||||||
|
my $version = $ref->find(".version");
|
||||||
|
|
||||||
for my $t (@tree)
|
return $version->content;
|
||||||
{
|
|
||||||
if ($t->{name} eq ".version")
|
|
||||||
{
|
|
||||||
my $version = $self->repository->getBlob($t->{ref});
|
|
||||||
chomp($version);
|
|
||||||
return $version;
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
=method tag
|
=method tag
|
||||||
@ -104,19 +107,10 @@ sub tag
|
|||||||
|
|
||||||
return unless $self->ready();
|
return unless $self->ready();
|
||||||
|
|
||||||
my @tree = $self->repository->getTree("issues");
|
my $ref = $self->repository->getReference('refs/heads/issues');
|
||||||
|
my $tag = $ref->find(".tag");
|
||||||
|
|
||||||
for my $t (@tree)
|
return $tag->content;
|
||||||
{
|
|
||||||
if ($t->{name} eq ".tag")
|
|
||||||
{
|
|
||||||
my $tag = $self->repository->getBlob($t->{ref});
|
|
||||||
chomp($tag);
|
|
||||||
return $tag;
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -132,629 +126,175 @@ sub init
|
|||||||
|
|
||||||
return unless ! $self->ready();
|
return unless ! $self->ready();
|
||||||
|
|
||||||
die("no issue tag given") unless $issue_tag;
|
die("no issue tag given") unless defined($issue_tag) && length($issue_tag) > 0;
|
||||||
|
|
||||||
# create a version file in the issues branch, also creating the branch with this
|
my $ref = $self->repository->getReference('refs/heads/issues');
|
||||||
my $filehash = $self->repository->createFileObject("0.1");
|
my $root = $ref->getTree();
|
||||||
|
|
||||||
# add the version file to a git tree
|
my $version = $root->newBlob();
|
||||||
my $t = {
|
$version->path(".version");
|
||||||
mode => "100644",
|
$version->_content("0.1");
|
||||||
type => "blob",
|
$root->add($version);
|
||||||
ref => $filehash,
|
|
||||||
path => ".version"
|
|
||||||
};
|
|
||||||
my @tree;
|
|
||||||
push(@tree,$t);
|
|
||||||
|
|
||||||
# create a tag file in the issues branch to identify the issue tag to prepend
|
my $tag = $root->newBlob();
|
||||||
$filehash = $self->repository->createFileObject($issue_tag);
|
$tag->path(".tag");
|
||||||
my $t2 = {
|
$tag->_content($issue_tag);
|
||||||
mode => "100644",
|
$root->add($tag);
|
||||||
type => "blob",
|
|
||||||
ref => $filehash,
|
|
||||||
path => ".tag"
|
|
||||||
};
|
|
||||||
push(@tree,$t2);
|
|
||||||
|
|
||||||
# create the tree
|
$ref->commit("initialized issue manager");
|
||||||
my $tree_hash=$self->repository->createTree(\@tree);
|
|
||||||
|
|
||||||
# commit the created tree
|
|
||||||
my $commit=$self->repository->createTreeCommit($tree_hash, "1", "initialized issue manager for this repository");
|
|
||||||
|
|
||||||
# now update/create the branch refs/heads/issues
|
|
||||||
|
|
||||||
$self->repository->updateRef("refs/heads/issues",$commit);
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
=method _load
|
|
||||||
|
|
||||||
B<private method>
|
|
||||||
|
|
||||||
called to load all the git trees
|
|
||||||
|
|
||||||
=cut
|
|
||||||
private_method _load => sub {
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
my @root = $self->repository->getTree("issues");
|
|
||||||
$self->_root(\@root);
|
|
||||||
for my $a (@root)
|
|
||||||
{
|
|
||||||
$a->{path} = $a->{name};
|
|
||||||
}
|
|
||||||
|
|
||||||
my @open = $self->repository->getTree("issues","open/");
|
|
||||||
$self->_open(\@open);
|
|
||||||
for my $a (@open)
|
|
||||||
{
|
|
||||||
$a->{path} = $a->{name};
|
|
||||||
}
|
|
||||||
|
|
||||||
my @closed = $self->repository->getTree("issues","closed/");
|
|
||||||
$self->_closed(\@closed);
|
|
||||||
for my $a (@closed)
|
|
||||||
{
|
|
||||||
$a->{path} = $a->{name};
|
|
||||||
}
|
|
||||||
|
|
||||||
my @assigned = $self->repository->getTree("issues","assigned/");
|
|
||||||
$self->_assigned(\@assigned);
|
|
||||||
for my $a (@assigned)
|
|
||||||
{
|
|
||||||
$a->{path} = $a->{name};
|
|
||||||
}
|
|
||||||
|
|
||||||
my @inprogress = $self->repository->getTree("issues","inprogess/");
|
|
||||||
$self->_inprogress(\@inprogress);
|
|
||||||
for my $a (@inprogress)
|
|
||||||
{
|
|
||||||
$a->{path} = $a->{name};
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
};
|
|
||||||
|
|
||||||
=method _createTree
|
|
||||||
|
|
||||||
B<privat method>
|
|
||||||
|
|
||||||
creates the root tree for the issues branch and returns its hash
|
|
||||||
|
|
||||||
=cut
|
|
||||||
private_method _createTree => sub {
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
# now recreate tree structure
|
|
||||||
my $openhash = $self->repository->createTree($self->_open);
|
|
||||||
my $closedhash = $self->repository->createTree($self->_closed);
|
|
||||||
my $assignedhash = $self->repository->createTree($self->_assigned);
|
|
||||||
my $inprogresshash= $self->repository->createTree($self->_inprogress);
|
|
||||||
|
|
||||||
my $openfound=0;
|
|
||||||
my $closedfound=0;
|
|
||||||
my $assignedfound=0;
|
|
||||||
my $inprogressfound=0;
|
|
||||||
|
|
||||||
# now recreate the root tree
|
|
||||||
my @fordelete;
|
|
||||||
my $i=0;
|
|
||||||
for my $r (@{$self->_root})
|
|
||||||
{
|
|
||||||
if ($r->{name} eq "open")
|
|
||||||
{
|
|
||||||
if (defined($openhash) && length($openhash)==40)
|
|
||||||
{
|
|
||||||
$r->{ref}=$openhash;
|
|
||||||
$openfound=1;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
push(@fordelete, $i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($r->{name} eq "closed")
|
|
||||||
{
|
|
||||||
if (defined($closedhash) && length($closedhash)==40)
|
|
||||||
{
|
|
||||||
$r->{ref}=$closedhash;
|
|
||||||
$closedfound=1;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
push(@fordelete, $i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($r->{name} eq "assigned")
|
|
||||||
{
|
|
||||||
if (defined($assignedhash) && length($assignedhash)==40)
|
|
||||||
{
|
|
||||||
$r->{ref}=$assignedhash;
|
|
||||||
$assignedfound=1;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
push(@fordelete, $i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($r->{name} eq "inprogess")
|
|
||||||
{
|
|
||||||
if (defined($inprogresshash) && length($inprogresshash)==40)
|
|
||||||
{
|
|
||||||
$r->{ref}=$inprogresshash;
|
|
||||||
$inprogressfound=1;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
push(@fordelete, $i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$i++;
|
|
||||||
}
|
|
||||||
|
|
||||||
for my $d (@fordelete)
|
|
||||||
{
|
|
||||||
splice @{$self->_root}, $d, 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!$openfound && defined($openhash))
|
|
||||||
{
|
|
||||||
my $t = {
|
|
||||||
path => "open",
|
|
||||||
ref => $openhash,
|
|
||||||
type => "tree",
|
|
||||||
mode => "040000"
|
|
||||||
};
|
|
||||||
push(@{$self->_root}, $t);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!$closedfound && defined($closedhash))
|
|
||||||
{
|
|
||||||
my $t = {
|
|
||||||
path => "closed",
|
|
||||||
ref => $closedhash,
|
|
||||||
type => "tree",
|
|
||||||
mode => "040000"
|
|
||||||
};
|
|
||||||
push(@{$self->_root}, $t);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!$assignedfound && defined($assignedhash))
|
|
||||||
{
|
|
||||||
my $t = {
|
|
||||||
path => "assigned",
|
|
||||||
ref => $assignedhash,
|
|
||||||
type => "tree",
|
|
||||||
mode => "040000"
|
|
||||||
};
|
|
||||||
push(@{$self->_root}, $t);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (!$inprogressfound && defined($inprogresshash))
|
|
||||||
{
|
|
||||||
my $t = {
|
|
||||||
path => "inprogress",
|
|
||||||
ref => $inprogresshash,
|
|
||||||
type => "tree",
|
|
||||||
mode => "040000"
|
|
||||||
};
|
|
||||||
push(@{$self->_root}, $t);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
return $self->repository->createTree($self->_root);
|
|
||||||
|
|
||||||
};
|
|
||||||
|
|
||||||
|
|
||||||
=method add
|
=method add
|
||||||
|
|
||||||
add an issue to the repository
|
add an issue to the repository
|
||||||
|
|
||||||
|
first paramter is an GitIssueManager::Issue object
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
sub add
|
sub add
|
||||||
{
|
{
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $issue = shift;
|
my $issue = shift;
|
||||||
|
|
||||||
die("IssueManager not initialized") unless $self->ready();
|
die("IssueManager not initialized") unless $self->ready();
|
||||||
die("no Git::IssueManager::Issue object given") unless ref($issue) eq "Git::IssueManager::Issue";
|
die("no issue given") unless defined($issue) && ref($issue) eq "Git::IssueManager::Issue";
|
||||||
|
|
||||||
$self->_load();
|
my $ref = $self->repository->getReference('refs/heads/issues');
|
||||||
|
my $root = $ref->getTree();
|
||||||
|
|
||||||
my $issues;
|
my $issueTree=$issue->createIssue($self->repository);
|
||||||
if ($issue->status eq "open")
|
|
||||||
|
my $base=$root->find($issue->status);
|
||||||
|
if (!defined($base))
|
||||||
{
|
{
|
||||||
$issues=$self->_open();
|
$base = $root->newTree();
|
||||||
|
$base->path($issue->status);
|
||||||
|
$root->add($base);
|
||||||
}
|
}
|
||||||
elsif ($issue->status eq "closed")
|
$base->add($issueTree);
|
||||||
{
|
$ref->commit("added issue " . $issue->subject);
|
||||||
$issues=$self->_closed();
|
|
||||||
}
|
|
||||||
elsif ($issue->status eq "assigned")
|
|
||||||
{
|
|
||||||
$issues=$self->_assigned;
|
|
||||||
}
|
|
||||||
elsif ($issue->status eq "inprogress")
|
|
||||||
{
|
|
||||||
$issues=$self->_inprogress;
|
|
||||||
}
|
|
||||||
|
|
||||||
# check if issues already exist, only checks the subject !!!
|
|
||||||
for my $i (@{$issues})
|
|
||||||
{
|
|
||||||
if ($i->{name} eq $issue->subject)
|
|
||||||
{
|
|
||||||
die("issue already exist");
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# append the issue to the tree
|
|
||||||
my $hash=$issue->createIssue($self->repository);
|
|
||||||
push (@{$issues},{
|
|
||||||
path => $issue->subject,
|
|
||||||
ref => $hash,
|
|
||||||
type => "tree",
|
|
||||||
mode => "040000"
|
|
||||||
});
|
|
||||||
|
|
||||||
|
|
||||||
my $roothash = $self->_createTree();
|
|
||||||
|
|
||||||
# commit the issue
|
|
||||||
my $commit=$self->repository->createTreeCommit($roothash,$self->repository->getBranchRef("heads/issues") || "start", "ADD: " . $issue->subject);
|
|
||||||
|
|
||||||
#now update branch refs/heads/issues
|
|
||||||
$self->repository->updateRef("refs/heads/issues",$commit);
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
=method parseIssue
|
||||||
|
|
||||||
|
parsed the given Git::LowLevel::Tree object as an Issue
|
||||||
|
|
||||||
=method _to_issue - internal method, do not call directly
|
|
||||||
|
|
||||||
returns the issue converted from a tree hash entry
|
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
sub _to_issue
|
sub parseIssue
|
||||||
{
|
{
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $i = shift;
|
my $d = shift;
|
||||||
|
my $tag = shift;
|
||||||
|
|
||||||
my $issue = Git::IssueManager::Issue->new(subject => $i->{name});
|
my $subject = $d->mypath();
|
||||||
|
my $description = $d->find("description");
|
||||||
|
my $priority = $d->find("priority");
|
||||||
|
my $severity = $d->find("severity");
|
||||||
|
my $type = $d->find("type");
|
||||||
|
my $worker = $d->find("worker");
|
||||||
|
my $substatus = $d->find("substatus");
|
||||||
|
my $comment = $d->find("comment");
|
||||||
|
my $estimated = $d->find("estimated");
|
||||||
|
my $working = $d->find("working");
|
||||||
|
my $tags = $d->find("tags");
|
||||||
|
my $id = $tag . "-" . substr($d->hash(),0,8);
|
||||||
|
my $cd = $d->timestamp_added();
|
||||||
|
my $ld = $d->timestamp_last();
|
||||||
|
my $author = $d->committer();
|
||||||
|
|
||||||
$issue->priority($self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/priority")));
|
# check for required attributes
|
||||||
$issue->severity($self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/severity")));
|
die("description not available for issue " . $id) unless defined($description);
|
||||||
$issue->type($self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/type")));
|
die("priority not available for issue " . $id) unless defined($priority);
|
||||||
$issue->description($self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/description")));
|
die("severity not available for issue " . $id) unless defined($severity);
|
||||||
$issue->comment($self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/comment")));
|
die("type not available for issue " . $id) unless defined($type);
|
||||||
$issue->id($self->repository->getBlob($self->repository->getFileRef("issues",".tag")) . "-" . substr($i->{ref},0,8));
|
|
||||||
$issue->estimated_time($self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/estimated")));
|
|
||||||
$issue->working_time($self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/working")));
|
|
||||||
|
|
||||||
my $worker = $self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/worker"));
|
|
||||||
if (defined($worker))
|
|
||||||
{
|
|
||||||
$worker=~/^(.*)<(.*)>$/;
|
|
||||||
$issue->worker($1 || "");
|
|
||||||
$issue->worker_email($2 || "");
|
|
||||||
}
|
|
||||||
|
|
||||||
my $taglist= $self->repository->getBlob($self->repository->getFileRef("issues",$i->{path}."/tags"));
|
|
||||||
if (defined($taglist) && length($taglist)>0)
|
|
||||||
{
|
|
||||||
my @tags=split /\n/,$taglist;
|
|
||||||
$issue->tags(\@tags);
|
|
||||||
}
|
|
||||||
|
|
||||||
my $tz=DateTime::TimeZone->new( name => 'local' );
|
my $tz=DateTime::TimeZone->new( name => 'local' );
|
||||||
my @commit = $self->repository->getFileLog("issues",$i->{path}."/subject",1);
|
my $issue = Git::IssueManager::Issue->new(subject => $subject);
|
||||||
$issue->creation_date(DateTime->from_epoch(epoch => $commit[0]->{date},time_zone=>$tz ));
|
$issue->description($description->content());
|
||||||
$issue->author($commit[0]->{author}->{name});
|
$issue->priority($priority->content());
|
||||||
$issue->author_email($commit[0]->{author}->{email});
|
$issue->severity($severity->content());
|
||||||
|
$issue->type($type->content());
|
||||||
|
$issue->id($id);
|
||||||
|
$issue->creation_date(DateTime->from_epoch( epoch =>$cd, time_zone=>$tz));
|
||||||
|
$issue->last_change_date(DateTime->from_epoch( epoch =>$ld, time_zone=>$tz));
|
||||||
|
|
||||||
@commit = $self->repository->getFileLog("issues",$i->{path},1);
|
if (defined($worker))
|
||||||
$issue->last_change_date(DateTime->from_epoch(epoch => $commit[0]->{date},time_zone=>$tz ));
|
{
|
||||||
|
$worker->content()=~/^(.*)\<(.*)\>$/;
|
||||||
|
$issue->worker($1);
|
||||||
|
$issue->worker_email($2);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (defined($author))
|
||||||
|
{
|
||||||
|
$author=~/^(.*)\<(.*)\>$/;
|
||||||
|
$issue->author($1);
|
||||||
|
$issue->author_email($2);
|
||||||
|
}
|
||||||
|
|
||||||
$issue->closed_date(DateTime->from_epoch(epoch => $commit[0]->{date},time_zone=>$tz ));
|
|
||||||
|
|
||||||
return $issue;
|
return $issue;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
=method get
|
sub list
|
||||||
|
{
|
||||||
|
my $self = shift;
|
||||||
|
my @issues;
|
||||||
|
|
||||||
return the issue with the given id
|
die("IssueManager not initialized") unless $self->ready();
|
||||||
|
my $ref = $self->repository->getReference('refs/heads/issues');
|
||||||
|
my $root = $ref->getTree();
|
||||||
|
my $open = $ref->find("open");
|
||||||
|
my $closed = $ref->find("closed");
|
||||||
|
my $assigned = $ref->find("assigned");
|
||||||
|
my $inprogress = $ref->find("inprogess");
|
||||||
|
my $tag = $ref->find(".tag")->content();
|
||||||
|
my @all;
|
||||||
|
|
||||||
=cut
|
# merge all issues into one array
|
||||||
sub get
|
if (defined($open))
|
||||||
|
{
|
||||||
|
push(@all,$open->get());
|
||||||
|
}
|
||||||
|
|
||||||
|
if (defined($closed))
|
||||||
|
{
|
||||||
|
push(@all,$closed->get());
|
||||||
|
}
|
||||||
|
|
||||||
|
if (defined($assigned))
|
||||||
|
{
|
||||||
|
push(@all,$assigned->get());
|
||||||
|
}
|
||||||
|
|
||||||
|
if (defined($inprogress))
|
||||||
|
{
|
||||||
|
push(@all,$inprogress->get());
|
||||||
|
}
|
||||||
|
|
||||||
|
for my $d (@all)
|
||||||
|
{
|
||||||
|
my $issue = $self->parseIssue($d,$tag);
|
||||||
|
push(@issues,$issue);
|
||||||
|
}
|
||||||
|
|
||||||
|
return @issues;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
sub delete
|
||||||
{
|
{
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $id = shift;
|
my $id = shift;
|
||||||
|
|
||||||
die("no id given") unless defined($id);
|
die("IssueManager not initialized") unless $self->ready();
|
||||||
|
my $ref = $self->repository->getReference('refs/heads/issues');
|
||||||
$id=~/^[A-Z]+-(.*)$/;
|
my $root = $ref->getTree();
|
||||||
my $hash=$1;
|
|
||||||
|
|
||||||
# first search for the id
|
|
||||||
my @open = $self->repository->getTree("issues","open/");
|
|
||||||
for my $i (@open)
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
return $self->_to_issue($i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
my @assigned = $self->repository->getTree("issues","assigned/");
|
|
||||||
for my $i (@assigned)
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
return $self->_to_issue($i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
my @inprogress = $self->repository->getTree("issues","inprogress");
|
|
||||||
for my $i (@inprogress)
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
return $self->_to_issue($i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
my @closed = $self->repository->getTree("issues","closed/");
|
|
||||||
for my $i (@closed)
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
return $self->_to_issue($i);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
=method list
|
|
||||||
|
|
||||||
list all issues of the repository
|
|
||||||
|
|
||||||
=cut
|
|
||||||
sub list
|
|
||||||
{
|
|
||||||
my $self = shift;
|
|
||||||
my $filter = shift;
|
|
||||||
my @issues =$self->repository->getTree("issues","open/");
|
|
||||||
my @ret;
|
|
||||||
|
|
||||||
if (!defined($filter) || $filter eq "open" )
|
|
||||||
{
|
|
||||||
@issues=$self->repository->getTree("issues","open/");
|
|
||||||
}
|
|
||||||
|
|
||||||
for my $i (@issues)
|
|
||||||
{
|
|
||||||
my $issue = $self->_to_issue($i);
|
|
||||||
|
|
||||||
push(@ret, $issue);
|
|
||||||
}
|
|
||||||
|
|
||||||
# now sort by creation date
|
|
||||||
@ret = sort {DateTime->compare($a->creation_date, $b->creation_date)} @ret;
|
|
||||||
|
|
||||||
return @ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
=method delete
|
|
||||||
|
|
||||||
delete the issue with the given id
|
|
||||||
|
|
||||||
=cut
|
|
||||||
sub delete
|
|
||||||
{
|
|
||||||
my $self = shift;
|
|
||||||
my $id = shift;
|
|
||||||
|
|
||||||
die("no id given") unless defined($id);
|
|
||||||
|
|
||||||
$id=~/^[A-Z]+-(.*)$/;
|
|
||||||
my $hash=$1;
|
|
||||||
|
|
||||||
$self->_load();
|
|
||||||
|
|
||||||
my $found=0;
|
|
||||||
my $index=0;
|
|
||||||
|
|
||||||
# first search for the id
|
|
||||||
for my $i (@{$self->_open})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
splice @{$self->_open},$index,1;
|
|
||||||
}
|
|
||||||
|
|
||||||
$index=0;
|
|
||||||
|
|
||||||
if (!$found)
|
|
||||||
{
|
|
||||||
for my $i (@{$self->_assigned})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
splice @{$self->_assigned},$index,1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$index=0;
|
|
||||||
|
|
||||||
if (!$found)
|
|
||||||
{
|
|
||||||
for my $i (@{$self->_inprogress})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
splice @{$self->_inprogress},$index,1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$index=0;
|
|
||||||
|
|
||||||
if (!$found)
|
|
||||||
{
|
|
||||||
for my $i (@{$self->_closed})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
splice @{$self->_closed},$index,1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
my $roothash = $self->_createTree();
|
|
||||||
|
|
||||||
# commit the issue
|
|
||||||
my $commit=$self->repository->createTreeCommit($roothash,$self->repository->getBranchRef("heads/issues") || "start", "RM: " . $id);
|
|
||||||
|
|
||||||
#now update branch refs/heads/issues
|
|
||||||
$self->repository->updateRef("refs/heads/issues",$commit);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
=method close
|
|
||||||
|
|
||||||
set the given issue as closed
|
|
||||||
|
|
||||||
=cut
|
|
||||||
sub close
|
|
||||||
{
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
my $id = shift;
|
|
||||||
|
|
||||||
die("no id given") unless defined($id);
|
|
||||||
|
|
||||||
$id=~/^[A-Z]+-(.*)$/;
|
|
||||||
my $hash=$1;
|
|
||||||
|
|
||||||
$self->_load();
|
|
||||||
|
|
||||||
my $found=0;
|
|
||||||
my $index=0;
|
|
||||||
|
|
||||||
# check if issue is already closed
|
|
||||||
for my $i (@{$self->_closed})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
die("issue is already closed");
|
|
||||||
}
|
|
||||||
|
|
||||||
$index=0;
|
|
||||||
# search for the id in other status arrays
|
|
||||||
for my $i (@{$self->_open})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
push(@{$self->_closed}, $self->_open()->[$index]);
|
|
||||||
splice @{$self->_open},$index,1;
|
|
||||||
}
|
|
||||||
|
|
||||||
$index=0;
|
|
||||||
|
|
||||||
for my $i (@{$self->_assigned})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
push(@{$self->_closed}, $self->_assigned()->[$index]);
|
|
||||||
splice @{$self->_assigned},$index,1;
|
|
||||||
}
|
|
||||||
|
|
||||||
$index=0;
|
|
||||||
|
|
||||||
for my $i (@{$self->_inprogress})
|
|
||||||
{
|
|
||||||
if (substr($i->{ref},0,8) eq $hash)
|
|
||||||
{
|
|
||||||
$found=1;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
$index++;
|
|
||||||
}
|
|
||||||
if ($found)
|
|
||||||
{
|
|
||||||
push(@{$self->_closed}, $self->_inprogress()->[$index]);
|
|
||||||
splice @{$self->_inprogress},$index,1;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
my $roothash = $self->_createTree();
|
|
||||||
|
|
||||||
# commit the issue
|
|
||||||
my $commit=$self->repository->createTreeCommit($roothash,$self->repository->getBranchRef("heads/issues") || "start", "Close: " . $id);
|
|
||||||
|
|
||||||
#now update branch refs/heads/issues
|
|
||||||
$self->repository->updateRef("refs/heads/issues",$commit);
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user