diff options
-rwxr-xr-x | infra/dgit-repos-policy-debian | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian index 3722833..f110fa3 100755 --- a/infra/dgit-repos-policy-debian +++ b/infra/dgit-repos-policy-debian @@ -512,6 +512,29 @@ sub action_check_list () { return 0; } +sub polclqu_tainted_objects () { + print STDERR "1 $pkg "; + my $topq = $poldbh->selectall_arrayref(<<END, + SELECT taint_id, gitobjtype, gitobjid, time, comment + FROM taints + WHERE package = ? +END + { Slice => {} }, + $pkg); + foreach my $row (@$topq) { + my $delibs = $poldbh->selectall_arrayref(<<END, + SELECT deliberately + FROM taintoverrides + WHERE taint_id = ? +END + { }, + $row->{taint_id}); + $row->{overrides} = [ map { $_->[0] } @$delibs ]; + delete $row->{taint_id}; + } + print encode_json $topq, "\n" or die $!; +} + my $fn_name; if ($action eq 'policy-client-query') { |