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

index.cgi: display unbound dns servers

Browse Source 
Signed-off-by: Arne Fitzenreiter <arne_f@ipfire.org>
This commit is contained in:
Arne Fitzenreiter
2016-10-02 16:35:50 +02:00
parent cc60329d88
commit e24d6112bb
3 changed files with 10 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
html/cgi-bin/index.cgi
View File

@@ -200,26 +200,20 @@ END
END
}
my @dns_servers = ();
foreach my $f ("${General::swroot}/red/dns1", "${General::swroot}/red/dns2") {
open(DNS, "<$f");
my $dns_server = <DNS>;
close(DNS);
chomp($dns_server);
if ($dns_server) {
push(@dns_servers, $dns_server);
}
my $dns_servers;
if ( -e "${General::swroot}/red/dns" ) {
open (TMP, "<${General::swroot}/red/dns");
$dns_servers = <TMP>;
chomp($dns_servers);
close TMP;
}
my $dns_servers_str = join(", ", @dns_servers);
print <<END;
<tr>
<td>
<b>$Lang::tr{'dns servers'}:</b>
</td>
<td style='text-align:center;'>
$dns_servers_str
$dns_servers
</td>
<td></td>
</tr>