ifdef mswindows instead of win32 for 64 bits support
[lcore.git] / dnssync.pas
index 60af58082e36a7d075a67fe41d5009683e4f9873..7dedcca6ebf47874b0c90b90014ae6fb7c5f1ece 100644 (file)
@@ -13,7 +13,7 @@ interface
   uses\r
     dnscore,\r
     binipstuff,\r
-    {$ifdef win32}\r
+    {$ifdef mswindows}\r
       winsock,\r
       windows,\r
     {$else}\r
@@ -60,12 +60,12 @@ const
 \r
 implementation\r
 \r
-{$ifdef win32}\r
+{$ifdef mswindows}\r
   uses dnswin;\r
 {$endif}\r
 \r
 \r
-{$ifndef win32}\r
+{$ifndef mswindows}\r
 {$define syncdnscore}\r
 {$endif}\r
 \r
@@ -76,7 +76,7 @@ type tdnsstatearr=array[0..numsock-1] of tdnsstate;
 {$ifdef syncdnscore}\r
 \r
 \r
-{$ifdef win32}\r
+{$ifdef mswindows}\r
   const\r
     winsocket = 'wsock32.dll';\r
   function sendto(s: TSocket; const Buf; len, flags: Integer; var addrto: TinetSockAddrV; tolen: Integer): Integer; stdcall; external    winsocket name 'sendto';\r
@@ -87,7 +87,7 @@ type tdnsstatearr=array[0..numsock-1] of tdnsstate;
 \r
 \r
 function getts:integer;\r
-{$ifdef win32}\r
+{$ifdef mswindows}\r
 begin\r
   result := GetTickCount and tsmask;\r
 {$else}\r
@@ -117,7 +117,7 @@ var
   a,b:integer;\r
 \r
   Src    : TInetSockAddrV;\r
-  Srcx   : {$ifdef win32}sockaddr_in{$else}TInetSockAddrV{$endif} absolute Src;\r
+  Srcx   : {$ifdef mswindows}sockaddr_in{$else}TInetSockAddrV{$endif} absolute Src;\r
   SrcLen : Integer;\r
   fromip:tbinip;\r
   fromport:ansistring;\r
@@ -132,7 +132,8 @@ procedure setupsocket;
 var\r
   inAddrtemp : TInetSockAddrV;\r
   biniptemp:tbinip;\r
-  a:integer;\r
+  a,retrycount,porttemp:integer;\r
+  bindresult:boolean;\r
 begin\r
   biniptemp := getcurrentsystemnameserverbin(id);\r
   //must get the DNS server here so we know to init v4 or v6\r
@@ -141,12 +142,23 @@ begin
 \r
 \r
   for a := 0 to numsockused-1 do begin\r
-    makeinaddrv(biniptemp,inttostr( 1024 + randominteger(65536 - 1024) ),inaddrtemp);\r
+    retrycount := 5;\r
+    repeat\r
+      if (retrycount <= 1) then begin\r
+        porttemp := 0; //for the last attempt let the OS decide\r
+      end else begin\r
+        porttemp := 1024 + randominteger(65536 - 1024);\r
+      end;\r
+\r
+      makeinaddrv(biniptemp,inttostr( porttemp ),inaddrtemp);\r
 \r
-    fd[a] := Socket(biniptemp.family,SOCK_DGRAM,0);\r
+      fd[a] := Socket(biniptemp.family,SOCK_DGRAM,0);\r
+      bindresult := {$ifdef mswindows}Not{$endif} Bind(fd[a],inAddrtemp,inaddrsize(inaddrtemp));\r
+      dec(retrycount);\r
+    until (retrycount <= 0) or (bindresult);\r
 \r
-    If {$ifndef win32}Not{$endif} Bind(fd[a],inAddrtemp,inaddrsize(inaddrtemp)) Then begin\r
-      {$ifdef win32}\r
+    If (not bindresult) Then begin\r
+      {$ifdef mswindows}\r
         raise Exception.create('unable to bind '+inttostr(WSAGetLastError));\r
       {$else}\r
         raise Exception.create('unable to bind '+inttostr(socketError));\r
@@ -174,7 +186,7 @@ begin
 \r
   ip := getcurrentsystemnameserverbin(id);\r
 \r
-  {$ifdef ipv6}{$ifdef win32}\r
+  {$ifdef ipv6}{$ifdef mswindows}\r
   if toaddr[socknum].family = AF_INET6 then if (useaf = 0) then useaf := useaf_preferv6;\r
   {$endif}{$endif}\r
 \r
@@ -315,7 +327,7 @@ begin
     exit; //it was an IP address, no need for dns\r
   end;\r
 \r
-  {$ifdef win32}\r
+  {$ifdef mswindows}\r
   if usewindns then begin\r
     if (useaf = useaf_v4) then a := af_inet else if (useaf = useaf_v6) then a := af_inet6 else a := 0;\r
     result := winforwardlookuplist(name,a,dummy);\r
@@ -386,7 +398,7 @@ var
   numsockused:integer;\r
   state:tdnsstatearr;\r
 begin\r
-  {$ifdef win32}\r
+  {$ifdef mswindows}\r
     if usewindns then begin\r
       result := winreverselookup(ip,dummy);\r
       exit;\r
@@ -400,7 +412,7 @@ begin
   {$endif}\r
 end;\r
 \r
-{$ifdef win32}\r
+{$ifdef mswindows}\r
   var\r
     wsadata : twsadata;\r
 \r