From fdacc9ef8468f8b1eefbfdc2f1ea3b391817979c Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 29 Apr 2012 16:41:58 -0400
Subject: [PATCH] Send subscription from server to new client

---
 ui_relay.ml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ui_relay.ml b/ui_relay.ml
index 21faf3a..0e43708 100644
--- a/ui_relay.ml
+++ b/ui_relay.ml
@@ -41,6 +41,9 @@ let rec api_tap_source id r =
   then Httpd.http_error_html 500 "Internal ID collision" []
   else
     let id_block_and_padding = Stringstream.const_flush (id ^ ";" ^ String.make 2048 'h' ^ ";") in
+    handle_message n (Message.subscribe (Sexp.Str (Node.local_container_name()),
+					 Sexp.Str "", Sexp.Str "",
+					 Sexp.Str "", Sexp.Str ""));
     Httpd.add_completion_callback
       (Httpd.resp_generic 200 "Streaming"
 	 [Httpd.text_content_type_header;