dahdi-perl: Also get USB loaded driver from usbfs
Signed-off-by: Oron Peled <oron.peled@xorcom.com> Signed-off-by: Tzafrir Cohen <tzafrir.cohen@xorcom.com> git-svn-id: http://svn.astersk.org/svn/dahdi/tools/trunk@10153 17933a7a-c749-41c5-a318-cba88f637d49
This commit is contained in:
parent
a5c6e58b6e
commit
b23f3ca5a9
@ -183,6 +183,7 @@ sub scan_devices($) {
|
|||||||
my @lines = split(/\n/);
|
my @lines = split(/\n/);
|
||||||
my ($tline) = grep(/^T/, @lines);
|
my ($tline) = grep(/^T/, @lines);
|
||||||
my ($pline) = grep(/^P/, @lines);
|
my ($pline) = grep(/^P/, @lines);
|
||||||
|
my ($dline) = grep(/^I/, @lines);
|
||||||
my ($sline) = grep(/^S:.*SerialNumber=/, @lines);
|
my ($sline) = grep(/^S:.*SerialNumber=/, @lines);
|
||||||
my ($busnum,$devnum) = ($tline =~ /Bus=(\w+)\W.*Dev#=\s*(\w+)\W/);
|
my ($busnum,$devnum) = ($tline =~ /Bus=(\w+)\W.*Dev#=\s*(\w+)\W/);
|
||||||
my $devname = sprintf("%03d/%03d", $busnum, $devnum);
|
my $devname = sprintf("%03d/%03d", $busnum, $devnum);
|
||||||
@ -193,6 +194,10 @@ sub scan_devices($) {
|
|||||||
$serial = $1;
|
$serial = $1;
|
||||||
#$serial =~ s/[[:^print:]]/_/g;
|
#$serial =~ s/[[:^print:]]/_/g;
|
||||||
}
|
}
|
||||||
|
my $loaded;
|
||||||
|
if ($dline =~ /Driver=(\w+)/) {
|
||||||
|
$loaded = $1;
|
||||||
|
}
|
||||||
my $model = $usb_ids{"$vendor:$product"};
|
my $model = $usb_ids{"$vendor:$product"};
|
||||||
next unless defined $model;
|
next unless defined $model;
|
||||||
my $d = Dahdi::Hardware::USB->new(
|
my $d = Dahdi::Hardware::USB->new(
|
||||||
@ -203,6 +208,7 @@ sub scan_devices($) {
|
|||||||
SERIAL => $serial,
|
SERIAL => $serial,
|
||||||
DESCRIPTION => $model->{DESCRIPTION},
|
DESCRIPTION => $model->{DESCRIPTION},
|
||||||
DRIVER => $model->{DRIVER},
|
DRIVER => $model->{DRIVER},
|
||||||
|
LOADED => $loaded,
|
||||||
);
|
);
|
||||||
push(@devices, $d);
|
push(@devices, $d);
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user