mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-13 12:32:59 +02:00
netexternal.cgi: Grab DNS servers in pure perl
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
committed by
Michael Tremer
parent
8163192065
commit
82215f2d5f
@@ -86,8 +86,7 @@ if ( $querry[0] ne~ ""){
|
||||
|
||||
&General::readhash("${General::swroot}/dhcpc/dhcpcd-$netsettings{'RED_DEV'}.info", \%dhcpinfo);
|
||||
|
||||
my $DNS1=`echo $dhcpinfo{'domain_name_servers'} | cut -f 1 -d " "`;
|
||||
my $DNS2=`echo $dhcpinfo{'domain_name_servers'} | cut -f 2 -d " "`;
|
||||
my ($DNS1, $DNS2) = split(/ /, $dhcpinfo{'domain_name_servers'});
|
||||
|
||||
my $lsetme=0;
|
||||
my $leasetime="";
|
||||
|
||||
Reference in New Issue
Block a user