Subversion Repositories Kolibri OS

#define URL_SIZE 4000

//===================================================//

//                                                   //

//                       HTTP                        //

//                                                   //

//===================================================//

struct _http

{

	dword cur_url;

	dword transfer;

	dword content_length;

	dword content_received;

	dword status_code;

	dword receive_result;

	dword content_pointer;

	dword get();

	bool stop();

	void hfree();

	void receive();

	dword header_field();

};

dword _http::get(dword _url)

{

	cur_url = _url;

	http_get stdcall (_url, 0, 0, #accept_language);

	transfer = EAX;

	return transfer;

}

void _http::hfree()

{

	http_free stdcall (transfer);

	transfer=0;

}

bool _http::stop()

{

	if (transfer)

	{

		EAX = transfer;

		EAX = EAX.http_msg.content_ptr;         // get pointer to data

		$push   EAX                                                     // save it on the stack

		http_free stdcall (transfer);   // abort connection

		$pop    EAX                                                     

		free(EAX);                                              // free data

		transfer=0;

		return true;    

	}

	return false;

}

void _http::receive()

{

	http_receive stdcall (transfer);

	receive_result = EAX;

	EDI = transfer;

	if (!EAX) {

		status_code = EDI.http_msg.status;

		content_pointer = EDI.http_msg.content_ptr;

	}

	content_length = EDI.http_msg.content_length;

	content_received = EDI.http_msg.content_received;

}

:dword _http::header_field(dword _header_field, _dst, _size)

{

	http_find_header_field stdcall (transfer, _header_field);

	if (EAX!=0) {

		ESI = EAX;

		EDI = _dst;

		EDX = _size;

		do {

			$lodsb;

			$stosb;

			$dec edx

		} while (AL != 0) && (AL != 13) && (AL != 10) && (EDX>0);

		DSBYTE[EDI-1]='\0';

		debugln(_dst);

		return _dst;

	}

	return NULL;

}

//===================================================//

//                                                   //

//                 CHECK PATH TYPE                   //

//                                                   //

//===================================================//

:int check_is_the_adress_local(dword _in)

{

	if (ESBYTE[_in]!='/') return false;

	_in++;

	if(!strncmp(_in,"rd/",3)) return true;

	if(!strncmp(_in,"fd/",3)) return true;

	if(!strncmp(_in,"hd",2)) return true;

	if(!strncmp(_in,"bd",2)) return true;

	if(!strncmp(_in,"cd",2)) return true;

	if(!strncmp(_in,"sys/",4)) return true;

	if(!strncmp(_in,"tmp",3)) return true;

	if(!strncmp(_in,"usbhd",5)) return true;

	if(!strncmp(_in,"kolibrios",9)) return true;

	return false;

}

:int check_is_the_url_absolute(dword _in)

{

	if(!strncmp(_in,"ftp:",4)) return true;

	if(!strncmp(_in,"http:",5)) return true;

	if(!strncmp(_in,"https:",6)) return true;

	if(!strncmp(_in,"mailto:",7)) return true;

	if(!strncmp(_in,"tel:",4)) return true;

	if(!strncmp(_in,"#",1)) return true;

	if(!strncmp(_in,"WebView:",8)) return true;

	if(check_is_the_adress_local(_in)) return true;

	return false;

}

:dword get_absolute_url(dword new_URL, base_URL)

{

	int i;

	dword orig_URL = new_URL;

	char newurl[URL_SIZE+1];

	strcpy(#newurl, base_URL);

	while (i=strstr(new_URL, "&")) strcpy(i+1, i+5);

	if (check_is_the_url_absolute(new_URL)) return orig_URL;

	IF (!strncmp(new_URL,"//", 2)) 

	{

		strcpy(#newurl, "http:");

		strcat(#newurl, new_URL);

		strcpy(orig_URL, #newurl);

		return orig_URL;

	}

	IF (!strncmp(new_URL,"./", 2)) new_URL+=2;

	if (ESBYTE[new_URL] == '/') //remove everything after site domain name

	{

		i = strchr(#newurl+8, '/');

		if (i) ESBYTE[i]=0;

		new_URL+=1;

	}

	_CUT_ST_LEVEL_MARK:

	if (newurl[strrchr(#newurl, '/')-2]<>'/')

	{

		newurl[strrchr(#newurl, '/')] = 0x00;

	}

	IF (!strncmp(new_URL,"../",3))

	{

		new_URL+=3;

		newurl[strrchr(#newurl, '/')-1] = 0x00;

		goto _CUT_ST_LEVEL_MARK;

	}

	if (newurl[strlen(#newurl)-1]<>'/') strcat(#newurl, "/"); 

	strcat(#newurl, new_URL);

	strcpy(orig_URL, #newurl);

	return orig_URL;

}