syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Send subscription from server to new client

This commit is contained in:
Tony Garnock-Jones 2012-04-29 16:41:58 -04:00
parent 6c77e30da4
commit fdacc9ef84
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ui_relay.ml
View File

@ -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;