From 19cf46d14ba266887278d3f06d0ce791218c9469 Mon Sep 17 00:00:00 2001 From: Bob Gilligan Date: Tue, 13 Jul 2010 18:05:11 -0700 Subject: Move vyatta-update-grub.pl to the vyatta-base package. This is necessary so that it can be used by full-upgrade. --- scripts/vyatta-update-grub.pl | 217 ------------------------------------------ 1 file changed, 217 deletions(-) delete mode 100644 scripts/vyatta-update-grub.pl diff --git a/scripts/vyatta-update-grub.pl b/scripts/vyatta-update-grub.pl deleted file mode 100644 index 3ef426b9..00000000 --- a/scripts/vyatta-update-grub.pl +++ /dev/null @@ -1,217 +0,0 @@ -#!/usr/bin/perl - -# **** License **** -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License version 2 as -# published by the Free Software Foundation. -# -# 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. -# -# This code was originally developed by Vyatta, Inc. -# Portions created by Vyatta are Copyright (C) 2010 Vyatta, Inc. -# All Rights Reserved. -# -# Author: Bob Gilligan -# Date: Jully, 2010 -# Description: Script to update the grub config file after full upgrade. -# -# **** End License **** - -use strict; -use warnings; -use Getopt::Long; -use File::Temp qw/ :mktemp /; - -my $UNION_BOOT_DIR = '/live/image/boot'; -my $UNION_GRUB_CFG_DIR = "$UNION_BOOT_DIR/grub"; -my $DISK_BOOT_DIR = '/boot'; -my $DISK_GRUB_CFG_DIR= '/boot/grub'; -my $OLD_IMG_VER_STR = 'Old-non-image-installation'; - -# Returns the version string of the currently running system. -# The logic is roughly like this: -# -# First, figure out whether system is image-booted or standard booted. -# Next, locate the grub config file. -# Next, edit all entries for running image to use the vmlinuz and -# initrd.img symlinks instead of specific kernel and initrd files. -# Next, change the vmlinuz and initrd.img symlinks to point to the -# correct kernel and initrd.img files. -# -sub curVer { - my $vers = `awk '{print \$1}' /proc/cmdline`; - - # In an image-booted system, the image name is the directory name - # directory under "/boot" in the pathname of the kernel we booted. - $vers =~ s/BOOT_IMAGE=\/boot\///; - $vers =~ s/\/?vmlinuz.*\n$//; - - # In a non-image system, the kernel resides directly under "/boot". - # No second-level directory means that $vers will be null. - if ($vers eq "") { - $vers = $OLD_IMG_VER_STR; - } - return $vers; -} - -my $boot_dir; -my $grub_cfg_dir; -my $grub_cfg_file; -my $tmp_grub_cfg_file; -my $on_disk_kernel_dir; -my $local_kernel_dir; -my $running_image_name; -my $debug_flag = 0; - -GetOptions( - "debug" => \$debug_flag, - ); - - -sub log_msg { - my $message = shift; - - print "DEBUG: $message" if $debug_flag; -} - - -# Main - -if (-e $UNION_BOOT_DIR) { - $boot_dir = $UNION_BOOT_DIR; - $grub_cfg_dir = $UNION_GRUB_CFG_DIR; - - $running_image_name = curVer(); - if ($running_image_name eq $OLD_IMG_VER_STR) { - print "Can't find image name for union booted system.\n"; - exit 1; - } - $on_disk_kernel_dir = "/boot/$running_image_name"; - $local_kernel_dir = "$boot_dir/$running_image_name"; - if (! -e $local_kernel_dir) { - print "Can't find kernel directory: $local_kernel_dir\n"; - exit 1; - } - log_msg("System is image booted.\n"); -} elsif (-e $DISK_BOOT_DIR) { - $boot_dir = $DISK_BOOT_DIR; - $grub_cfg_dir = $DISK_GRUB_CFG_DIR; - $on_disk_kernel_dir = $boot_dir; - $local_kernel_dir = $boot_dir; - $running_image_name = ""; - log_msg("System is disk booted.\n"); -} else { - print "Can't locate boot directory!\n"; - exit 1; -} - -$grub_cfg_file = "$grub_cfg_dir/grub.cfg"; - -if (! -e $grub_cfg_file) { - print "can't locate grub config file: $grub_cfg_file\n"; - exit 1; -} - -if (-e "$local_kernel_dir/linux" && ! -l "$local_kernel_dir/linux") { - print "Linux binary is not a symlink: $local_kernel_dir/linux\n"; - exit 1; -} - -if (-e "$local_kernel_dir/initrd.img" && ! -l "$local_kernel_dir/initrd.img") { - print "initrd file is not a symlink: $local_kernel_dir/initrd.img\n"; - exit 1; -} - -# Back up the original grub config file -system("cp $grub_cfg_file $grub_cfg_dir/orig_grub.cfg"); -if ($? >> 8) { - print "Couldn't back up original grub config file.\n"; - exit 1; -} - -# Make temp copy to work on -$tmp_grub_cfg_file = $grub_cfg_file . ".tmp"; - -system("cp $grub_cfg_file $tmp_grub_cfg_file"); -if ($? >> 8) { - print "Couldn't back up temp copy of grub config file.\n"; - exit 1; -} - -my $sedcmd="sed -i 's+linux $on_disk_kernel_dir\/vmlinuz-[^ ]* +linux $on_disk_kernel_dir\/vmlinuz +' $tmp_grub_cfg_file"; - -log_msg("Executing: $sedcmd \n"); - -system($sedcmd); -if ($? >> 8) { - print "Couldn't edit linux entry in grub config file: $tmp_grub_cfg_file"; - exit 1; -} - - -$sedcmd="sed -i 's+initrd $on_disk_kernel_dir\/initrd-[^ ]* +initrd $on_disk_kernel_dir\/initrd +' $tmp_grub_cfg_file"; - -log_msg("Executing: $sedcmd \n"); - -system($sedcmd); -if ($? >> 8) { - print "Couldn't edit initrd entry in grub config file: $tmp_grub_cfg_file"; - exit 1; -} - -my $kern_vers=`ls $local_kernel_dir/vmlinuz-*`; - -my @kern_vers_list = split(' ', $kern_vers); - -if ($#kern_vers_list < 0) { - print "No kernel binary files found in grub boot dir: $local_kernel_dir\n"; - exit 1; -} - -log_msg("kern_vers_list befor subst is: @kern_vers_list\n"); - -foreach (@kern_vers_list) { - s/$local_kernel_dir\/vmlinuz-//; -} -@kern_vers_list = sort(@kern_vers_list); - -log_msg("kern_vers_list after subst is: @kern_vers_list\n"); - -# Search in reverse leacographic order (higest first) for a version to use -foreach my $index ($#kern_vers_list..0) { - my $vers = $kern_vers_list[$index]; - if (-e "$local_kernel_dir/vmlinuz-$vers" && - -e "$local_kernel_dir/initrd.img-$vers") { - log_msg("Using version $vers\n"); - system("rm -f $local_kernel_dir/vmlinuz"); - system("ln -s vmlinuz-$vers $local_kernel_dir/vmlinuz"); - if ($? >> 8) { - print "Couldn't symlink kernel binary: $local_kernel_dir/vmlinuz-$vers\n"; - # keep going - } - - system("rm -f $local_kernel_dir/initrd.img"); - system("ln -s initrd.img-$vers $local_kernel_dir/initrd.img"); - if ($? >> 8) { - print "Couldn't symlink initrd file: $local_kernel_dir/initrd.img-$vers\n"; - # keep going - } - - # Move our edited grub config file back into position - system("mv $tmp_grub_cfg_file $grub_cfg_file"); - if ($? >> 8) { - print "Couldn't move edited grub config file into position: $grub_cfg_file\n"; - # keep going - } - - # done - print "Done.\n"; - exit 0; - } -} - -print "Couldn't find matching vmlinuz and initrd.img files!\n"; -exit 1; -- cgit v1.2.3