


	function CURL()
	{
	}



	CURL.prototype.explode = function(vs_url)
	{
		var lu_url = [];
		lu_url.full = vs_url;

		var la_url = vs_url.split('?');
		lu_url.fullPath = la_url[0];

		var la_script = lu_url.fullPath.split('/');
		lu_url.filename = la_script[la_script.length - 1];

		lu_url.onlyPath = lu_url.fullPath;
		var li_dir = lu_url.fullPath.lastIndexOf('/');
		if (li_dir > 0) lu_url.onlyPath = lu_url.onlyPath.substr(0, li_dir + 1);

		lu_url.arrayArguments = [];
		lu_url.fullArguments = '';
		if (la_url.length > 1)
		{
			lu_url.fullArguments = la_url[1];
			var la_arguments = lu_url.fullArguments.split('&')
			for (var li_argument in la_arguments)
			{
				var la_item = [];
				la_item.name = la_arguments[li_argument].split('=')[0];
				la_item.value = (la_arguments[li_argument].split('=').length == 2)? la_arguments[li_argument].split('=')[1] : '';
				lu_url.arrayArguments[lu_url.arrayArguments.length] = la_item;
			}
		}

		return lu_url;
	}



	CURL.prototype.replaceFileName = function(vs_url, vs_filename)
	{
		var lu_url = this.explode(vs_url);
		return(lu_url.onlyPath + vs_filename);
	}



	CURL.prototype.scriptArgumentsMod = function(vs_url, vs_mod)
	{
		if (!vs_url) vs_url = window.location.href;
		var lu_url = this.explode(vs_url);

		if (lu_url.arrayArguments.length > 0)
		{
			var la_mod = vs_mod.split('|');
			for (var ls_mod in la_mod)
			{
				if (la_mod[ls_mod].length > 6)
				{
					if (la_mod[ls_mod].substr(0, 3) == 'add')
					{
						var ls_arguments = la_mod[ls_mod].substr(4, la_mod[ls_mod].length - 5);
						var la_arguments = ls_arguments.split('&')

						for (var li_argumentMod in la_arguments)
						{
							var lb_exists = false;

							var la_pair = la_arguments[li_argumentMod].split('=');
							if (la_pair.length == 1) la_pair[1] = '';

							for (var li_argumentReal in lu_url.arrayArguments)
							{
								if (lu_url.arrayArguments[li_argumentReal] != null)
								{
									if (lu_url.arrayArguments[li_argumentReal].name.toLowerCase() == la_pair[0].toLowerCase())
									{
										lu_url.arrayArguments[li_argumentReal].value = la_pair[1];
										lb_exists = true;
									}
								}
							}

							if (!lb_exists)
							{
								var la_item = [];
								la_item.name = la_pair[0];
								la_item.value = la_pair[1];
								lu_url.arrayArguments[lu_url.arrayArguments.length] = la_item;
							}
						}
					}
					else if (la_mod[ls_mod].substr(0, 3) == 'del')
					{
						var ls_arguments = la_mod[ls_mod].substr(4, la_mod[ls_mod].length - 5);
						var la_arguments = ls_arguments.split('&')

						for (var li_argumentReal in lu_url.arrayArguments)
						{
							if (lu_url.arrayArguments[li_argumentReal] != null)
							{
								var lb_exists = false;
								for (var li_argumentMod in la_arguments)
								{
									if (lu_url.arrayArguments[li_argumentReal].name.toLowerCase() == la_arguments[li_argumentMod].toLowerCase()) lb_exists = true;
								}
								if (lb_exists) lu_url.arrayArguments[li_argumentReal] = null;
							}
						}
					}
				}
			}
		}

		var ls_url = lu_url.full;
		if (lu_url.arrayArguments.length > 0)
		{
			var la_new = [];
			for (var li_argumentReal in lu_url.arrayArguments)
			{
				if (lu_url.arrayArguments[li_argumentReal] != null)
				{
					la_new[la_new.length] = lu_url.arrayArguments[li_argumentReal].name + '=' + lu_url.arrayArguments[li_argumentReal].value;
				}
			}
			ls_params = la_new.join('&');
			ls_url = lu_url.fullPath + ((ls_params.length == 0)? '' : '?') + ls_params;
		}

		return ls_url;
	}



	URL = new CURL();