/*
** This function tries really hard to find a non-existent filename relative
** to the path given. Returns a string that must be freed by the caller or
** NULL on error.
*/
PRIVATE char * get_filename (char * base, const char * uri,
const char * suffix, BOOL use_last_segment)
{
char * path = NULL;
if (use_last_segment) {
char * uri_path = NULL;
if (uri && (uri_path = HTParse(uri, "", PARSE_PATH|PARSE_PUNCTUATION))) {
char * last_segment = strrchr(uri_path, '/');
BOOL slash = (base && *(base+strlen(base)-1)==DIR_SEPARATOR_CHAR);
if (last_segment && *(last_segment+1)) {
StrAllocMCopy(&path, base ? base : "",
slash ? "" : DIR_SEPARATOR_STR, ++last_segment, NULL);
} else {
StrAllocMCopy(&path, base ? base : "",
slash ? "" : DIR_SEPARATOR_STR, DEFAULT_LAST_SEGMENT,
suffix ? suffix : "", NULL);
}
}
} else {
path = HTGetTmpFileName(base);
if (path && suffix) StrAllocCat(path, suffix);
}
HTTRACE(STREAM_TRACE, "Save file... Temporaray file `%s\'\n" _ path ? path : "<null>");
return path;
}
/*
** Creates a temporary anchor that doesn't exist
*/
PUBLIC HTParentAnchor * HTTmpAnchor (HTUserProfile * up)
{
static int offset = 0; /* Just keep counting... */
HTParentAnchor * htpa = NULL;
time_t t = time(NULL);
char * tmpfile = HTGetTmpFileName(HTUserProfile_tmp(up));
char * tmpurl = HTParse(tmpfile, "file:", PARSE_ALL);
if (tmpfile && tmpurl && t >= 0) {
char * result;
if (!(result = (char *) HT_MALLOC(strlen(tmpurl)+20)))
HT_OUTOFMEM("HTTmpAnchor");
#ifdef HAVE_LONG_TIME_T
sprintf(result, "%s.%ld.%d", tmpurl, t, offset++);
#else
sprintf(result, "%s.%d.%d", tmpurl, t, offset++);
#endif
HTTRACE(APP_TRACE, "Tmp Anchor.. With location `%s\'\n" _ result);
htpa = HTAnchor_parent(HTAnchor_findAddress(result));
HT_FREE(result);
}
HT_FREE(tmpfile);
HT_FREE(tmpurl);
return htpa;
}
