policy-client-query: implement dispatcher in dgit-ssh-dispatch

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 9 insertions, 0 deletions

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 ($_)";
     }