|
|
@@ -25,8 +25,12 @@ begin |
|
|
|
// Масштаба нет - говорить не о чем
|
|
|
|
if getz >= z_no then exit;
|
|
|
|
|
|
|
|
// Выбор зеркала
|
|
|
|
r := random(2);
|
|
|
|
// Выбор зеркала , если не указана версия
|
|
|
|
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/pub/ggc', 't.caucasia.ru:80');
|
|
|
|