int status = NETCLOSE(con->socket); if (TRACE) { CTRACE(tfp, "HTFTP: Closing control socket %d\n", con->socket);
int status; CTRACE((tfp, "HTFTP: Closing control socket %d\n", con->socket)); status = NETCLOSE(con->socket); if (TRACE && status != 0) {
PRIVATE int close_connection ARGS1(	connection *,	con){    connection * scan;    int status = NETCLOSE(con->socket);    if (TRACE) {	CTRACE(tfp, "HTFTP: Closing control socket %d\n", con->socket);#ifdef UNIX	if (status != 0)	    perror("HTFTP:close_connection");#endif    }    con->socket = -1;    if (connections == con) {	connections = con->next;	return status;    }    for (scan = connections; scan; scan = scan->next) {	if (scan->next == con) {	    scan->next = con->next;	/* Unlink */	    if (control == con)		control = (connection*)0;	    return status;	} /*if */    } /* for */    return -1;		/* very strange -- was not on list. */}