home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 January / Disc 3 / Amethyst.iso / live / usr / libexec / kernel / lilo-ins.pl < prev    next >
Encoding:
Perl Script  |  2002-11-11  |  1.7 KB  |  62 lines
  1. #!/usr/bin/perl
  2. # $Id: lilo-ins.pl,v 1.14 2000/07/11 12:37:36 duwe Exp $
  3.  
  4. $nam = $insimage = $ARGV[0];
  5. $nam =~ s/\.//g;
  6.  
  7. open (ELC, "</etc/lilo.conf") || die;
  8.  
  9. # Determine if this is a true Pentium or better and we can use that kernel,
  10. # and if we need to disable SMP (for AMD, Cyrix, ...). Set failsafe defaults.
  11. $apic = " noapic nosmp";
  12. $pc97 = "";
  13. if (open(CI, "</proc/cpuinfo")) {
  14.   while(<CI>) {
  15.     m/^\s*flags\s*:.* fpu\b.* tsc\b/ && ($pc97 = "-pc97");
  16.     m/^\s*flags\s*:.* apic\b/ && ($apic = "");
  17.   }
  18.   close CI;
  19. }
  20.  
  21. # Now let's see whether we need an initrd for the current root.
  22. $thisroot = `/usr/sbin/rdev`;
  23. $thisroot =~ s/\s.*$//sm;
  24. $initrd = "\tinitrd = /boot/initrd-$insimage.gz\n";
  25. ($thisroot =~ m,^/dev/hd, ) && ( $initrd = "" );
  26.  
  27. $secret = "no";
  28. $otherimg = "";
  29. # Seek forward to just before the first "image=" entry (if there is one)
  30. while (<ELC>) {
  31.   if (m/^\s*password\s*=/i) { $secret = "yes"; }
  32.   if (m/^\s*image\s*=/) { $otherimg = $_; last; }
  33.   print;
  34. }
  35.  
  36. $vga = "";
  37. if (open(ESC, "</etc/system.cnf")) {
  38.   while(<ESC>) {
  39.     m/^\s*CONF_GRAPHIC_CARD1_VESAMODE\s*=\s*"?(\w+)/ && ($vga = "$1");
  40.   }
  41.   close ESC;
  42. }
  43. $vga = "274" if ($vga eq "");
  44. print "image = /boot/vmlinuz$pc97-$insimage-modular\n";
  45. print "\tlabel  = Linux\n";
  46. print "\troot   = $thisroot\n" unless ($thisroot eq "");
  47. print "\tvga    = $vga\n";
  48. print "\tread-only\n";
  49. print "\tappend = \"quiet$apic console=ttyS3,9600 apm=off acpi=no-idle\"\n$initrd\n";
  50.  
  51. # and now dump the remaining input file
  52. print $otherimg;
  53. while (<ELC>) {
  54.   if (m/^\s*password\s*=/i) { $secret = "yes"; }
  55.   s/(label|alias)\s*=\s*oldlinux\b/\1 = cruft$$/; # the best we can do
  56.   s/(label|alias)\s*=\s*desktop.lx\s*linux\b/\1 = oldlinux/i;
  57.   print;
  58. }
  59. close ELC;
  60.  
  61. chmod 0600, "/proc/self/fd/1" unless ($secret eq "no");
  62.