Subversion Repositories Kolibri OS

Rev

Rev 7755 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5990 leency 1
 
7757 leency 2
{
5990 leency 3
	int i;
4
	dword orig_URL = new_URL;
7757 leency 5
	char newurl[URL_SIZE+1];
7755 leency 6
	strcpy(#newurl, base_URL);
7757 leency 7
5990 leency 8
 
7757 leency 9
	{
5990 leency 10
		strcpy(i+1, i+5);
11
	}
12
13
 
7757 leency 14
7163 leency 15
 
7757 leency 16
	{
7163 leency 17
		strcpy(#newurl, "http:");
7750 leency 18
		strcat(#newurl, new_URL);
7757 leency 19
		strcpy(orig_URL, #newurl);
7163 leency 20
		return orig_URL;
7755 leency 21
	}
7163 leency 22
5990 leency 23
 
7757 leency 24
5990 leency 25
 
7757 leency 26
	{
5990 leency 27
		i = strchr(#newurl+8, '/');
28
		if (i) ESBYTE[i]=0;
29
		new_URL+=1;
7757 leency 30
	}
5990 leency 31
32
 
33
34
 
35
	{
36
		newurl[strrchr(#newurl, '/')] = 0x00;
37
	}
38
39
 
7757 leency 40
	{
5990 leency 41
		new_URL+=3;
7757 leency 42
		newurl[strrchr(#newurl, '/')-1] = 0x00;
5990 leency 43
		goto _CUT_ST_LEVEL_MARK;
44
	}
45
46
 
47
48
 
7757 leency 49
	strcpy(orig_URL, #newurl);
5990 leency 50
	return orig_URL;
7755 leency 51
}
5990 leency 52