plagger-script-github-issues.pl

#!/usr/bin/perl
# Convert GitHub Issues API to RSS feeds using Plagger
# script:scripts/github-issues.pl miyagawa/remedie
use strict;
use warnings;
use LWP::Simple;
use JSON::XS;

my $proj = shift @ARGV || "miyagawa/remedie";
my $json = get("http://github.com/api/v2/json/issues/list/$proj/open");
my $data = decode_json $json;

my $feed = {
    title => "GitHub $proj issues",
    link  => "http://github.com/$proj/issues",
};

for my $issue (@{$data->{issues}}) {
    push @{$feed->{entries}}, {
        title => "$issue->{number}: $issue->{title}",
        body => $issue->{body},
        date => $issue->{updated_at},
        link => "http://github.com/$proj/issues/$issue->{number}/find",
    };
}

use YAML;
print YAML::Dump $feed;