kolibrios/programs/cmm/TWB/absolute_url.h

dword GetAbsoluteURL(dword in_URL)
{
	int i;
	dword orig_URL = in_URL;
	char newurl[URL_SIZE+1];

	while (i=strstr(in_URL, "&"))
	{
		strcpy(i+1, i+5);
	}

	if (check_is_the_url_absolute(in_URL)) return orig_URL;

	IF (!strncmp(in_URL,"//", 2)) 
	{
		strcpy(#newurl, "http:");
		strcat(#newurl, in_URL);
		strcpy(orig_URL, #newurl);
		return orig_URL;
	}
	
	IF (!strncmp(in_URL,"./", 2)) in_URL+=2;
	if (!http.transfer) 
	{
		strcpy(#newurl, history.current());
	}
	else
	{
		strcpy(#newurl, history.items.get(history.active-2)); 
	}

	if (ESBYTE[in_URL] == '/') //remove everything after site domain name
	{
		i = strchr(#newurl+8, '/');
		if (i) ESBYTE[i]=0;
		in_URL+=1;
	}
		
	_CUT_ST_LEVEL_MARK:
		
	if (newurl[strrchr(#newurl, '/')-2]<>'/')
	{
		newurl[strrchr(#newurl, '/')] = 0x00;
	}
	
	IF (!strncmp(in_URL,"../",3))
	{
		in_URL+=3;
		newurl[strrchr(#newurl, '/')-1] = 0x00;
		goto _CUT_ST_LEVEL_MARK;
	}
	
	if (newurl[strlen(#newurl)-1]<>'/') strcat(#newurl, "/"); 
	
	strcat(#newurl, in_URL);
	strcpy(orig_URL, #newurl);
	return orig_URL;
}