normalize crlf on some file types and no trailing whitespace on pas and dpr files

[lcore.git] / dnssync.pas

diff --git a/dnssync.pas b/dnssync.pas
index f5eafa6a7a4b9ad832e5d07459fdecc1758e8ba3..66d9802553dfab827edfe9e49217a340d01fe469 100644 (file)
--- a/dnssync.pas
+++ b/dnssync.pas
@@ -94,7 +94,7 @@ begin
 var\r
   temp:ttimeval;\r
 begin\r
 var\r
   temp:ttimeval;\r
 begin\r

-  gettimeofday(temp);\r
+  gettimemonotonic(temp);\r

   result := ((temp.tv_usec div 1000) + (temp.tv_sec * 1000)) and tsmask;\r
 {$endif}\r
 end;\r
   result := ((temp.tv_usec div 1000) + (temp.tv_sec * 1000)) and tsmask;\r
 {$endif}\r
 end;\r


@@ -256,7 +256,7 @@ begin
       selecttimeout.tv_sec := 0;\r
       selecttimeout.tv_usec := retryafter;\r
     end;\r
       selecttimeout.tv_sec := 0;\r
       selecttimeout.tv_usec := retryafter;\r
     end;\r

-    //find the highest of the used fd's\r
+    //find the highest of the used fds\r

     b := 0;\r
     for socknum := numsockused-1 downto 0 do if fd[socknum] > b then b := fd[socknum];\r
     selectresult := select(b+1,@fds,nil,nil,@selecttimeout);\r
     b := 0;\r
     for socknum := numsockused-1 downto 0 do if fd[socknum] > b then b := fd[socknum];\r
     selectresult := select(b+1,@fds,nil,nil,@selecttimeout);\r


@@ -328,7 +328,7 @@ begin
   end;\r
 \r
   {$ifdef mswindows}\r
   end;\r
 \r
   {$ifdef mswindows}\r

-  if usewindns then begin\r
+  if usewindns and (overridednsserver = '') 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
     {$ifdef ipv6}\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
     {$ifdef ipv6}\r


@@ -399,7 +399,7 @@ var
   state:tdnsstatearr;\r
 begin\r
   {$ifdef mswindows}\r
   state:tdnsstatearr;\r
 begin\r
   {$ifdef mswindows}\r

-    if usewindns then begin\r
+    if usewindns and (overridednsserver = '') then begin\r

       result := winreverselookup(ip,dummy);\r
       exit;\r
     end;\r
       result := winreverselookup(ip,dummy);\r
       exit;\r
     end;\r