dani
/
lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix changelog generator

This commit is contained in:
Xavier Guimard 2018-05-14 22:52:55 +02:00
parent 496916bc52
commit c922da4fd0
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/generate-changelog.pl
View File

@ -6,7 +6,7 @@ use LWP::UserAgent;
use JSON;
my $milestone = '2.0.0';
my @cat = ( 'Bug', 'Improvement', 'New Feature' );
my @cat = ( 'Bug', 'Improvement', 'New feature' );
open F, "$ENV{HOME}/.ow2-token" or die "Unable to get OW2 token ($!)";
my $token = join '',<F>;
@ -16,12 +16,13 @@ $token =~ s/\s//sg or die "No token";
my $ua = LWP::UserAgent->new();
for (@cat) {
#s/ /%20/g;
my $res = $ua->get(
"https://gitlab.ow2.org/api/v4/projects/181/issues?label_name=$_&milestone_title=$milestone&state=all&private_token=$token"
"https://gitlab.ow2.org/api/v4/projects/181/issues?labels=$_&milestone=$milestone&state=all&scope=all&per_page=100&private_token=$token"
);
print "### $_\n";
$res = JSON::from_json( $res->content );
for my $i (@$res) {
while( my $i = pop @$res) {
print "$i->{iid} - $i->{title}\n";
}
print "\n";