HTMLv 0.99.04: relative path support, like "/ru/index.htm" (also present on offsite)

git-svn-id: svn://kolibrios.org@3987 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/cmm/browser/HTMLv.c

@@ -1,5 +1,5 @@
 //HTML Viewer in C--
-//Copyright 2007-2012 by Veliant & Leency
+//Copyright 2007-2013 by Veliant & Leency
 //Asper, lev, Lrz, Barsuk, Nable...
 //home icon - rachel fu, GPL licence
 
@@ -64,7 +64,7 @@ void main()
 	if (load_dll2(libtruetype, #truetype,0)!=0) {debug("Warning: library doesn't exists - TrueType"w); use_truetype = 2; }
 	else init_font(#fontlol);
 	
-	if (!URL) strcpy(#URL, "/sys/home.htm");
+	if (!URL) strcpy(#URL, "/sys/index.htm");
 	strcpy(#editURL, #URL);
 	
 	Form.width=WIN_W;

programs/cmm/browser/History.txt

@@ -1,3 +1,10 @@
+08.10.13 - 0.99.04
+- поддержка относительных путей
+- исправления для скроллбара
+- итальянская версия
+- автодобавление http:// и ручном вводе адреса
+- страница по умолчанию существует
+
 12.04.13 - 0.99.01
 - исправлено падение при очистке кэша изображений
 - исправлена работа пункта меню "включить разрывы строк"

programs/cmm/browser/TWB.h

@@ -8,7 +8,7 @@ dword
 
 char download_path[]="/rd/1/.download";
 char search_path[]="http://nigma.ru/index.php?s=";
-char version[]=" Text-based Browser 0.99.03";
+char version[]=" Text-based Browser 0.99.04";
 
 
 struct TWebBrowser {
@@ -249,7 +249,7 @@ void TWebBrowser::Scan(int id)
 			return;
 			
 		case HOME:
-			strcpy(#editURL, "http://kolibri-n.org/index.php");
+			strcpy(#editURL, "http://kolibrios.org/en/index.htm");
 		case GOTOURL:
 		case 0x0D: //enter
 			//почему ttp://? Господа, отличный вопрос. Дело в том, что это хак. 
@@ -310,10 +310,15 @@ void TWebBrowser::GetNewUrl(){
 	}
 		
 	IF (!strcmpn(#URL,"./", 2)) strcpy(#URL, #URL+2); //игнорим :)
-	if (URL[0] == '/') strcpy(#URL, #URL+1);
-
 	strcpy(#editURL, BrowserHistory.CurrentUrl()); //достаём адрес текущей страницы
 
+	if (URL[0] == '/')
+	{
+		i = strchr(#editURL+8, '/');
+		editURL[i+7]=0;
+		strcpy(#URL, #URL+1);
+	}
+		
 	_CUT_ST_LEVEL_MARK:
 		
 		if (editURL[strrchr(#editURL, '/')-2]<>'/')  // если не http://