From 4d1ab9278a03c2d00dd31ae150f9f77bfe581f18 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 9 Oct 2013 07:21:45 +0100
Subject: [PATCH 1/1] wip changes for remote push - implement i_resp_*

---
 TODO |  3 ++-
 dgit | 27 +++++++++++++++++++++++++++
 2 files changed, 29 insertions(+), 1 deletion(-)

diff --git a/TODO b/TODO
index 7a3d6883..f61fa501 100644
--- a/TODO
+++ b/TODO
@@ -1,4 +1,5 @@
-implement i_resp_*
+implement i_localname_*
+implement i_want_*
 
 --gpg= etc. @gpg should be in manual
 should pass @gpg to debsign
diff --git a/dgit b/dgit
index b551eacd..eb6f01de 100755
--- a/dgit
+++ b/dgit
@@ -1406,7 +1406,34 @@ sub cmd_rpush {
     };
     i_cleanup();
     die $@;
+}
+
+sub i_resp_progress ($) {
+    my ($rhs) = @_;
+    my $msg = protocol_read_bytes \*RO, $rhs;
+    progress $msg;
+}
+
+sub i_resp_complete {
+    i_cleanup();
+    exit 0;
+}
+
+sub i_resp_file ($) {
+    my ($keyword) = @_;
+    my $localname = i_method "i_localname_", $keyword;
+    my $localpath = "$i_tmp/$localname";
+    stat $localpath and badproto \*RO, "file $keyword ($localpath) twice";
+    protocol_receive_file \*RO, $localpath;
+}
+
+sub i_resp_want ($) {
+    my ($keyword) = @_;
+    my @localpaths = i_method "i_want_", $keyword;
+    foreach my $localpath (@localpaths) {
+	protocol_send_file \*RI, $localpath;
     }
+    print RI "end-files\n" or die $!;
 }
 
 #---------- building etc. ----------
-- 
2.30.2