home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / sbin / lilo_find_mbr < prev    next >
Encoding:
Text File  |  2008-05-15  |  715 b   |  36 lines
  1. #!/usr/bin/perl
  2.  
  3. my $root_part;
  4. if($#ARGV != -1)
  5. {
  6.   $root_part = $ARGV[0];
  7. }
  8. else
  9. {
  10.   $root_part = `awk '{ if (\$2=="/") print \$1}' </etc/fstab`;
  11. }
  12. my $lilo_root_part;
  13. foreach $item (split("\n", $root_part))
  14. {
  15.   if(not $item =~ /#/)
  16.   {
  17.     $lilo_root_part = $item;
  18.   }
  19. }
  20. if($lilo_root_part =~ /\/dev\/md/)
  21. {
  22.   my $mdname = $lilo_root_part;
  23.   $mdname =~ s/\/dev\///;
  24.   $mdname =~ s/\///;
  25.   my $md = `grep $mdname /proc/mdstat`;
  26.   my @devices = split(" ", $md);
  27.   @devices = sort(@devices[4..$#devices]);
  28.   $lilo_root_part = "/dev/" . $devices[0];
  29.   $lilo_root_part =~ s/\[.*$//;
  30. }
  31. my $lilo_root_disk = $lilo_root_part;
  32. $lilo_root_disk =~ s/\d+$//;
  33. $lilo_root_disk =~ s/part$/disc/;
  34.  
  35. print $lilo_root_disk . "\n";
  36.