"NCSA" : "TCPC"));
"NCSA" : "TCPC")));
PRIVATE void get_ftp_pwd ARGS2(	int *,		ServerType,	BOOLEAN *,	UseList){    char *cp;    /* get the working directory (to see what it looks like) */    int status = response("PWD\r\n");    if (status < 0) {	return;    } else {	cp = strchr(response_text+5,'"');	if (cp)	    *cp = '\0';	if (*ServerType == TCPC_SERVER) {	    *ServerType = ((response_text[5] == '/') ?					  NCSA_SERVER : TCPC_SERVER);	    CTRACE(tfp, "HTFTP: Treating as %s server.\n",			 ((*ServerType == NCSA_SERVER) ?						 "NCSA" : "TCPC"));	} else if (response_text[5] == '/') {	    /* path names beginning with / imply Unix,	     * right?	     */	    if (set_mac_binary(*ServerType)) {		*ServerType = NCSA_SERVER;		CTRACE(tfp, "HTFTP: Treating as NCSA server.\n");	    } else {		 *ServerType = UNIX_SERVER;		 *UseList = TRUE;		 CTRACE(tfp, "HTFTP: Treating as Unix server.\n");	    }	    return;	} else if (response_text[strlen(response_text)-1] == ']') {	    /* path names ending with ] imply VMS, right? */	    *ServerType = VMS_SERVER;	    *UseList = TRUE;	    CTRACE(tfp, "HTFTP: Treating as VMS server.\n");	} else {	    *ServerType = GENERIC_SERVER;	    CTRACE(tfp, "HTFTP: Treating as Generic server.\n");	}	if ((*ServerType == NCSA_SERVER) ||	    (*ServerType == TCPC_SERVER) ||	    (*ServerType == PETER_LEWIS_SERVER) ||	    (*ServerType == NETPRESENZ_SERVER))	    set_mac_binary(*ServerType);    }}