1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/env perl
use strict;
use warnings;
use Pithub::Repos::Releases ();
# https://api.github.com/repos/Graylog2/graylog2-server/releases
my $input = $ARGV[0] || 'Graylog2/graylog2-server';
my ( $user, $repo ) = split qr{/}, $input;
my $result
= Pithub::Repos::Releases->new->list( user => $user, repo => $repo );
unless ( $result->success ) {
printf "something is fishy: %s\n", $result->response->status_line;
exit 1;
}
while ( my $row = $result->next ) {
printf "%s\n", $row->{name};
}
|
