#!/usr/bin/perl # # Guillaume Cottenceau (gc@mandrakesoft.com) # # Copyright 2000 MandrakeSoft # # This software may be freely redistributed under the terms of the GNU # public license. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # local $_ = join '', @ARGV; "@ARGV" =~ /-h/ and die "usage: drivers_install [drivertype1 drivertype2..]\n"; sub pci_probe { my @l; foreach (`/usr/bin/lspcidrake -v`) { push @l, do { if (/^(\S+)\s*: (.+) \[([^\]]+)/) { { driver => $1, description => $2, type => $3 }; } elsif (/^(\S+)\s*: (.+)/) { { driver => $1, description => $2, type => 'NOT_DEFINED' }; } else { next; } }; } @l; } sub install_module($$) { my ($driver, $descr) = @_; print "Installing driver $driver (for \"$descr\")\n"; system("/sbin/modprobe", $driver) and print "\tfailed\n"; my $already_usb if 0; if (!$already_usb && $driver =~ /usb/) { $already_usb = 1; print "Installing driver usbkdb\n"; system('/sbin/modprobe', 'usbkbd') and print "\tfailed\n"; print "Installing driver keybdev\n"; system('/sbin/modprobe', 'keybdev') and print "\tfailed\n"; } } #- start foreach $card (pci_probe()) { $card->{type} eq "DISPLAY_VGA" and next; $card->{driver} eq "unknown" and next; $card->{driver} =~ "Card:" and next; if (!@ARGV || grep { $card->{type} =~ /$_/i } @ARGV) { install_module($card->{driver}, $card->{description}); } } #------------------------------------------------- #- $Log$ #- Revision 1.6 2002/09/10 10:07:23 gc #- drvinst <param> is broken when we don't -v #- #- Revision 1.5 2001/09/27 16:00:05 gc #- don't install usb keyboard drivers more than once #- #- Revision 1.4 2001/09/27 15:57:55 gc #- try to fix usb keyboards #- #- Revision 1.3 2001/03/29 11:33:28 gc #- test for "Card:" and not install, some videoboards are not reported as DISPLAY_VGA :-( #- #- Revision 1.2 2001/02/12 18:42:17 uid553 #- pixelization #- #- Revision 1.1 2001/02/12 14:31:10 uid535 #- - add lspci, lspcidrake, vim-minimal #- - better /etc/issue #- - better PS1 #- - write embryonic tool (installation of detected drivers according to pci cards) #-