webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 11:13:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

index.cgi: Change display of DNS servers.

Browse Source 
Add missing colon and put them into one column in the
table.
This commit is contained in:
Michael Tremer
2014-02-20 10:55:08 +01:00
parent 5e1ee0e6e6
commit 317638e753
12 changed files with 37 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -190,28 +190,29 @@ END
<tr><td><b>$Lang::tr{'gateway'}:</b><td align='center'>$GATEWAY</td><td></td></tr>
END
}
#Read DNS server 1
open (DNS1, "<${General::swroot}/red/dns1");
my $DNS1 = <DNS1>;
chomp($DNS1);
close DNS1;
#Read DNS server 2
open (DNS2, "<${General::swroot}/red/dns2");
my $DNS2 = <DNS2>;
chomp($DNS2);
close DNS2;
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_str = join(", ", @dns_servers);
print <<END;
<tr>
<td>
<b>$Lang::tr{'dns server'}</b>
<b>$Lang::tr{'dns servers'}:</b>
</td>
<td align="center">
$DNS1
</td>
<td align="center">
$DNS2
$dns_servers_str
</td>
<td align="center"></td>
</tr>
</table>
END