pool/perl-Bootloader
SHA256
4
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Bootloader?expand=0&rev=28

Browse Source
This commit is contained in:
OBS User unknown 2007-09-19 17:15:47 +00:00 committed by Git OBS Bridge
parent adce70341c
commit 95db5acfad
6 changed files with 70 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
bootloader_entry
View File

@ -57,6 +57,9 @@ function getargs()
# Wrapper for the update-bootloader function
function update_bootloader()
{
echo "bootloader_entry: This is (wrapper) function update_bootloader" >> \
/var/log/YaST2/perl-BL-standalone-log
[ -x /sbin/update-bootloader ] || return 0
/sbin/update-bootloader "$@"
}
@ -67,6 +70,9 @@ function update_bootloader()
##############################
function add_entry()
{
echo "bootloader_entry: This is function add_entry()" >> \
/var/log/YaST2/perl-BL-standalone-log
# Set up the new kernel
if [ -f /etc/sysconfig/bootloader ] &&
[ -f /boot/grub/menu.lst -o \
@ -147,6 +153,8 @@ function remove_entry()
# sections at all, or do only chainload them (BootLILO.ycp), and
# thus do not match either. (#223030)
echo "bootloader_entry: This is function remove_entry()" >> \
/var/log/YaST2/perl-BL-standalone-log
if [ $flavor == "xen" ]; then
update_bootloader --image /boot/$image \

3
perl-Bootloader-0.4.27.tar.bz2
View File

@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:ecc5c186121833ed70dc2ec9c5b3916b2591c80116cb3b3b8c22638f1c6ca253
size 48807

3
perl-Bootloader-0.4.29.tar.bz2 Normal file
View File

@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:c404ca3128aedce184bc276522eeec0cf17b93da1fd7ba22feb7fee5355d5df9
size 48824

21
perl-Bootloader.changes
View File

@ -1,3 +1,24 @@
-------------------------------------------------------------------
Tue Sep 18 20:56:03 CEST 2007 - aosthof@suse.de
- Added more verbose logging to update-bootloader and
bootloader_entry to be able to better analyze occurring
problems (#309837)
-------------------------------------------------------------------
Tue Sep 18 20:35:18 CEST 2007 - od@suse.de
- Add comment for former default value only during update (related
to #309837, prevents accumulating wrong information that may be
used during a later update)
- Version bump to 0.4.29
-------------------------------------------------------------------
Tue Sep 18 14:11:17 CEST 2007 - aosthof@suse.de
- Adapted timestamps for log files (#309837)
- Version bump to 0.4.28
-------------------------------------------------------------------
Tue Sep 18 10:12:53 CEST 2007 - od@suse.de

16
perl-Bootloader.spec
View File

@ -1,5 +1,5 @@
#
# spec file for package perl-Bootloader (Version 0.4.27)
# spec file for package perl-Bootloader (Version 0.4.29)
#
# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@ -11,7 +11,7 @@
# norootforbuild
Name: perl-Bootloader
Version: 0.4.27
Version: 0.4.29
Release: 1
Requires: perl >= %{perl_version}
Requires: perl-gettext
@ -66,6 +66,18 @@ install -m 755 %{SOURCE2} $RPM_BUILD_ROOT/usr/lib/bootloader
/usr/lib/bootloader
%changelog
* Tue Sep 18 2007 - aosthof@suse.de
- Added more verbose logging to update-bootloader and
bootloader_entry to be able to better analyze occurring
problems (#309837)
* Tue Sep 18 2007 - od@suse.de
- Add comment for former default value only during update (related
to #309837, prevents accumulating wrong information that may be
used during a later update)
- Version bump to 0.4.29
* Tue Sep 18 2007 - aosthof@suse.de
- Adapted timestamps for log files (#309837)
- Version bump to 0.4.28
* Tue Sep 18 2007 - od@suse.de
- Add comment for former default value only if it does not yet
exist (#309837)

24
update-bootloader
View File

@ -311,6 +311,10 @@ if (defined $oper{add}) {
# execute selected operation
#
if (defined $oper{add}) {
open (LOG, ">>/var/log/YaST2/perl-BL-standalone-log");
print LOG ("update-bootloader: now executing operation add\n");
close LOG;
pod2usage("Please specify name and kernel image for new section")
unless $opt_name and $opt_image;
@ -351,6 +355,10 @@ if (defined $oper{add}) {
# Add original_name to params to be able to create comment line
push @params, original_name => "xen";
open (LOG, ">>/var/log/YaST2/perl-BL-standalone-log");
print LOG ("update-bootloader: calling Tools::AddSection (XEN)\n");
close LOG;
AddSection($opt_xen_name, @params);
}
# Add "normal" section
@ -358,6 +366,10 @@ if (defined $oper{add}) {
# Add original_name to params to be able to create comment line
push @params, original_name => "linux";
open (LOG, ">>/var/log/YaST2/perl-BL-standalone-log");
print LOG ("update-bootloader: calling Tools::AddSection (normal)\n");
close LOG;
AddSection($opt_name, @params);
}
@ -377,6 +389,10 @@ if (defined $oper{add}) {
# Add original_name to params to be able to create comment line
push @params, original_name => "failsafe";
open (LOG, ">>/var/log/YaST2/perl-BL-standalone-log");
print LOG ("update-bootloader: calling Tools::AddSection (failsafe)\n");
close LOG;
AddSection($opt_failsafe, @params);
}
}
@ -391,12 +407,20 @@ if (defined $oper{remove}) {
push @params, initrd => $opt_initrd if $opt_initrd;
push @params, name => $opt_name if $opt_name;
open (LOG, ">>/var/log/YaST2/perl-BL-standalone-log");
print LOG ("update-bootloader: now executing operation remove\n");
close LOG;
my $num = CountSections(@params);
if ($num > 0) {
if ($num > 1 and not $opt_force) {
pod2usage("There is more than one section with image '$opt_image'");
} else {
open (LOG, ">>/var/log/YaST2/perl-BL-standalone-log");
print LOG ("update-bootloader: calling Tools::RemoveSections\n");
close LOG;
RemoveSections(@params);
}
} elsif (not $opt_force) {