/*******************************************/
/* _mhttponprec.pkg : _on by http :-)      */
/* by Marc Barilley                        */
/* inspired by work done by Sylvain Huet   */
/* supports switch beetween _on / HTTPsend */
/*******************************************/

typeof _http_channel = Http_Chn;;

fun initHttpUnpluggedChannel ()=
  _fooS "initHttpUnpluggedChannel";
  let search_in_list http_clients_list @clibychannel_c _channel -> x in
  {
    _fooS strcat "  http_clients_list == " if http_clients_list==nil then "NIL" else "OK";
    _fooS strcat "  _http_channel == " if x==nil then "NIL" else "OK";
    set _http_channel = Http_Chn_Client x
  };;

fun __http_syscmd_init_connexion_ticket(ticket)=
  let search_in_list http_clients_list @clibychannel_c _channel -> c in
  {
    set c.Http_Chn_Client_ticket = ticket;
    flush_http_c c;
  };;