Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
5990 leency 1
 
2
{
3
	int i;
4
	dword orig_URL = in_URL;
5
	char newurl[sizeof(URL)];
6
7
 
8
	{
9
		strcpy(i+1, i+5);
10
	}
11
12
 
7282 leency 13
7163 leency 14
 
7742 leency 15
	{
7163 leency 16
		strcpy(#newurl, "http:");
7750 leency 17
		strcat(#newurl, in_URL);
18
		strcpy(orig_URL, #newurl);
7163 leency 19
		return;
20
	}
21
5990 leency 22
 
7742 leency 23
	if (!http.transfer)
7281 leency 24
	{
5990 leency 25
		strcpy(#newurl, history.current());
6021 leency 26
	}
5990 leency 27
	else
28
	{
29
		strcpy(#newurl, history.items.get(history.active-2));
6021 leency 30
	}
5990 leency 31
32
 
33
	{
34
		i = strchr(#newurl+8, '/');
35
		if (i) ESBYTE[i]=0;
36
		in_URL+=1;
37
	}
38
39
 
40
41
 
42
	{
43
		newurl[strrchr(#newurl, '/')] = 0x00;
44
	}
45
46
 
47
	{
48
		in_URL+=3;
49
		newurl[strrchr(#newurl, '/')-1] = 0x00;
50
		goto _CUT_ST_LEVEL_MARK;
51
	}
52
53
 
54
55
 
56
	strcpy(orig_URL, #newurl);
57
}
58