diff options
| -rw-r--r-- | debian/control | 2 | ||||
| -rwxr-xr-x | src/japi | 64 |
2 files changed, 54 insertions, 12 deletions
diff --git a/debian/control b/debian/control index 940ce61..bf55428 100644 --- a/debian/control +++ b/debian/control @@ -10,6 +10,6 @@ Vcs-Browser: http://web.buetow.org/git/?p=japi.git;a=summary Package: japi Architecture: all -Depends: +Depends: libmoo-perl, libconfigreader-simple-perl Description: Command line tool for Jira This is a small tool to list open issues in JIRA via the REST API @@ -1,13 +1,62 @@ #!/usr/bin/env perl +package Fapi; + +use namespace::clean; +use v5.14; use strict; use warnings; +use autodie; + +# From Debian Repos +use Moo; + +# From CPAN +use JIRA::REST; + +# Object attributes +has config => ( is => 'ro' ); + +sub created_str { + my $created = shift; + + # Parse 2014-02-19T11:56:47.000+0100 + my ($y, $m, $d, $t) = $created =~ + /^(\d{4})-(\d\d)-(\d\d)T(\d\d:\d\d:\d\d)/; + + return "$d.$m.$y $t"; +} + +sub get_open_issues { + my $self = shift; + + $self->config->directives(); +} + +1; + +package main; use v5.14; +use strict; +use warnings; +use autodie; use Data::Dumper; +use ConfigReader::Simple; + +my $config_file = './japi.conf'; + +my $config = ConfigReader::Simple->new($config_file, + ['uri', 'user', 'pass64', 'query', 'webase']); + +say Dumper $config; -use JIRA::REST; # From CPAN +my $japi = Fapi->new(config => $config); + +say Dumper $japi->get_open_issues(); + +__END__ my $jira_uri = 'https://po-jira.1and1.com/rest/api/2'; my $jira_user = 'pbuetow'; @@ -21,23 +70,15 @@ my $jira = JIRA::REST->new($jira_uri, $jira_user, $jira_pass); my $result = $jira->GET($query); my $issues = $result->{issues}; -sub created { - my $created = shift; - - # Parse 2014-02-19T11:56:47.000+0100 - my ($y, $m, $d, $t) = $created =~ /^(\d{4})-(\d\d)-(\d\d)T(\d\d:\d\d:\d\d)/; - - return "$d.$m.$y $t"; -} map { my $f = $_->{fields}; my $r = $f->{reporter}; - say "Summary: $f->{summary}"; + say '-' x 80; say 'Created: ' . created($f->{created})." Reporter: $r->{displayName} ($r->{name})"; + say "Summary: $f->{summary}"; say "URL: $web_base$_->{key}"; - say '-' x 80; } sort { $a->{fields}{created} cmp $b->{fields}{created}; @@ -47,6 +88,7 @@ map { } @$issues; +say ''; say '==> Found ' . scalar(@$issues) . ' issues'; #say Dumper $issues->[0]; |