redmine

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use JSON;
use Data::Dumper;

my $pdurbin = 4;
my $leonid  = 11;
my $user;
$user = $pdurbin;
#$user = $leonid;
my $base_url    = 'https://redmine.hmdc.harvard.edu';
my $issues_json = "$base_url/issues.json?limit=100&assigned_to_id=$user";

my $content = get($issues_json);
die "Couldn't download $issues_json " unless defined $content;

my $data = from_json($content);

for my $i ( sort by_release_then_priority @{ $$data{issues} } ) {
    printf(
        @ARGV && $ARGV[0] eq '-v'
        ? "%s %s (%s)\n - %s %s, %s %s, %s\n - %s\n\n"
        : "%s %s (%s)\n",

        "#$i->{id}",
        $i->{subject},
        $i->{fixed_version}{name} || '?.?',

        "$i->{priority}{name} priority",
        lc( $i->{tracker}{name} || '?' ),
        lc("$i->{status}{name} for"),
        $i->{fixed_version}{name} || '?.?',
        "$i->{done_ratio}% done",
        "$base_url/issues/$i->{id}",
    );
}

sub by_release {
    $$a{fixed_version}{name} cmp $$b{fixed_version}{name};
}

sub by_priority {
    $$b{priority}{id} <=> $$a{priority}{id};
}

sub by_release_then_priority {
    $$a{fixed_version}{name} cmp $$b{fixed_version}{name}
      || $$b{priority}{id} <=> $$a{priority}{id};
}