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

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 \

perl-Bootloader-0.4.27.tar.bz2

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

perl-Bootloader-0.4.29.tar.bz2

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

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
 

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)

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) {