/*								     CSUsrLst.c
*/

/* Library include files */
#include "WWWLib.h"
#include "CSLApp.h"

struct _HTStream {
    const HTStreamClass *	isa;
    HTRequest *			request;
    HTStream *			target;
    HTChunk *			buffer;
    HTEOLState			EOLstate;
/*    HTList *                    URLs; */
};

HTList * UserList = 0;

typedef struct {
	char * name;
	char * url;
} UserListStruct_t;

PRIVATE BOOL CSUserList_addLine(HTStream * me)
{
	UserListStruct_t * newEl;
	char * pURL;
	char * end;
	end = strrchr(HTChunk_data(me->buffer), ' ');
	pURL = end + 1;
	while (*(end-1) == ' ')
		end--;
	*end = 0;
	if ((newEl = (UserListStruct_t *)HT_CALLOC(1, sizeof(UserListStruct_t))) == NULL)
		HT_OUTOFMEM("UserListStruct_t");
    StrAllocCopy(newEl->name, HTChunk_data(me->buffer));
    StrAllocCopy(newEl->url, pURL);
/*    HTList_addObject(me->URLs, (void *)pURL); */
    HTList_addObject(UserList, (void *)newEl);
    return YES;
}

PUBLIC BOOL CSUserList_destroy(void)
{
    char * userName;

    while ((userName = (char *) HTList_removeLastObject(UserList)))
        HT_FREE(userName);
    HTList_delete(UserList);
    UserList = NULL;
    return YES;
}

PUBLIC char * CSUserList_findURL(char * username)
{
    HTList * cur = UserList;
    UserListStruct_t * pUser;
    while ((pUser = (UserListStruct_t *) HTList_nextObject(cur))) {
        if (!strcasecomp(username, pUser->name))
            return pUser->url;
    }
    return 0;
}

PUBLIC int CSUserList_enum(CSUserListCallback* pCallback, void * pVoid)
{
    HTList * cur = UserList;
    UserListStruct_t * pUser;
    int retVal, i = 0;
    while ((pUser = (UserListStruct_t *) HTList_nextObject(cur))) {
        if ((retVal = (*pCallback)(pUser->name, pUser->url, i, pVoid)) != CSError_OK)
            return (retVal);
        i++;
    }
    return 0;
}

/*
**	Folding is either of CF LWS, LF LWS, CRLF LWS
*/
PRIVATE int CSUserList_put_block (HTStream * me, const char * b, int l)
{
    while (l > 0) {
	if (me->EOLstate == EOL_FCR) {
	    if (*b == LF)				   	     /* CRLF */
			me->EOLstate = EOL_FLF;
	    else if (isspace((int) *b))				   /* Folding: CR SP */
			me->EOLstate = EOL_DOT;
	    else {						 /* New line */
			CSUserList_addLine(me);
			me->EOLstate = EOL_BEGIN;
			HTChunkClear(me->buffer);
			continue;
	    }
	} else if (me->EOLstate == EOL_FLF) {
	    if (isspace((int) *b))		       /* Folding: LF SP or CR LF SP */
			me->EOLstate = EOL_DOT;
	    else {						/* New line */
			CSUserList_addLine(me);
			me->EOLstate = EOL_BEGIN;
			HTChunkClear(me->buffer);
			continue;
			}
	} else if (me->EOLstate == EOL_DOT) {
	    if (isspace((int) *b)) {
			me->EOLstate = EOL_BEGIN;
			HTChunkPutc(me->buffer, ' ');
	    } else {
			CSUserList_addLine(me);
			me->EOLstate = EOL_BEGIN;
			HTChunkClear(me->buffer);
			continue;
	    }
	} else if (*b == CR) {
	    me->EOLstate = EOL_FCR;
	} else if (*b == LF) {
	    me->EOLstate = EOL_FLF;			       /* Line found */
	} else
	    HTChunkPutc(me->buffer, *b);
	l--; b++;
    }
    if (HTChunk_size(me->buffer))
        CSUserList_addLine(me);
    return HT_OK;
}

PRIVATE int CSUserList_put_character (HTStream * me, char c)
{
    return CSUserList_put_block(me, &c, 1);
}

PRIVATE int CSUserList_put_string (HTStream * me, const char * s)
{
    return CSUserList_put_block(me, s, (int) strlen(s));
}

PRIVATE int CSUserList_flush (HTStream * me)
{
    return (*me->target->isa->flush)(me->target);
}

PRIVATE int CSUserList_free (HTStream * me)
{
    int status = HT_OK;
    if (me->target) {
	if ((status = (*me->target->isa->_free)(me->target)) == HT_WOULD_BLOCK)
	    return HT_WOULD_BLOCK;
    }
    HTTRACE(APP_TRACE, "Rules....... FREEING....\n");
    HTChunkFree(me->buffer);
/*    HTList_delete(me->URLs); */
   HT_FREE(me);
    return status;
}

PRIVATE int CSUserList_abort (HTStream * me, HTList * e)
{
    int status = HT_ERROR;
    if (me->target) status = (*me->target->isa->abort)(me->target, e);
    HTTRACE(APP_TRACE, "Rules....... ABORTING...\n");
    HTChunkFree(me->buffer);
/*    HTList_delete(me->URLs); */
   HT_FREE(me);
    return status;
}

/*	Structured Object Class
**	-----------------------
*/
PRIVATE const HTStreamClass CSUserListClass =
{		
    "URLListCollector",
    CSUserList_flush,
    CSUserList_free,
    CSUserList_abort,
    CSUserList_put_character,
    CSUserList_put_string,
    CSUserList_put_block
};

PUBLIC HTStream * CSUserLists (HTRequest *	request,
               	              void *	param,
               	              HTFormat	input_format,
               	              HTFormat	output_format,
               	              HTStream *	output_stream)
{
    HTStream * me;
    if ((me = (HTStream *) HT_CALLOC(1, sizeof(HTStream))) == NULL)
        HT_OUTOFMEM("CSUserLists");
    me->isa = &CSUserListClass;
    me->request = request;
    me->target = output_stream;
    me->buffer = HTChunkCreate(512);
/*    me->URLs = HTList_new(); */
    if (!UserList)
        UserList = HTList_new();
    me->EOLstate = EOL_BEGIN;
/*
    if (HTRequest_context(request))
        *((HTList **)HTRequest_context(request)) = me->URLs;
*/
    return me;
}