From 65864a31347cad7ded24eeb45d2829e32ec71e92 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 14 Apr 2020 23:59:15 +0200
Subject: remdate kann nun auch --resolve setzen

---
 komponenten.pas | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/komponenten.pas b/komponenten.pas
index a49184a..3c7b839 100644
--- a/komponenten.pas
+++ b/komponenten.pas
@@ -552,15 +552,27 @@ var
   argumente: array of string;
   ausgabe:   string;
   rD,lD:     longint;
+  qURI,s:    string;
 begin
-  setlength(argumente,3+2*byte(cert<>''));
+  setlength(argumente,3+2*byte(cert<>'')+2*byte(pos('#',quelle)>0));
   argumente[0]:='-o';
   argumente[1]:='-';
   if cert<>'' then begin
     argumente[2]:='--cacert';
     argumente[3]:=cert;
   end;
-  argumente[2+2*byte(cert<>'')]:=quelle;
+  qURI:=copy(quelle,pos('#',quelle)+1,length(quelle));
+  argumente[2+2*byte(cert<>'')+2*byte(pos('#',quelle)>0)]:=qURI;
+  if pos('#',quelle)>0 then begin
+    argumente[2+2*byte(cert<>'')]:='--resolve';
+    if copy(qURI,1,7)='http://' then
+      s:=':80:'
+    else
+      s:=':443:';
+    delete(qURI,1,pos('://',qURI)+2);
+    s:=copy(qURI,1,pos('/',qURI)-1)+s+copy(quelle,1,pos('#',quelle)-1);
+    argumente[2+2*byte(cert<>'')+1]:=s;
+  end;
   ausgabe:='';
   if not runCommand('curl',argumente,ausgabe) then begin
     status:=0;
-- 
cgit v1.2.3-54-g00ecf