rem: entry = Ns_CacheFindEntry(cache, argv[2]); if (entry != NULL) { Ns_CacheFlushEntry(entry);
add: if (argc == 2) { Ns_CacheFlush(cache); } else { entry = Ns_CacheFindEntry(cache, argv[2]); if (entry == NULL) { Tcl_SetResult(interp, "0", TCL_STATIC); } else { Tcl_SetResult(interp, "1", TCL_STATIC); Ns_CacheFlushEntry(entry); }
context: NsTclCacheFlushCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv){    Ns_Cache *cache;    Ns_Entry *entry;        if (argc != 3) {	Tcl_AppendResult(interp, "wrong # args: should be \"",	    argv[0], " cache key?\"", NULL);	return TCL_ERROR;    }    if (GetCache(interp, argv[1], (Cache **) &cache) != TCL_OK) {    	return TCL_ERROR;    }    Ns_CacheLock(cache);    entry = Ns_CacheFindEntry(cache, argv[2]);    if (entry != NULL) {	Ns_CacheFlushEntry(entry);    }    Ns_CacheUnlock(cache);    return TCL_OK;}