netsurf/desktop/loginlist.c

/*
 * This file is part of NetSurf, http://netsurf.sourceforge.net/
 * Licensed under the GNU General Public License,
 *                http://www.opensource.org/licenses/gpl-license
 * Copyright 2003 John M Bell <jmb202@ecs.soton.ac.uk>
 */

#define NDEBUG

#include <assert.h>
#include <string.h>
#include "netsurf/utils/config.h"
#include "netsurf/desktop/401login.h"
#include "netsurf/utils/log.h"
#include "netsurf/utils/url.h"
#include "netsurf/utils/utils.h"

#ifdef WITH_AUTH

void login_list_dump(void);

/**
 * Pointer into the linked list
 */
static struct login login = {0, 0, &login, &login};
static struct login *loginlist = &login;

/**
 * Adds an item to the list of login details
 */
void login_list_add(char *host, char* logindets)
{
	struct login *nli;
	char *temp;
	char *i;
	url_func_result res;

	nli = calloc(1, sizeof(*nli));
	if (!nli) {
		warn_user("NoMemory", 0);
		return;
	}

	res = url_host(host, &temp);

	if (res != URL_FUNC_OK) {
		free(temp);
		free(nli);
		warn_user("NoMemory", 0);
		return;
	}

	/* Go back to the path base ie strip the document name
	 * eg. http://www.blah.com/blah/test.htm becomes
	 *     http://www.blah.com/blah/
	 * This does, however, mean that directories MUST have a '/' at the end
	 */
	if (strlen(temp) < strlen(host)) {
		free(temp);
		temp = strdup(host);
		if (!temp) {
			free(nli);
			warn_user("NoMemory", 0);
			return;
		}
		if (temp[strlen(temp)-1] != '/') {
			i = strrchr(temp, '/');
			temp[(i-temp)+1] = 0;
		}
	}

	nli->host = strdup(temp);
	if (!nli->host) {
		free(temp);
		free(nli);
		warn_user("NoMemory", 0);
		return;
	}
	nli->logindetails = strdup(logindets);
	if (!nli->logindetails) {
		free(nli->host);
		free(temp);
		free(nli);
		warn_user("NoMemory", 0);
		return;
	}
	nli->prev = loginlist->prev;
	nli->next = loginlist;
	loginlist->prev->next = nli;
	loginlist->prev = nli;

	LOG(("Adding %s", temp));
	#ifndef NDEBUG
	login_list_dump();
	#endif
	free(temp);
}

/**
 * Retrieves an element from the login list
 */
/** \todo Make the matching spec compliant (see RFC 2617) */
struct login *login_list_get(char *url)
{
	struct login *nli;
	char *temp, *host;
	char *i;
	int reached_scheme = 0;
	 url_func_result res;

	if (url == NULL)
		return NULL;

	if ((strncasecmp(url, "http://", 7) != 0) &&
			(strncasecmp(url, "https://", 8) != 0))
		return NULL;

	res = url_host(url, &host);
	if (res != URL_FUNC_OK || strlen(host) == 0) return NULL;

	temp = strdup(url);
	if (!temp) {
		warn_user("NoMemory", 0);
		free(host);
		return NULL;
	}

	/* Smallest thing to check for is the scheme + host name +
	 * trailing '/'
	 * So make sure we've got that at least
	 */
	if (strlen(host) > strlen(temp)) {
		free(temp);
		res = url_host(url, &temp);
		if (res != URL_FUNC_OK || strlen(temp) == 0) {
			free(host);
			return NULL;
		}
	}
	free(host);

	/* Work backwards through the path, directory at at time.
	 * Finds the closest match.
	 * eg. http://www.blah.com/moo/ matches the url
	 *     http://www.blah.com/moo/test/index.htm
	 * This allows multiple realms (and login details) per host.
	 * Only one set of login details per realm are allowed.
	 */
	do {
		LOG(("%s, %d", temp, strlen(temp)));

			for (nli = loginlist->next; nli != loginlist &&
					(strcasecmp(nli->host, temp)!=0);
					nli = nli->next)
				/* do nothing */;

		if (nli != loginlist) {
			LOG(("Got %s", nli->host));
			free(temp);
			return nli;
		}
		else {
			if (temp[strlen(temp)-1] == '/') {
				temp[strlen(temp)-1] = 0;
			}

			i = strrchr(temp, '/');

			if (temp[(i-temp)-1] != '/') /* reached the scheme? */
				temp[(i-temp)+1] = 0;
			else {
				reached_scheme = 1;
			}
		}
	} while (reached_scheme == 0);

	free(temp);
	return NULL;
}

/**
 * Remove a realm's login details from the list
 */
void login_list_remove(char *host)
{
	struct login *nli = login_list_get(host);

	if (nli != NULL) {
		nli->prev->next = nli->next;
		nli->next->prev = nli->prev;
		free(nli->logindetails);
		free(nli->host);
		free(nli);
	}

	LOG(("Removing %s", host));
#ifndef NDEBUG
	login_list_dump();
#endif
}

/**
 * Dumps the list of login details (base paths only)
 */
void login_list_dump(void)
{
	struct login *nli;

	for (nli = loginlist->next; nli != loginlist; nli = nli->next) {
		LOG(("%s", nli->host));
	}
}

#endif