webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-25 10:22:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

general-functions.pl: Add get_nameservers().

Browse Source 
This function simply return an array of all used nameservers.

It also takes care if the usage of ISP assigned nameservers
is enabled or not and if user-added nameservers are enabled or not.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2020-01-09 16:08:13 +01:00
parent 9f9b2b8ebc
commit c8dcd46537
1 changed files with 50 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
config/cfgroot/general-functions.pl
View File

@@ -1208,4 +1208,54 @@ sub grab_address_from_file($) {
return; return;
} }
# Function to get all configured and enabled nameservers.
sub get_nameservers () {
my %settings;
my %servers;
my @nameservers;
# Read DNS configuration.
&readhash("$General::swroot/dns/settings", \%settings);
# Read configured DNS servers.
&readhasharray("$General::swroot/dns/servers", \%servers);
# Check if the ISP assigned server should be used.
if ($settings{'USE_ISP_NAMESERVERS'} eq "on") {
# Assign ISP nameserver files.
my @ISP_nameserver_files = ( "/var/run/dns1", "/var/run/dns2" );
# Loop through the array of ISP assigned DNS servers.
foreach my $file (@ISP_nameserver_files) {
# Grab the IP address.
my $address = &grab_address_from_file($file);
# Check if an address has been grabbed.
if ($address) {
# Add the address to the array of nameservers.
push(@nameservers, $address);
}
}
}
# Check if DNS servers are configured.
if (%servers) {
# Loop through the hash of configured DNS servers.
foreach my $id (keys %servers) {
my $address = $servers{$id}[0];
my $status = $servers{$id}[2];
# Check if the current processed server is enabled.
if ($status eq "enabled") {
# Add the address to the array of nameservers.
push(@nameservers, $address);
}
}
}
# Return the array.
return @nameservers;
}
1; 1;