/[soft]/ldetect/trunk/lspcidrake.pl
ViewVC logotype

Contents of /ldetect/trunk/lspcidrake.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1357 - (show annotations) (download)
Tue May 17 09:21:22 2011 UTC (10 years, 1 month ago) by dmorgan
File MIME type: text/plain
File size: 1229 byte(s)
Import  ldetect
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 }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.28