summaryrefslogtreecommitdiff
path: root/infra/get-suites
blob: c5a4c5693558ece799338d57683d0db67c441b9b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/bin/bash
set -e
set -o pipefail

srvdir=/srv/dgit.debian.org
dgitlive=${DGIT_TEST_INTREE-$srvdir/dgit-live}
output=${DGIT_GETSUITES_OUTPUT-$srvdir/data/suites}

export PERLLIB="$dgitlive${PERLLIB+:}${PERLLIB}"

$dgitlive/dgit archive-api-query /suites | perl -we '
	use strict;
	use JSON;
	undef $/;
	my $json = <STDIN>;
	die $! if STDIN->error;
	my $items = decode_json $json;
	foreach my $item (@$items) {
		next unless ($item->{archive}//"") eq "ftp-master";
		next unless ($item->{codename});
		print $item->{codename}, "\n" or die $!;
	}
	flush STDOUT or die $!;
' >$output.new

mv -f $output.new $output