SysFSTools: implement filter by id in lspci

use the new filter parameter as a filter for devices

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/SysFSTools.pm b/src/PVE/SysFSTools.pm
index 87568fbb0f0093d474bdeeb883196bfbb7c39ad0..660f94bbeae3ee6176e7eac1cfbe975f72f0041f 100644 (file)
--- a/src/PVE/SysFSTools.pm
+++ b/src/PVE/SysFSTools.pm
@@ -11,12 +11,14 @@ my $pcisysfs = "/sys/bus/pci";
 my $pciregex = "([a-f0-9]{4}):([a-f0-9]{2}):([a-f0-9]{2})\.([a-f0-9])";
 
 sub lspci {
 my $pciregex = "([a-f0-9]{4}):([a-f0-9]{2}):([a-f0-9]{2})\.([a-f0-9])";
 
 sub lspci {

+    my ($filter) = @_;

 
     my $devices = {};
 
     dir_glob_foreach("$pcisysfs/devices", $pciregex, sub {
             my (undef, undef, $bus, $slot, $function) = @_;
            my $id = "$bus:$slot";
 
     my $devices = {};
 
     dir_glob_foreach("$pcisysfs/devices", $pciregex, sub {
             my (undef, undef, $bus, $slot, $function) = @_;
            my $id = "$bus:$slot";

+           return if defined($filter) && $id ne $filter;

            my $res = { id => $id, function => $function};
            push @{$devices->{$id}}, $res;
     });
            my $res = { id => $id, function => $function};
            push @{$devices->{$id}}, $res;
     });