PUBLIC HTStream * HTBoundary (HTRequest * request,
void * param,
HTFormat input_format,
HTFormat output_format,
HTStream * output_stream)
{
HTResponse * response = HTRequest_response(request);
HTParentAnchor * anchor = HTRequest_anchor(request);
HTAssocList * type_param = response ?
HTResponse_formatParam(response) :
HTAnchor_formatParam(anchor);
char * boundary = HTAssocList_findObject(type_param, "boundary");
if (boundary) {
HTStream * me;
if ((me = (HTStream *) HT_CALLOC(1, sizeof(HTStream))) == NULL)
HT_OUTOFMEM("HTBoundary");
me->isa = &HTBoundaryClass;
me->request = request;
me->format = output_format;
me->orig_target = output_stream;
me->debug = HTRequest_debugStream(request);
me->state = EOL_FLF;
StrAllocCopy(me->boundary, boundary); /* Local copy */
me->bpos = me->boundary;
HTTRACE(STREAM_TRACE, "Boundary.... Stream created with boundary '%s\'\n" _ me->boundary);
return me;
} else {
HTTRACE(STREAM_TRACE, "Boundary.... UNKNOWN boundary!\n");
return HTErrorStream();
}
}
/*
** Take the relevant infomration from the response object and cache it
** in the anchor object. We inherit the information that is already
** parsed in the response along with the unparsed headers.
*/
PUBLIC BOOL HTAnchor_update (HTParentAnchor * me, HTResponse * response)
{
if (me && response) {
HTCachable cachable = HTResponse_isCachable(response);
if (cachable == HT_CACHE_ETAG) {
char * etag = HTResponse_etag(response);
HTTRACE(ANCH_TRACE, "HTAnchor.... Updating etag for %p\n" _ me);
if (etag) {
HTAnchor_setEtag(me, etag);
return YES;
}
} else if (cachable == HT_CACHE_NOT_MODIFIED) {
HTTRACE(ANCH_TRACE, "HTAnchor.... Information is up to date for %p\n" _ me);
return YES;
} else if (cachable == HT_CACHE_ALL) {
char * etag = HTResponse_etag(response);
HTTRACE(ANCH_TRACE, "HTAnchor.... Updating metainformation for %p\n" _ me);
/*
** The content length and type is already parsed at this point
** in time. We also check for format parameters like charset etc.
** and copy the contents in the anchor object
*/
me->content_length = HTResponse_length(response);
me->content_type = HTResponse_format(response);
me->type_parameters = HTResponse_formatParam(response);
me->content_encoding = HTResponse_encoding(response);
/* Don't forget the etag as well */
if (etag) HTAnchor_setEtag(me, etag);
/*
** Inherit all the unparsed headers - we may need them later!
*/
if (me->headers) HTAssocList_delete(me->headers);
me->headers = HTResponse_handOverHeader(response);
/*
** Notifify the response object not to delete the lists that we
** have inherited in the anchor object
*/
HTResponse_isCached(response, YES);
/*
** Set the datestamp of when the anchor was updated if we didn't
** get any in the response
*/
if (!HTAssocList_findObject(me->headers, "date"))
HTAnchor_setDate(me, time(NULL));
return YES;
}
}
return NO;
}