#!/usr/bin/perl -w
# zypper in perl-libwww-perl perl-LWP-Protocol-https perl-JSON-XS
use strict;
use LWP::UserAgent ();
use JSON::XS;
our $UA = LWP::UserAgent->new(
parse_head=>0,
timeout=>9,
agent=>"bmwiedemann/perl-get-packages/0.02",
keep_alive => 5);
sub process($)
{ my $url = shift;
while($url) {
my $response = $UA->request(HTTP::Request->new('GET', $url));
my $json = $response->content;
my $data = decode_json($json);
for my $p (@{$data->{projects}}) {
print $p->{name},"\n";
}
$url = $data->{pagination}->{next};
}
}
process("https://code.opensuse.org/api/0/projects?namespace=package&short=1&per_page=100");