* add method to tell if a string is a biniplist

[lcore.git] / lsocket.pas

diff --git a/lsocket.pas b/lsocket.pas
index e56a25dcb591c3223e00fadc872d20b2bf42819d..f4c83492a6ba62fa3c745f0746b1648fbe0220fb 100755 (executable)
--- a/lsocket.pas
+++ b/lsocket.pas
@@ -218,8 +218,7 @@ var
 begin\r
   if state <> wsclosed then close;\r
   //prevtime := 0;\r
 begin\r
   if state <> wsclosed then close;\r
   //prevtime := 0;\r

-\r
-  biniplist := forwardlookuplist(addr,0);\r
+  if isbiniplist(addr) then biniplist := addr else biniplist := forwardlookuplist(addr,0);\r

   if biniplist_getcount(biniplist) = 0 then raise exception.create('unable to resolve '+addr);\r
 \r
   //makeinaddrv(addr,port,inaddr);\r
   if biniplist_getcount(biniplist) = 0 then raise exception.create('unable to resolve '+addr);\r
 \r
   //makeinaddrv(addr,port,inaddr);\r


@@ -321,7 +320,7 @@ begin
     {$endif}\r
     addr := '0.0.0.0';\r
   end;\r
     {$endif}\r
     addr := '0.0.0.0';\r
   end;\r

-  biniptemp := forwardlookup(addr,10);\r
+  if isbiniplist(addr) then biniptemp := biniplist_get(addr,0) else biniptemp := forwardlookup(addr,10);\r

   addr := ipbintostr(biniptemp);\r
   fdhandlein := socket(biniptemp.family,socktype,0);\r
   {$ifdef ipv6}\r
   addr := ipbintostr(biniptemp);\r
   fdhandlein := socket(biniptemp.family,socktype,0);\r
   {$ifdef ipv6}\r