paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 17:08:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Localhost fallback in case no DNS servers found. Patch from NiteHawk, fixes issue #41047

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-30 19:01:32 +01:00
parent 04a56e2900
commit 1cd1415df7
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-net/src/netdb.pp
View File

@ -2629,6 +2629,16 @@ end;
Initialization section
---------------------------------------------------------------------}
procedure FallbackToLocal;
begin
if Length(DNSServers) = 0 then
begin
//Writeln('No DNS servers detected/configured! Falling back to "localhost".');
SetLength(DNSServers, 1);
DNSServers[0]:=StrToNetAddr('127.0.0.1');
end;
end;
Procedure InitResolver;
begin
@ -2662,6 +2672,8 @@ begin
GetDNsservers(EtcPath + SResolveFile2)
{$ENDIF OS2}
;
FallbackToLocal; // if no nameservers found: fall back to 'localhost'
end;
Procedure DoneResolver;