Send subscription from server to new client
This commit is contained in:
parent
6c77e30da4
commit
fdacc9ef84
|
@ -41,6 +41,9 @@ let rec api_tap_source id r =
|
||||||
then Httpd.http_error_html 500 "Internal ID collision" []
|
then Httpd.http_error_html 500 "Internal ID collision" []
|
||||||
else
|
else
|
||||||
let id_block_and_padding = Stringstream.const_flush (id ^ ";" ^ String.make 2048 'h' ^ ";") in
|
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.add_completion_callback
|
||||||
(Httpd.resp_generic 200 "Streaming"
|
(Httpd.resp_generic 200 "Streaming"
|
||||||
[Httpd.text_content_type_header;
|
[Httpd.text_content_type_header;
|
||||||
|
|
Loading…
Reference in New Issue