/*
 * Copyright (c) 2004 Nokia. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * Redistributions of source code must retain the above copyright
 * notice, this list of conditions and the following disclaimer.
 *
 * Redistributions in binary form must reproduce the above copyright
 * notice, this list of conditions and the following disclaimer in the
 * documentation and/or other materials provided with the
 * distribution.
 *
 * Neither the name of Nokia nor the names of its contributors may be
 * used to endorse or promote products derived from this software
 * without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
 * COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include "Cookie.h"
#include <assert.h>
#include <stdlib.h>
#include <time.h>
#include <glib.h>
#include <glib/gprintf.h>


Cookie::Cookie(const gchar * cookie,
			   const gchar * url)
    :m_setCookieString(g_strdup(cookie))
    ,m_url(g_strdup(url))
    ,m_name(0)
    ,m_value(0)
    ,m_comment(0)
    ,m_domain(0)
    ,m_path(0)
    ,m_maxAge(0)
    ,m_secure(false)
    ,m_version(1)
{
	g_get_current_time(&m_received);

	assert(cookie);
	gchar **chunks = g_strsplit(cookie, ";", 0);
	assert(chunks);
	assert(chunks[0]);

	gint i = 0;
	while(chunks[0][i] != '=' && chunks[0][i] != '\0') +i++;
	assert(chunks[0][i] != '\0');

	m_name = g_strstrip(g_strndup(chunks[0], i));
	m_value = g_strstrip(g_strdup(chunks[0] + i + 1));

	i = 1;
	while(chunks[i]) {
		parseCookie(g_strstrip(chunks[i]));
		++i;
	}
	g_strfreev(chunks);


	// generate Cookie: -form of this string.
	GString* buffer = NULL;
	buffer = g_string_sized_new (32);

	g_string_append_printf (buffer, "%s=%s", m_name, m_value);

	if (m_path)
		g_string_append_printf (buffer, ";$Path=%s", m_path);

	if (m_domain)
		g_string_append_printf (buffer, ";$Domain=%s", m_domain);

	/* Free only GString not data contained, return the data instead */
	m_cookieString = buffer->str;
	g_string_free (buffer, FALSE);
}


#define COMMENT "Comment="
#define DOMAIN  "Domain="
#define MAX_AGE "Max-Age="
#define PATH    "Path="
#define SECURE  "Secure"
#define COOKIE_VERSION "Version="
// Old Netscape style cookies have this instead of Max-Age
#define EXPIRES "Expires="

#define COMMENT_LEN  8
#define DOMAIN_LEN   7
#define MAX_AGE_LEN  8
#define PATH_LEN     5
#define SECURE_LEN   6
#define VERSION_LEN  8
#define EXPIRES_LEN  8


void Cookie::parseCookie(const gchar * cookie) {
	gchar* endptr = 0;

	if (g_ascii_strncasecmp(cookie, COMMENT, COMMENT_LEN) == 0) {
		m_comment = g_strdup(cookie + COMMENT_LEN);
	} else if (g_ascii_strncasecmp(cookie, DOMAIN, DOMAIN_LEN) == 0) {
		m_domain = g_strdup(cookie + DOMAIN_LEN);
	} else if (g_ascii_strncasecmp(cookie, PATH, PATH_LEN) == 0) {
		m_path = g_strdup(cookie + PATH_LEN);
		g_printf("Path %s\n", m_path);
	} else if (g_ascii_strncasecmp(cookie, MAX_AGE, MAX_AGE_LEN) == 0) {
		const gchar * value = cookie + MAX_AGE_LEN;
		m_maxAge = strtol(value, &endptr, 10);
		if (!(*value != '\0' && endptr && *endptr=='\0'))
			m_maxAge = 0;
#if !defined(_WIN32) &&  0
	} else if (g_ascii_strncasecmp(cookie, EXPIRES, EXPIRES_LEN) == 0) {
		tm time_tm;
		strptime(cookie + EXPIRES_LEN + 5, "%d-%b-%Y %T", &time_tm);
		time_t time = mktime(&time_tm);
		// This may not work properly around DST changes, but for now,
		// it'll have to do. -- psalmi
		m_maxAge = ((unsigned int) time) - (unsigned int) m_received.tv_sec - timezone;
#endif
	} else if (g_ascii_strncasecmp(cookie, SECURE, SECURE_LEN) == 0) {
		m_secure = true;
	} else if (g_ascii_strncasecmp(cookie, COOKIE_VERSION, VERSION_LEN) == 0) {
		m_version = strtol(cookie, &endptr, 10);
		if (!(*cookie != '\0' && endptr && *endptr=='\0'))
			m_version = 1;
	}
}



Cookie::~Cookie()
{
	if (m_setCookieString) g_free(m_setCookieString);
	if (m_cookieString) g_free(m_cookieString);
	if (m_url) g_free(m_url);
	if (m_name) g_free(m_name);
	if (m_value) g_free(m_value);
	if (m_comment) g_free(m_comment);
	if (m_domain) g_free(m_domain);
	if (m_path) g_free(m_path);
}