1 |
#!/usr/bin/perl |
2 |
#***************************************************************************** |
3 |
# |
4 |
# Copyright (c) 2006-2007 Mandriva SA |
5 |
# |
6 |
# This program is free software; you can redistribute it and/or modify |
7 |
# it under the terms of the GNU General Public License version 2, as |
8 |
# published by the Free Software Foundation. |
9 |
# |
10 |
# This program is distributed in the hope that it will be useful, |
11 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
12 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
13 |
# GNU General Public License for more details. |
14 |
# |
15 |
# You should have received a copy of the GNU General Public License |
16 |
# along with this program; if not, write to the Free Software |
17 |
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
18 |
# |
19 |
#***************************************************************************** |
20 |
# |
21 |
# $Id: lspcidrake.pl 44475 2007-02-12 14:23:36Z tv $ |
22 |
|
23 |
use lib qw(/usr/lib/libDrakX); |
24 |
use modalias; |
25 |
use MDK::Common; |
26 |
use MDV::Lspciusb; |
27 |
|
28 |
if (@ARGV) { |
29 |
print "$_: " . join(",", modalias::get_modules($_)) . "\n" foreach @ARGV; |
30 |
exit(); |
31 |
} |
32 |
|
33 |
foreach my $device (MDV::Lspciusb::list()) { |
34 |
print "$device->{module}\t: $device->{descr}$device->{modules}\n"; |
35 |
} |