sasgis преди 54 години
родител
ревизия
e6f540219c
променени са 2 файла, в които са добавени 8 реда и са изтрити 4 реда
  1. +2
    -1
      Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt
  2. +6
    -3
      Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt

+ 2
- 1
Genshtab/karta_gsh_1km.zmp/GetUrlScript.txt Целия файл

@@ -30,7 +30,8 @@ begin
case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
// until dont update maps repo
// 2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088/pub/genshtab', 't.caucasia.ru:80');
end;
// Проверяем наличие масштаба


+ 6
- 3
Genshtab/karta_gsh_250m.zmp/GetUrlScript.txt Целия файл

@@ -25,12 +25,15 @@ begin
// Масштаба нет - говорить не о чем
if getz >= z_no then exit;
// Выбор зеркала
r := random(3);
// Выбор зеркала , если не указана версия
if version = '' then
r := random(2)
else
r := StrToInt(version);
case r of
0: BaseUrl := GetURLBase;
1: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 'maps.melda.ru');
2: BaseUrl := RegExprReplaceMatchSubStr(GetURLBase, '91.237.82.95:8088', 't.caucasia.ru');
end;
// Проверяем наличие масштаба


Зареждане…
Отказ
Запис