#!/usr/bin/perl -w
+# liloconfig - creating a new lilo.conf file
+#
+# Copyright 2011 Joachim Wiedorn <ad_debian@joonet.de>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# 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., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1301, USA.
+
+#---- some modules
+use strict;
+use warnings;
+use Getopt::Std;
+use Pod::Usage;
+use File::Copy;
+
+
+#---- global variables
+my $prog = $0;
+$prog =~ s#.*/##;
+my $version = "0.1";
+
+#---- parameter check
+# h: help, v: verbose, f: force
+our $opt_h = 0;
+our $opt_v = 0;
+our $opt_f = 0;
+getopts('hvf');
+# define perldoc usage
+pod2usage(1) if $opt_h;
+
+#---- other variables
+our $liloconf = "/etc/lilo.conf";
+our $conftmp_1 = "/tmp/lilotmp1";
+our $conftmp_2 = "/tmp/lilotmp2";
+our $liloconfold = $liloconf . ".old";
+our $liloconfnew = $liloconf . ".new";
+our $fstabconf = "/etc/fstab";
+
+our $idpath = "/dev/disk/by-id";
+our $uuidpath = "/dev/disk/by-uuid";
+our $lblpath = "/dev/disk/by-label";
+our $template = "/usr/share/doc/lilo/examples/lilo.example.conf.gz";
+
+our $rootpart; # found root part
+our $root_dev; # /dev/hdX9, /dev/sdX9, /dev/md/*
+our $root_id; # UUID, LABEL, ID
+our $boot_dev; # /dev/hdX, /dev/sdX, /dev/md
+our $boot_id; # DISK-ID
+
+#-------------------- main program --------------------
+
+sub main {
+
+ my $exit = 0;
+
+ if (@ARGV == 1) {
+ $liloconf = "$ARGV[0]";
+ $liloconfold = $liloconf . ".old";
+ $liloconfnew = $liloconf . ".new";
+ }
+ if (-f $liloconf and not $opt_f) {
+ print "$prog: $liloconf already exist! Please use '-f' for overwriting.\n";
+ $exit = 1;
+ }
+ else {
+ $exit = create_lilo_conf()
+ }
+ return $exit;
+}
+
+#-------------------- subroutines --------------------
+
+sub create_lilo_conf {
+
+ my $found = 0;
+ my $exit = 1;
+
+ # search for root device in fstab and convert it
+ $found = detect_root_device();
+
+ # convert root device to boot device
+ if ($found) { $found = convert_boot_device(); }
+
+ # finally write new lilo.conf file
+ if ($found) { $exit = write_lilo_conf(); }
+
+ return $exit;
+}
+
+sub detect_root_device {
+
+ # read fstab and find root device;
+ my $found = read_fstab();
+
+ # identify root device: root_dev and root_id
+ if ($found) { $found = convert_root_device(); }
+
+ return $found;
+}
+
+sub read_fstab {
+
+ my $root_part;
+ my $mountpoint;
+ my $broken_fstab = 1;
+ my $base_fstab = 0;
+ my $found = 1;
+
+ # check fstab for root device
+ if (-f $fstabconf) {
+ # Parsing fstab for the root partition
+ open(FSTAB, "<$fstabconf") or die "$prog: couldn't open $fstabconf: $!\n";
+
+ while (<FSTAB>) {
+ # Search magic string which indicates a base filesystem
+ $base_fstab = 1 if /^# UNCONFIGURED FSTAB FOR BASE SYSTEM/;
+ next if /^#/; # ignore comment lines
+
+ s/^[ \t]+//; # remove space or tab at begin of the line
+ ($root_part,$mountpoint) = split(/[ \t]+/);
+ next unless defined $mountpoint; # ignore empty lines too
+
+ # stop if we found the root device...
+ if ($mountpoint eq '/') {
+ $broken_fstab = 0;
+ last;
+ }
+ }
+ close(FSTAB) or die "$prog: couldn't close $fstabconf: $!\n";
+ }
+
+ if ($base_fstab) {
+ print "E: It seems you want configure the base filesystem \n" .
+ "and I'm therefore simply going to exit successfully \n" .
+ "without trying to actually configure LILO properly. \n";
+ $found = 0;
+ }
+ if ($broken_fstab) {
+ print "E: It seems the file /etc/fstab is not properly \n" .
+ "configured: no root partition '/' found! \n";
+ $found = 0;
+ }
+ # save the found root device
+ $rootpart = $root_part;
+
+ return $found;
+}
+
+sub convert_root_device {
+
+ my $found = 1;
+ my $root_disk = '';
+ my $root_link;
+ # global variables: $root_dev, $root_id
+
+ if ($rootpart =~ /\/dev\//) {
+ $root_disk = $rootpart;
+
+ if (-b $root_disk) {
+ $root_dev = $root_disk;
+ if($opt_v) { print "Convert root option $root_disk into UUID\n"; }
+ $root_id = find_id_link($root_disk,$uuidpath);
+
+ if (not -l "$uuidpath/$root_id") {
+ if($opt_v) { print "W: could not find UUID for $root_disk!\n"; }
+ ## than we want use root_dev in lilo.conf
+ #$found = 0;
+ }
+ else {
+ # finally add uuid label
+ $root_id = "UUID=" . $root_id;
+ }
+ }
+ else {
+ if($opt_v) { print "E: cannot check $root_disk: device does not exist!\n"; }
+ $found = 0;
+ }
+ }
+ elsif ($rootpart =~ /^UUID/ or $rootpart =~ /^LABEL/) {
+ $root_link = $rootpart;
+ $root_link =~ s{\"}{}g;
+ $root_link =~ s{^LABEL=}{/dev/disk/by-label/};
+ $root_link =~ s{^UUID=}{/dev/disk/by-uuid/};
+
+ if (-l $root_link) {
+ $root_id = $rootpart;
+ $root_disk = readlink($root_link);
+ $root_disk =~ s{\.\./\.\./}{/dev/};
+
+ if (-b $root_disk) { $root_dev = $root_disk; }
+ else {
+ if($opt_v) { print "E: cannot check $root_link: link does not exist!\n"; }
+ $found = 0;
+ }
+ }
+ else {
+ print "E: cannot check $root_link: link does not exist!\n";
+ $found = 0;
+ }
+ }
+ else {
+ print "E: cannot use uncommon $rootpart found as root device!\n";
+ $found = 0;
+ }
+
+ return $found;
+}
+
+sub find_id_link {
+
+ my $olddev = $_[0];
+ my $path_id = $_[1];
+ my @sellinks;
+ my $_idlink;
+ my $_actlink;
+ my $newdevid = '';
+
+ opendir(MYDH, "$path_id") or die("cannot open $path_id: $! \n");
+ @sellinks = grep(!/\-part\d\d?$/, grep(!/^\.\.?$/, readdir(MYDH)));
+ @sellinks = sort(@sellinks);
+ closedir(MYDH);
+
+ foreach $_idlink (@sellinks) {
+ chomp $_idlink;
+ if(not $_idlink =~ /^usb/ and length($_idlink) > 10) {
+ $_actlink = readlink("$path_id/$_idlink");
+ $_actlink =~ s{\.\./\.\./}{/dev/};
+ if($opt_v) { print "** try: $_actlink => $_idlink \n"; }
+
+ # stop if we find the right link...
+ if($_actlink eq $olddev) {
+ $newdevid = $_idlink;
+ if($opt_v) { print "** convert: $_actlink => $path_id/$_idlink \n\n"; }
+ last;
+ }
+ }
+ }
+
+ if(not $newdevid) {
+ if($opt_v) { print "W: $olddev not converted: link not useful\n\n"; }
+ }
+
+ return ($newdevid);
+}
+
+sub convert_boot_device {
+
+ my $found = 1;
+ my $boot_disk = '';
+ my $boot_link;
+ # global variables: $boot_dev, $boot_id
+
+ if (-b $root_dev) {
+ if ($root_dev =~ /\/dev\/md/) {
+ # search if the found partition is a raid volume
+ $boot_disk = check_raid($root_dev);
+ }
+ else {
+ # find the right block device name
+ $boot_disk = $root_dev;
+ $boot_disk =~ s/\d+$//;
+ }
+
+ if (-b $boot_disk) {
+ # set global variable boot_dev
+ $boot_dev = $boot_disk;
+ }
+ else {
+ print "E: boot device $boot_disk does not exist! \n";
+ $found = 0;
+ }
+ }
+ else {
+ print "E: could not find root device $root_dev! \n";
+ $found = 0;
+ }
+
+ if ($found) {
+ if($opt_v) { print "Convert boot option $boot_disk into DISK ID\n"; }
+ $boot_id = $idpath . "/" . find_id_link($boot_disk,$idpath);
+
+ if(not -l "$boot_id") {
+ if($opt_v) { print "W: could not find DISK ID for $boot_disk!\n"; }
+ ## not so important, than using boot_dev in lilo.conf
+ #$found = 0;
+ }
+ }
+
+ return $found;
+}
+
+sub check_raid {
+
+ my $part = $_[0];
+ my $mdname;
+ my $md;
+ my @devices;
+
+ # check if the found partition is a raid volume
+ if($part =~ /\/dev\/md/)
+ {
+ $mdname = $part;
+ $mdname =~ s/\/dev\///;
+ $mdname =~ s/\///;
+ $md = `grep $mdname /proc/mdstat`;
+
+ @devices = split(" ", $md);
+ @devices = sort(@devices[4..$#devices]);
+ $part = "/dev/" . $devices[0];
+ $part =~ s/\[.*$//;
+
+ }
+ return $part;
+}
+
+sub write_lilo_conf {
+
+ my @status;
+ my $exit = copy_template();
+
+ if (not $exit) {
+ # create lilo.conf.new
+ write_boot_option();
+ write_image_config();
+ }
+
+ if (-f $liloconf and not -f $liloconfold) {
+ # move old lilo.conf to lilo.conf.old
+ @status = stat($liloconf);
+ move ($liloconf, $liloconfold) or die "Cannot rename file: $!\n";
+ utime ($status[9],$status[9],$liloconfold);
+ chmod (0600,$liloconfold);
+ print "Old file moved to: $liloconfold \n";
+ }
+ if (-f $liloconfnew) {
+ move ($liloconfnew, $liloconf) or die "Cannot move file: $!\n";
+ chmod (0600,$liloconf);
+ print "New file created as: $liloconf \n";
+ print "Now you must execute '/sbin/lilo' to " .
+ "activate this new configuation!\n\n";
+ }
+ else {
+ print "E: Cannot find temporary file $conftmp_1!\n";
+ $exit = 1;
+ }
+
+ return $exit;
+}
+
+sub copy_template {
+
+ my $endreached = 0;
+ my $exit = 0;
+
+ # copy template config
+ if (-f $template) {
+ system("gzip -d -c $template >$conftmp_1") if ($template =~ /\.gz$/);
+ system("cat $template >$conftmp_1") if ($template =~ /\.conf$/);
+
+ open(CONFTMP1, "<$conftmp_1") or die "$prog: couldn't open $conftmp_1: $!\n";
+ open(CONFTMP2, ">$conftmp_2") or die "$prog: couldn't open $conftmp_2: $!\n";
+
+ while (<CONFTMP1>) {
+ if (/first\ example/) {
+ $endreached = 1;
+ }
+ unless ($endreached) {
+ print CONFTMP2 $_;
+ }
+ }
+ close(CONFTMP1) or die "$prog: couldn't close $conftmp_1: $!\n";;
+ close(CONFTMP2) or die "$prog: couldn't close $conftmp_2: $!\n";;
+ }
+ else {
+ open(CONFTMP2, ">$conftmp_2") or die "$prog: couldn't open $conftmp_2: $!\n";
+ print CONFTMP2 "# /etc/lilo.conf
+
+### LILO global section ###
+
+#large-memory
+lba32
+boot = /dev/sda
+map = /boot/map
+install = menu
+menu-scheme = Wb:Yr:Wb:Wb
+prompt
+timeout = 100
+vga = normal
+#default = Linux
+
+### LILO per-image section ###
+
+";
+ close(CONFTMP2) or die "$prog: couldn't close $conftmp_2: $!\n";;
+ }
+
+ return $exit;
+}
+
+sub write_boot_option {
+
+ my $oldline = '';
+ my $newline = '';
+ my $ok = 0;
+
+ open(MYFH_NEW, "> $liloconfnew") or die "Cannot open file: $!";
+ open(MYFH_TMP, "< $conftmp_2") or die "Cannot read file: $!";
+
+ while (<MYFH_TMP>) {
+ # line read from MYFH_TMP
+ $oldline = $_;
+
+ if (/^boot/ and $ok == 0) {
+ if ($boot_id) {
+ $oldline = "#boot = $boot_dev\n";
+ $newline = "boot = $boot_id\n";
+ print MYFH_NEW $oldline;
+ if($opt_v) { print $oldline; }
+ }
+ else {
+ $oldline = "boot = $boot_dev\n";
+ }
+ print MYFH_NEW $newline;
+ if($opt_v) { print $newline; }
+ if($opt_v) { print "\n"; }
+
+ # convert only one time
+ $ok = 1;
+ }
+ else {
+ print MYFH_NEW $oldline;
+ }
+ }
+ close(MYFH_TMP);
+ close(MYFH_NEW);
+}
+
+sub write_image_config {
+
+ my $image;
+ my $initrd;
+ my $nr;
+ my $nr2;
+
+ # search for kernel image files
+ my @vmlinuz = readpipe("/bin/ls -t -1 /boot/vmlinuz-2* 2>/dev/null");
+
+ # append to new lilo.conf
+ open(MYFH_NEW, ">> $liloconfnew") or die "Cannot open file: $!";
+
+ # create some line for each kernel image
+ $nr = 0;
+ foreach $image (@vmlinuz) {
+ # search for kernel initrd file
+ chomp $image;
+ $initrd = $image;
+ $initrd =~ s/vmlinuz/initrd\.img/;
+ $nr2 = $nr + 1;
+
+ print MYFH_NEW 'image = ' . $image . "\n";
+ if($opt_v) { print 'image = ' . $image . "\n"; }
+ if ($nr == 0) {
+ print MYFH_NEW "\t" . 'label = "Linux"' . "\n";
+ if($opt_v) { print "\t" . 'label = "Linux"' . "\n"; }
+ }
+ elsif ($nr == 1) {
+ print MYFH_NEW "\t" . 'label = "Linux Old"' . "\n";
+ if($opt_v) { print "\t" . 'label = "Linux Old"' . "\n"; }
+ }
+ if ($root_id) {
+ print MYFH_NEW "\t" . '#root = ' . $root_dev . "\n";
+ if($opt_v) { print "\t" . '#root = ' . $root_dev . "\n"; }
+ print MYFH_NEW "\t" . 'root = "' . $root_id . '"' . "\n";
+ if($opt_v) { print "\t" . 'root = "' . $root_id . '"' . "\n"; }
+ }
+ else {
+ print MYFH_NEW "\t" . 'root = ' . $root_dev . "\n";
+ if($opt_v) { print "\t" . 'root = ' . $root_dev . "\n"; }
+ }
+ print MYFH_NEW "\t" . 'read-only' . "\n";
+ if($opt_v) { print "\t" . 'read-only' . "\n"; }
+ print MYFH_NEW "#\t" . 'restricted' . "\n";
+ if($opt_v) { print "#\t" . 'restricted' . "\n"; }
+ print MYFH_NEW "#\t" . 'alias = ' . "$nr2" . "\n";
+ if($opt_v) { print "#\t" . 'alias = ' . "$nr2" . "\n"; }
+ print MYFH_NEW "#\t" . 'optional' . "\n";
+ if($opt_v) { print "#\t" . 'optional' . "\n"; }
+ if (-f $initrd) {
+ print MYFH_NEW "\t" . 'initrd = ' . $initrd . "\n";
+ if($opt_v) { print "\t" . 'initrd = ' . $initrd . "\n"; }
+ }
+ print MYFH_NEW "\n";
+ if($opt_v) { print "\n"; }
+
+ $nr++;
+ last if ($nr > 1);
+ }
+
+ close(MYFH_NEW);
+}
+
+
+main();
+
__END__
+
+
+=head1 NAME
+
+liloconfig - create new lilo.conf file (with diskid and uuid)
+
+=head1 SYNOPSIS
+
+liloconfig [-h] [-v] [-f] [lilo.conf]
+
+=head1 DESCRIPTION
+
+liloconfig is an simple program for creating a new lilo.conf file.
+After creating the new configuration file you must execute '/sbin/lilo'.
+
+liloconfig use the lilo.example.conf file as template. In the final
+lilo.conf file you find many useful comments for custom changes.
+
+=head1 EXAMPLES
+
+Lines in the configuration file /etc/lilo.conf:
+
+ ### LILO global section ###
+
+ #large-memory
+ lba32
+ boot = /dev/sda
+ map = /boot/map
+ install = menu
+ menu-scheme = Wb:Yr:Wb:Wb
+ prompt
+ timeout = 100
+ vga = normal
+ #default = Linux
+
+ ### LILO per-image section ###
+
+ #boot = /dev/sda
+ boot = /dev/disk/by-id/ata-SAMSUNG_SV1604N_S01FJ10X999999
+
+ image = /boot/vmlinuz-2.6.32-5book-686
+ label = "Linux"
+ #root = /dev/sda1
+ root = "UUID=18843936-00f9-4df0-a373-000d05a5dd44"
+ read-only
+ # restricted
+ # alias = 1
+ # optional
+ initrd = /boot/initrd.img-2.6.32-5book-686
+
+ image = /boot/vmlinuz-2.6.32-5-686
+ label = "Linux Old"
+ #root = /dev/sda1
+ root = "UUID=18843936-00f9-4df0-a373-000d05a5dd44"
+ read-only
+ # restricted
+ # alias = 2
+ # optional
+ initrd = /boot/initrd.img-2.6.32-5-686
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-h>
+
+Print a brief help.
+
+=item B<-v>
+
+Print verbose messages.
+
+=item B<-f>
+
+Force overriding existing lilo.conf.
+
+=back
+
+=head1 AUTHOR
+
+B<liloconfig> was written by Joachim Wiedorn.
+
+=cut
projects / rrq / maintain_lilo.git / blobdiff