From 584492cf1299148e2551d993f164367c8b2c9ec4 Mon Sep 17 00:00:00 2001
From: sasbot <>
Date: Sat, 6 Jun 2020 12:00:00 +0000
Subject: [PATCH] update zmp

---
 _historic/wwII-ug.zmp/GetUrlScript.txt | 7 +++++--
 _historic/wwII-ug.zmp/params.txt       | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/_historic/wwII-ug.zmp/GetUrlScript.txt b/_historic/wwII-ug.zmp/GetUrlScript.txt
index 412fe3eba..bc1dc9263 100644
--- a/_historic/wwII-ug.zmp/GetUrlScript.txt
+++ b/_historic/wwII-ug.zmp/GetUrlScript.txt
@@ -1,3 +1,6 @@
+var
+url: string;
 begin
-  ResultURL:=GetURLBase+inttostr(getz-1)+'/'+inttostr(gety)+'/'+inttostr(getx)+'.jpg&path1=/mnt/HD/HD_a2/pub/historic/wwii-ug/z'+inttostr(getz-1)+'/'+inttostr(gety)+'/'+inttostr(getx)+'.jpg&name='+inttostr(getx)+'.jpg&type=JPEG+Image&browser=iee)';
-end.
+  url := RegExprReplaceMatchSubStr(GetURLBase, '8082', inttostr(8084 + Random(8) ));
+  ResultURL:=URL+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'.jpg';
+end.
\ No newline at end of file
diff --git a/_historic/wwII-ug.zmp/params.txt b/_historic/wwII-ug.zmp/params.txt
index 13da3ec0d..955d2b377 100644
--- a/_historic/wwII-ug.zmp/params.txt
+++ b/_historic/wwII-ug.zmp/params.txt
@@ -8,7 +8,7 @@ ParentSubMenu=
 ParentSubMenu_en=Historic
 ParentSubMenu_uk=Історичні
 asLayer=0
-DefURLBase=http://91.237.82.95:8080/cgi-bin/webfile_mgr.cgi?cmd=cgi_download&path=/mnt/HD/HD_a2/pub/historic/wwii-ug/z
+DefURLBase=http://91.237.82.95:8082/wwii-ug/
 projection=1
 sradiusa=6378137
 sradiusb=6378137