/********************************************************************\
  * BitlBee -- An IRC to other IM-networks gateway                     *
  *                                                                    *
  * Copyright 2001-2005 Wilmer van der Gaast and others                *
  \********************************************************************/

/* URL/mirror stuff - Stolen from Axel                                  */

/*
  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2 of the License, or
  (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License with
  the Debian GNU/Linux distribution in /usr/share/common-licenses/GPL;
  if not, write to the Free Software Foundation, Inc., 51 Franklin St.,
  Fifth Floor, Boston, MA  02110-1301  USA
*/

#include "url.h"

/* Convert an URL to a url_t structure */
int url_set(url_t *url, const char *set_url)
{
	char s[MAX_STRING + 1];
	char *i;

	memset(url, 0, sizeof(url_t));
	memset(s, 0, sizeof(s));

	/* protocol:// */
	if ((i = strstr(set_url, "://")) == NULL) {
		url->proto = PROTO_DEFAULT;
		strncpy(s, set_url, MAX_STRING);
	} else {
		if (g_strncasecmp(set_url, "http", i - set_url) == 0) {
			url->proto = PROTO_HTTP;
		} else if (g_strncasecmp(set_url, "https", i - set_url) == 0) {
			url->proto = PROTO_HTTPS;
		} else if (g_strncasecmp(set_url, "socks4", i - set_url) == 0) {
			url->proto = PROTO_SOCKS4;
		} else if (g_strncasecmp(set_url, "socks5", i - set_url) == 0) {
			url->proto = PROTO_SOCKS5;
		} else if (g_strncasecmp(set_url, "socks4a", i - set_url) == 0) {
			url->proto = PROTO_SOCKS4A;
		} else {
			return 0;
		}

		strncpy(s, i + 3, MAX_STRING);
	}

	/* Split */
	if ((i = strchr(s, '/')) == NULL) {
		strcpy(url->file, "/");
	} else {
		strncpy(url->file, i, MAX_STRING);
		*i = 0;
	}
	strncpy(url->host, s, MAX_STRING);

	/* Check for username in host field */
	if (strrchr(url->host, '@') != NULL) {
		strncpy(url->user, url->host, MAX_STRING);
		i = strrchr(url->user, '@');
		*i = 0;
		strcpy(url->host, i + 1);
		*url->pass = 0;
	}
	/* If not: Fill in defaults */
	else {
		*url->user = *url->pass = 0;
	}

	/* Password? */
	if ((i = strchr(url->user, ':')) != NULL) {
		*i = 0;
		strcpy(url->pass, i + 1);
	}
	/* Port number? */
	if ((i = strchr(url->host, ':')) != NULL) {
		*i = 0;
		sscanf(i + 1, "%d", &url->port);
	} else {
		if (url->proto == PROTO_HTTP) {
			url->port = 80;
		} else if (url->proto == PROTO_HTTPS) {
			url->port = 443;
		} else if (url->proto == PROTO_SOCKS4 || url->proto == PROTO_SOCKS5) {
			url->port = 1080;
		}
	}

	return(url->port > 0);
}