autodetection at install

[Patrick Shirkey <pshirkey@boosthardware.com>]

[-- Attachment #1: Type: text/plain, Size: 677 bytes --]

I have a small perl script which I am working on. The idea is to autodetect
a card/s and create a modules.conf based on that either at configure or as
a seperate process.

Can anyone who is more fluent in perl give me a hint as to how I can 
compare the output of list_pci to list_modules and return the correct 
card name and module?

The script has two subs. They just parse the /proc/pci and the INSTALL 
file to get the current output. It has to be run from the alsa-driver dir.


-- 
Patrick Shirkey - Boost Hardware Ltd.
For the discerning hardware connoisseur
Http://www.boosthardware.com
Http://www.boosthardware.com/LAU/guide/
========================================

[-- Attachment #2: autocard --]
[-- Type: text/plain, Size: 1067 bytes --]



sub list_pci {

	open (FILE, "/proc/pci") 
	or die "Cannot open /proc/pci. \n Do you have permission to access this file?";
   
    for $linepci (<FILE>) {
	
	if ($linepci =~ /Multimedia audio controller/g) {
   	print $linepci;
	}
    }

#    close FILE;

}

sub list_modules {

	open (FILE, "INSTALL") 
	or die "Cannot open INSTALL. \n Do you have permission to access this file?";
   
    	for $linemodule (<FILE>) {

	if ($linemodule =~ /\.o$/) {
#		print  $linemodule;
		    	while (<>) {
				foreach $word ( split ) { 
	    				# do something with $word here
	   				print "$linemodule\n" ;
					} 
    				}  
#		print  $linemodule;

		}
    	}

#    close FILE;
}


# Output to shell

list_modules();

print "\n The modules for the following card/s can be found in the above.\n If your card is not listed below it means it is a PNP (very old)\n or USB card and this script cannot find it.\n\n The modules for ALSA USB support are: \n\n \tsnd-usb-audio\n \tsnd-usb-midi\n\n";

print " These are the cards found on your system:\n\n";
list_pci();
print "\n";