From 74b799af1adbbda7f2cd3f9c0fd9bf2bad2b179c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 26 Dec 2022 23:39:14 +0000
Subject: policy-client-query: implement dispatcher in dgit-ssh-dispatch

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 infra/dgit-ssh-dispatch | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/infra/dgit-ssh-dispatch b/infra/dgit-ssh-dispatch
index c5861d2..bc23a4b 100755
--- a/infra/dgit-ssh-dispatch
+++ b/infra/dgit-ssh-dispatch
@@ -173,6 +173,15 @@ sub dispatch () {
     } elsif (m#^${qre}git-upload-pack\s#) {
 	die "unknown repo to serve ($_).  use dgit, or for server source ".
 	    "git clone here:/dgit/DISTRO/repos/_dgit-repos-server.git";
+    } elsif (m#^: dgit ($lre) policy-client-query ($lre) ($lre) ([^;]*) ;#) {
+	my $query_op = $3;
+	my $query_args = $4;
+	selectpackage $1,$2;
+        my @cmd = ($policyhook,$distro,$repos,$dgitlive,$d,
+		   'policy-client-query', $pkg, $query_op,
+		   split / /, $query_args);
+	exec @cmd;;
+	die "exec $cmd[0]: $!";
     } else {
 	die "unsupported operation ($_)";
     }
-- 
cgit v1.2.3