Fix network interface discovery script
This commit is contained in:
parent
9983c2ea30
commit
beadda2634
|
@ -7,13 +7,8 @@ my @nics = grep { $_ !~ m/^\./ } readdir($dh);
|
||||||
closedir($dh);
|
closedir($dh);
|
||||||
my $json;
|
my $json;
|
||||||
foreach my $nic (@nics){
|
foreach my $nic (@nics){
|
||||||
# Untaint $nic and makes sure the name looks OK
|
next unless ($nic =~ m/^(\w+[\.:]?(\d+)?)$/);
|
||||||
next unless ($nic =~ m/^(\w+[\.:]?\d+)$/);
|
|
||||||
$nic = $1;
|
$nic = $1;
|
||||||
next if (
|
|
||||||
# skip non links
|
|
||||||
!-l "/sys/class/net/$nic"
|
|
||||||
);
|
|
||||||
push @{$json->{data}}, { "{#IFNAME}" => $nic};
|
push @{$json->{data}}, { "{#IFNAME}" => $nic};
|
||||||
}
|
}
|
||||||
print to_json($json) if (defined $json->{data});
|
print to_json($json) if (defined $json->{data});
|
||||||
|
|
Loading…
Reference in New Issue