diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-06-28 23:54:13 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-06-28 23:54:13 +0100 |
commit | 76cbbc78a07e44b4c917bbaa93bf7cd602387082 (patch) | |
tree | 47f69b5db2e9de7e0fad3ed1af0018b02d786ccb | |
parent | 64c9202d27994e1b0f433d462f2e5704799d6cc8 (diff) |
Infra: Add get-suites
-rw-r--r-- | Makefile | 2 | ||||
-rwxr-xr-x | infra/get-suites | 26 |
2 files changed, 27 insertions, 1 deletions
@@ -36,7 +36,7 @@ PERLMODULES=Debian/Dgit.pm INFRA_PROGRAMS=dgit-repos-server dgit-ssh-dispatch \ dgit-repos-policy-debian dgit-repos-admin-debian \ dgit-repos-policy-trusting -INFRA_EXAMPLES=get-dm-txt ssh-wrap drs-cron-wrap +INFRA_EXAMPLES=get-dm-txt ssh-wrap drs-cron-wrap get-suites INFRA_PERLMODULES=Debian/Dgit/Policy/Debian.pm all: diff --git a/infra/get-suites b/infra/get-suites new file mode 100755 index 0000000..c5a4c56 --- /dev/null +++ b/infra/get-suites @@ -0,0 +1,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 |