/*******************************************/
/* _mhttponpres.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 (port)=
  _fooS strcat "initHttpUnpluggedChannel " itoa port;
  let search_in_list http_servers_list @http_serverByPort_s port -> serv in
  let search_in_list serv.Http_Chn_Server_clients @clibychannel_s _channel -> client in
  {
    _fooI _channel;
    _fooS strcat "  serv==" if serv==nil then "NIL" else "OK";
    _fooS strcat "  _http_channel==" if client==nil then "NIL" else "OK";
    set _http_channel = Http_Chn_Server client;
  };;