home *** CD-ROM | disk | FTP | other *** search
/ Chip: Linux Special / CorelLinux_CHIP.iso / live / sbin / isa-detect.pl < prev    next >
Encoding:
Perl Script  |  1999-11-12  |  3.1 KB  |  105 lines
  1. #!/usr/bin/perl
  2. ###################################
  3. #Name : isa-detect.pl
  4. #
  5. #Description: Program that detects isa network cards. 
  6. #            
  7. #Copyright (C) 1999 Corel Corporation 
  8. # 
  9. # EXHIBIT A -Corel Public License. 
  10. # 
  11. # The contents of this file are subject to the Corel Public License 
  12. # Version 1.0 (the "License"); you may not use this file except in 
  13. # compliance  with the License. You may obtain a copy of the License at 
  14. # linux.corel.com/linuxproducts/corellinux/license.htm. 
  15. # Software distributed under the License is distributed on an "AS IS" 
  16. # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the 
  17. # License for the specific language governing rights and limitations 
  18. # under the License. 
  19. # The Original Code is isa-detect.pl. 
  20. # The Initial Developer of the Original Code is Corel Corporation. 
  21. # Portions created by Corel are Copyright (C) 1999  All Rights Reserved. 
  22. # Contributor(s): ______________________________________. 
  23. ##############################################################
  24. use strict;
  25.  
  26. my (@modules, $elem, $dmesg_outp, $fline, $file_modules, $file_conf_modules, $card_num, $probe_driver_path) = ((), "", "", "", "", "", 1);
  27. my ($irq, $ioaddr) = ("", "");
  28. my ($kernel_ver) = ("");
  29.  
  30. # set the essential filenames (with full path)
  31. $file_modules="/etc/modules";
  32. $file_conf_modules="/etc/conf.modules";
  33. $kernel_ver=`uname -r`;
  34. chomp $kernel_ver;
  35. $probe_driver_path="/lib/modules/$kernel_ver/.isaprobe";
  36.  
  37. $card_num=1;
  38.  
  39. @modules = ("3c509", "ne");
  40.  
  41. # load 8390.o since some modules depend on it.  This module can safely
  42. # be loaded since it does not initialize any specfic card; it only
  43. # provides a set of functions for other modules
  44. `insmod $probe_driver_path/8390.o`;
  45.  
  46. # go through all the module names in above list
  47. foreach $elem (@modules)
  48. {
  49.     $ioaddr=0;
  50.     $irq=0;
  51.  
  52.     `dmesg -c>/dev/null`;
  53.     `insmod $probe_driver_path/$elem.o`;
  54.     $dmesg_outp = `dmesg |grep 'cdl:$elem.o'`;
  55.  
  56.     # if card probed successfully add the proper options line to
  57.     # conf.modules
  58.     if( $dmesg_outp ne "" ) {
  59.         $dmesg_outp =~ /^.+(0x[0-9a-z]+).+IRQ (\d+)/;
  60.         $ioaddr = $1;
  61.         $irq = $2;
  62.         # remove any existing lines relating to this module
  63.         # so we don't have duplicates
  64.         rm_line("$file_modules", "$elem");
  65.  
  66.         # we do not give the 3c509 module any io or irq arguments
  67.         if ( $elem ne "3c509" )
  68.         {
  69.             rm_line("$file_conf_modules", "options $elem");
  70.             `echo options $elem io=$ioaddr irq=$irq >> $file_conf_modules`;
  71.         }
  72.         rm_line("$file_modules", "$elem");
  73.         `echo $elem >> $file_modules`;
  74.         print "[network.";
  75.         print $card_num;
  76.         print "]\n";
  77.         print "        driver = $elem.o\n\n";
  78.         $card_num++;
  79.     # if card probe was not successful then remove any related lines
  80.     # from conf.modules and modules
  81.     } else {
  82.         rm_line("$file_conf_modules", "options $elem");
  83.         rm_line("$file_modules", "$elem");
  84.     }
  85. }
  86.  
  87. `rmmod 8390`;
  88.  
  89. # removes lines in $_[0] that start with $_[1]
  90. sub rm_line
  91. {
  92.     open(FIN, "<$_[0]");
  93.  
  94.     open(FOUT, ">$_[0].tmp") or die "rm_line: error opening $_[0].tmp for output $!";
  95.  
  96.     while($fline=<FIN>) {
  97.         unless( $fline =~ /^$_[1]/ ) {
  98.             print FOUT $fline;
  99.         }
  100.     }
  101.     close FIN;
  102.     close FOUT;
  103.     `mv $_[0].tmp $_[0]`;
  104. }
  105.