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);
|
||||
my $json;
|
||||
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;
|
||||
next if (
|
||||
# skip non links
|
||||
!-l "/sys/class/net/$nic"
|
||||
);
|
||||
push @{$json->{data}}, { "{#IFNAME}" => $nic};
|
||||
}
|
||||
print to_json($json) if (defined $json->{data});
|
||||
|
|
Loading…
Reference in New Issue