From 95db5acfad79c309c0425cd609438cb5922d4841bfe6357f3ed36714b71e6f0e Mon Sep 17 00:00:00 2001 From: OBS User unknown Date: Wed, 19 Sep 2007 17:15:47 +0000 Subject: [PATCH] OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Bootloader?expand=0&rev=28 --- bootloader_entry | 8 ++++++++ perl-Bootloader-0.4.27.tar.bz2 | 3 --- perl-Bootloader-0.4.29.tar.bz2 | 3 +++ perl-Bootloader.changes | 21 +++++++++++++++++++++ perl-Bootloader.spec | 16 ++++++++++++++-- update-bootloader | 24 ++++++++++++++++++++++++ 6 files changed, 70 insertions(+), 5 deletions(-) delete mode 100644 perl-Bootloader-0.4.27.tar.bz2 create mode 100644 perl-Bootloader-0.4.29.tar.bz2 diff --git a/bootloader_entry b/bootloader_entry index cd9de46..73c42b9 100644 --- a/bootloader_entry +++ b/bootloader_entry @@ -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 \ diff --git a/perl-Bootloader-0.4.27.tar.bz2 b/perl-Bootloader-0.4.27.tar.bz2 deleted file mode 100644 index 6e17084..0000000 --- a/perl-Bootloader-0.4.27.tar.bz2 +++ /dev/null @@ -1,3 +0,0 @@ -version https://git-lfs.github.com/spec/v1 -oid sha256:ecc5c186121833ed70dc2ec9c5b3916b2591c80116cb3b3b8c22638f1c6ca253 -size 48807 diff --git a/perl-Bootloader-0.4.29.tar.bz2 b/perl-Bootloader-0.4.29.tar.bz2 new file mode 100644 index 0000000..2c10f81 --- /dev/null +++ b/perl-Bootloader-0.4.29.tar.bz2 @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:c404ca3128aedce184bc276522eeec0cf17b93da1fd7ba22feb7fee5355d5df9 +size 48824 diff --git a/perl-Bootloader.changes b/perl-Bootloader.changes index 3724c86..bca6dbd 100644 --- a/perl-Bootloader.changes +++ b/perl-Bootloader.changes @@ -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 diff --git a/perl-Bootloader.spec b/perl-Bootloader.spec index 5a0e110..0f5b5ea 100644 --- a/perl-Bootloader.spec +++ b/perl-Bootloader.spec @@ -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) diff --git a/update-bootloader b/update-bootloader index c5cf960..d86d41c 100644 --- a/update-bootloader +++ b/update-bootloader @@ -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) {