/* N O T E S - to be removed before releaseexecutablel:\projects\libwww\www\linemode\pics\windows\windebug\wwwpics.exeworking dirl:\projects\libwww\www\library\implementation\windows\windebugargsdllsl:\projects\libwww\www\pics\implementation\windows\windebug\wwwpics.dllswitch to HTStrMatch*/#include <stdio.h>#include <string.h>#include "WWWLib.h"#include "WWWApp.h"#include "WWWFile.h"#include "HTHeader.h"#include "CSLApp.h"#include "CSParse.h"#include "CSLUtils.h"#include "CSLL.h"#include "CSUser.h"#include "CSUserSt.h"#include "CSUsrLst.h"/* ReqParms - list of pending HTRequests and their callbacks an' stuff */typedef struct {    HTRequest * pReq;    enum {reqState_NEW, reqState_PROT_REQ, reqState_BUREAU_START, 	  reqState_BUREAU_MIDDLE, reqState_BUREAU_DONE, 	  reqState_BUREAU_ERR} reqState;    CSDisposition_criteria criteria;/* if the criteria are met */    CSDisposition_callback * pCallback;	/*  call pCallback */    CSError_t disposition;	/*   with */    CSLabel_t * pCSLabel;	/*   all */    CSUser_t * pCSUser;		/*   these */    void * pVoid;		/*   parameters */    HTParentAnchor * anchor;    HTFormat outputFormat;    HTStream * outputStream;    HTMethod method;    } ReqParms_t;ReqParms_t DefaultReqParms = {0, reqState_NEW, CSApp_neverCall, 			      0, CSError_APP, 0, 0, 0};/* handy strings */PRIVATE char * S_mimeLabel = "PICS-Label";PRIVATE char * S_machRead = "application/x-pics-machine-readable";PRIVATE char * S_label = "application/pics-label";PRIVATE char * S_user = "application/x-pics-user";PRIVATE char * S_URLList = "application/x-url-list";PRIVATE HTList * ListWithHeaderGenerator = NULL;/* LoadURLToConverter - load a URL and set the output to go to converter.                        Useful for loading user list and profiles. */PRIVATE BOOL LoadURLToConverter(const char * url, const char * relatedName, 				const char * type, HTConverter * converter, 				const char * errMessage){    BOOL ret;    char * fullURL;    HTRequest * pRequest;    HTParentAnchor * pParentAnchor;    HTList * conversions = HTList_new();    pRequest = HTRequest_new();    fullURL = HTParse(url, relatedName, PARSE_ALL);    pParentAnchor = (HTParentAnchor *) HTAnchor_findAddress(fullURL);    HTRequest_setPreemptive(pRequest, YES);    if (converter) {        HTConversion_add(conversions, type, "*/*", converter, 1.0, 0.0, 0.0);	HTRequest_setConversion(pRequest, conversions, YES);    }    if ((ret = HTLoadAnchor((HTAnchor *) pParentAnchor, pRequest)) != YES)        HTPrint("PICS: Can't access %s.\n", errMessage);    if (converter)        HTConversion_deleteAll(conversions);    else        HTList_delete(conversions);    HTRequest_delete(pRequest);    HT_FREE(fullURL);    return ret;}/* This should be in CSUserList, but that would require    that LoadURLToConverter and S_URLList be PUBLIC and    added to some header, which one? */PUBLIC BOOL CSUserList_load(char * url, char * relatedName){    return LoadURLToConverter(url, relatedName, S_URLList, CSUserLists, 			      "PICS user list");}/* L O A D E D U S E R *//* LoadedUsers is a list of all the users who have    had their descritpion files loaded */typedef struct {    CSUser_t * pCSUser;    char *     url;} CSLoadedUser_t;PRIVATE HTList * LoadedUsers = 0;PRIVATE CSLoadedUser_t * CSLoadedUser_new(CSUser_t * pCSUser, char * url){    CSLoadedUser_t * pCSLoadedUser;    if ((pCSLoadedUser = (CSLoadedUser_t *)HT_MALLOC(sizeof(CSLoadedUser_t))) == NULL)        HT_OUTOFMEM("CSLoadedUser_t");    pCSLoadedUser->pCSUser = pCSUser;    pCSLoadedUser->url = 0;    StrAllocCopy(pCSLoadedUser->url, url);    return pCSLoadedUser;}PRIVATE void CSLoadedUser_delete(CSLoadedUser_t * pCSLoadedUser){    CSUser_free(pCSLoadedUser->pCSUser);    HT_FREE(pCSLoadedUser->url);    HT_FREE(pCSLoadedUser);}PRIVATE CSLoadedUser_t * CSLoadedUser_findUser(CSUser_t * pCSUser){    HTList * cur = LoadedUsers;    CSLoadedUser_t * pCSLoadedUser;    while ((pCSLoadedUser = (CSLoadedUser_t *) HTList_nextObject(cur))) {        if (pCSLoadedUser->pCSUser ==  pCSUser)            return pCSLoadedUser;    }    return 0;}PRIVATE CSLoadedUser_t * CSLoadedUser_findName(char * name){    HTList * cur = LoadedUsers;    CSLoadedUser_t * pCSLoadedUser;    while ((pCSLoadedUser = (CSLoadedUser_t *) HTList_nextObject(cur))) {        if (!strcasecomp(CSUser_name(pCSLoadedUser->pCSUser), name))            return pCSLoadedUser;    }    return 0;}PUBLIC BOOL CSLoadedUser_remove(CSUser_t * pCSUser){    CSLoadedUser_t * pCSLoadedUser;    if (!(pCSLoadedUser = CSLoadedUser_findUser(pCSUser)))        return NO;    HTList_removeObject(LoadedUsers, (void *)pCSLoadedUser);    CSLoadedUser_delete(pCSLoadedUser);    return YES;}/* PUBLIC version of findName */PUBLIC BOOL CSLoadedUser_find(char * name){    return (CSLoadedUser_findName(name) != 0);}PRIVATE CSLoadedUser_t * CSLoadedUser_findUrl(char * url){    HTList * cur = LoadedUsers;    CSLoadedUser_t * pCSLoadedUser;    while ((pCSLoadedUser = (CSLoadedUser_t *) HTList_nextObject(cur))) {        if (!strcasecomp(pCSLoadedUser->url, url))            return pCSLoadedUser;    }    return 0;}CSApp_userCallback * PUserCallback = 0;PUBLIC BOOL CSLoadedUser_add(CSUser_t * pCSUser, char * url){    int callBackRet;    CSLoadedUser_t * pCSLoadedUser;    callBackRet = (*PUserCallback)(pCSUser, DefaultReqParms.pVoid);    switch (callBackRet) {        case 1:            DefaultReqParms.pCSUser = pCSUser;	    HTTRACE(PICS_TRACE, "PICS: Setting default user to \"%s\".\n" _ CSUser_name(pCSUser));            break;	case 0:	    HTTRACE(PICS_TRACE, "PICS: Loaded user \"%s\".\n" _ CSUser_name(pCSUser));	    break;	case -1:	    HTTRACE(PICS_TRACE, "PICS: User \"%s\" not loaded.\n" _ CSUser_name(pCSUser));	    return YES;	default:	    HTTRACE(PICS_TRACE, "PICS: Aborting load user \"%s\".\n" _ CSUser_name(pCSUser));	    return NO;    }    if ((pCSLoadedUser = CSLoadedUser_findName(CSUser_name(pCSUser)))) {        HTPrint("PICS: Replacing previous user \"%s\".\n", 		CSUser_name(pCSUser));	HTList_removeObject(LoadedUsers, (void *)pCSLoadedUser);    }    pCSLoadedUser = CSLoadedUser_new(pCSUser, url);    return (HTList_addObject(LoadedUsers, (void *)pCSLoadedUser));}PUBLIC BOOL CSLoadedUser_deleteAll (void){    CSLoadedUser_t * pCSLoadedUser;    while ((pCSLoadedUser = (CSLoadedUser_t *) HTList_removeLastObject(LoadedUsers))) {        CSLoadedUser_delete(pCSLoadedUser);    }    HTList_delete(LoadedUsers);    LoadedUsers = NULL;    return YES;}PUBLIC int CSLoadedUser_enum(CSLoadedUserCallback * pCallback, void * pVoid){    HTList * cur = LoadedUsers;    CSLoadedUser_t * pCSLoadedUser;    int retVal, i = 0;    while ((pCSLoadedUser = (CSLoadedUser_t *) HTList_nextObject(cur))) {        if ((retVal = (*pCallback)(pCSLoadedUser->pCSUser, i, pVoid)) != CSError_OK)            return (retVal);        i++;    }    return 0;}PUBLIC CSUser_t * CSLoadedUser_load(char * url, char * relatedName){    BOOL err = 0;    char * fullURL = HTParse(url, relatedName, PARSE_ALL);    CSLoadedUser_t * pCSLoadedUser;    if (!LoadURLToConverter(fullURL, 0, 0, 0, "PICS user file"))/*    if (!LoadURLToConverter(fullURL, 0, S_user, CSParseUser, 			    "PICS user file", 0, 0, 0)) */        err = 1;    else if ((pCSLoadedUser = CSLoadedUser_findUrl(fullURL)) == NULL)        err = 1;    HT_FREE(fullURL);   return err ? 0 : pCSLoadedUser->pCSUser;}/* R E Q P A R M S */HTList * ReqParms = 0;PRIVATE ReqParms_t * ReqParms_new(HTRequest * pReq, CSUser_t * pCSUser, CSDisposition_callback * pCallback, CSDisposition_criteria criteria, void * pVoid){    ReqParms_t * me;    if ((me = (ReqParms_t *) HT_CALLOC(1, sizeof(ReqParms_t))) == NULL)        HT_OUTOFMEM("ReqParms_t");    me->pReq = pReq;    me->disposition = CSError_APP;    me->reqState = reqState_NEW;    me->pCSUser = pCSUser;    me->pCallback = pCallback;    me->criteria = criteria;    me->pVoid = pVoid;    return me;}PRIVATE void ReqParms_free(ReqParms_t * pReqParms){    HT_FREE(pReqParms);}PRIVATE ReqParms_t * ReqParms_copy(ReqParms_t * old){    ReqParms_t * me;    if ((me = (ReqParms_t *) HT_CALLOC(1, sizeof(ReqParms_t))) == NULL)        HT_OUTOFMEM("ReqParms_t");    me->pReq = old->pReq;    me->disposition = old->disposition;    me->reqState = old->reqState;    me->pCSUser = old->pCSUser;    me->pCallback = old->pCallback;    me->criteria = old->criteria;    me->pVoid = old->pVoid;    return me;}PRIVATE ReqParms_t * ReqParms_getReq(HTRequest * pReq){    HTList * cur = ReqParms;    ReqParms_t * pReqParms;    while ((pReqParms = (ReqParms_t *) HTList_nextObject(cur)))        if (pReqParms->pReq == pReq)            return pReqParms;    return 0;}/*PRIVATE ReqParms_t * ReqParms_getBureauReq(HTRequest * pBureauReq){    HTList * cur = ReqParms;    ReqParms_t * pReqParms;    while ((pReqParms = (ReqParms_t *) HTList_nextObject(cur)))        if (pReqParms->pBureauReq == pBureauReq)            return pReqParms;    return 0;}*/PRIVATE BOOL ReqParms_cache(ReqParms_t * pReqParms, CSLabel_t * pCSLabel){    return NO;}PRIVATE BOOL ReqParms_checkCache(ReqParms_t * pReqParms, int * pRet){    return NO;}PUBLIC BOOL CSApp_label(HTRequest * pReq, CSLabel_t * pCSLabel){    ReqParms_t * pReqParms;    if (!(pReqParms = ReqParms_getReq(pReq)))        pReqParms = &DefaultReqParms;/*    if (!(pReqParms = ReqParms_getBureauReq(pReq)))        pReqParms = &DefaultReqParms;    if (pReqParms->pBureauReq != pReq) {        HTPrint("PICS: Could not find original request\n");	return NO;    }*/    pReqParms->pCSLabel = pCSLabel;    pReqParms->disposition = CSCheckLabel_checkLabelAndUser(pCSLabel, 							   pReqParms->pCSUser);    ReqParms_cache(pReqParms, pCSLabel);    return YES;}PRIVATE int ReqParms_checkDisposition(ReqParms_t * pReqParms){    int kill;    kill = pReqParms->disposition != CSError_OK;    if ((kill && pReqParms->criteria & CSApp_callOnBad) || 	(!kill && pReqParms->criteria & CSApp_callOnGood))        pReqParms->disposition = (*pReqParms->pCallback)(pReqParms->pReq, 							 pReqParms->pCSLabel, 							 pReqParms->pCSUser, 						       pReqParms->disposition,