int web_open_server	(	char *	task,
		void(*)()	read_ast,
		int *	protocol,
		int *	port,
		void(*)()	error_ast
	)

Definition at line 199 of file webTcpip.c.

References ast_conn_h(), conn_free(), conn_get(), DIM_ERROR, DIMTCPLNERR, DIMTCPOPERR, dna_close(), Dna_conns, dna_open_client(), dna_report_error(), DNA_CONNECTION::error_ast, FALSE, DNA_CONNECTION::protocol, DNA_CONNECTION::read_ast, TCPIP, tcpip_failure(), tcpip_open_server(), tcpip_start_listen(), and DNA_CONNECTION::writing.

{
        register DNA_CONNECTION *dna_connp;
        register int tcpip_code;
        register int conn_id;

        conn_id = dna_open_client("", "", 0, 0, 
                                        0, 0, 0);
        dna_close(conn_id);
/*
        if(!DNA_Initialized)
        {
                conn_arr_create(SRC_DNA);
                DNA_Initialized = TRUE;
        }
*/
        *protocol = PROTOCOL;
        conn_id = conn_get();
        dna_connp = &Dna_conns[conn_id];
/*
        if(!conn_id)
                dim_panic("In dna_open_server: No more connections\n");
*/
        dna_connp->protocol = TCPIP;
        dna_connp->error_ast = error_ast;
        tcpip_code = tcpip_open_server(conn_id, task, port);
        if(tcpip_failure(tcpip_code))
        {
                dna_report_error(conn_id, tcpip_code,
                        "Opening server port", DIM_ERROR, DIMTCPOPERR);
                conn_free(conn_id);
                return(0);
        }
        dna_connp->writing = FALSE;
        dna_connp->read_ast = read_ast;
        tcpip_code = tcpip_start_listen(conn_id, ast_conn_h);
        if(tcpip_failure(tcpip_code))
        {
                dna_report_error(conn_id, tcpip_code, "Listening at", DIM_ERROR, DIMTCPLNERR);
                return(0);
        }
        return(conn_id);
}

Here is the call graph for this function: