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

perl-Bootloader-0.4.91.tar.bz2

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

perl-Bootloader-0.5.0.tar.bz2

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

perl-Bootloader.changes

@@ -1,3 +1,13 @@
+-------------------------------------------------------------------
+Tue Apr 14 14:22:39 CEST 2009 - jreidinger@suse.cz
+
+- Code cleanup
+- abstract udev settings from library
+- abstract architecture from library
+- doesn't parse # after text for grub bootloader (bnc #481416)
+- move MBR handling code from yast2-bootlaoder to pbl
+- 0.5.0  
+
 -------------------------------------------------------------------
 Tue Apr 14 12:44:58 CEST 2009 - jreidinger@suse.cz
 

perl-Bootloader.spec

@@ -1,5 +1,5 @@
 #
-# spec file for package perl-Bootloader (Version 0.4.91)
+# spec file for package perl-Bootloader (Version 0.5.0)
 #
 # Copyright (c) 2009 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
@@ -19,7 +19,7 @@
 
 
 Name:           perl-Bootloader
-Version:        0.4.91
+Version:        0.5.0
 Release:        1
 Requires:       perl-base = %{perl_version}
 Requires:       e2fsprogs
@@ -47,6 +47,7 @@ Authors:
     Joachim Plack <jplack@novell.com>
     Olaf Dabrunz <od@novell.com>
     Jiri Srain <jsrain@suse.cz>
+    Josef Reidinger <jreidinger@suse.cz>
 
 %prep
 %setup -q
@@ -68,6 +69,24 @@ install -d -m 755 $RPM_BUILD_ROOT/boot
 install -m 644 %{SOURCE3} $RPM_BUILD_ROOT/boot/
 install -d -m 755 $RPM_BUILD_ROOT/usr/share/man/man8/
 install -m 644 update-Bootloader.8.gz $RPM_BUILD_ROOT/usr/share/man/man8/
+#install only needed files for bootloader for specific architecture
+%ifarch %ix86 x86_64
+rm $RPM_BUILD_ROOT/%{perl_vendorlib}/Bootloader/Core/{ZIPL*,PowerLILO*}
+rm $RPM_BUILD_ROOT/%{_mandir}/man?/{*ZIPL*,*PowerLILO*}
+sed -i '/ZIPL/D;/PowerLILO/D;' $RPM_BUILD_ROOT/%{perl_vendorarch}/auto/Bootloader/.packlist
+%endif
+%ifarch ppc ppc64
+rm $RPM_BUILD_ROOT/%{perl_vendorlib}/Bootloader/Core/{ZIPL*,LILO*,ELILO*, GRUB*}
+sed -i '/ZIPL/D;/ELILO/D;/\/LILO/D;/GRUB/D;' $RPM_BUILD_ROOT/%{perl_vendorarch}/auto/Bootloader/.packlist
+%endif
+%ifarch s390 s390x
+rm $RPM_BUILD_ROOT/%{perl_vendorlib}/Bootloader/Core/{*LILO*,GRUB*}
+sed -i '/LILO/D;/GRUB/D;' $RPM_BUILD_ROOT/%{perl_vendorarch}/auto/Bootloader/.packlist
+%endif
+%ifarch ia32 ia64
+rm $RPM_BUILD_ROOT/%{perl_vendorlib}/Bootloader/Core/{LILO*,GRUB*,ZIPL*,PowerLILO*}
+sed -i '/ZIPL/D;/PowerLILO/D;/\/LILO/D;/GRUB/D;' $RPM_BUILD_ROOT/%{perl_vendorarch}/auto/Bootloader/.packlist
+%endif
 
 %files
 %defattr(-, root, root)
@@ -82,6 +101,13 @@ install -m 644 update-Bootloader.8.gz $RPM_BUILD_ROOT/usr/share/man/man8/
 
 %changelog
 * Tue Apr 14 2009 jreidinger@suse.cz
+- Code cleanup
+- abstract udev settings from library
+- abstract architecture from library
+- doesn't parse # after text for grub bootloader (bnc #481416)
+- move MBR handling code from yast2-bootlaoder to pbl
+- 0.5.0
+* Tue Apr 14 2009 jreidinger@suse.cz
 - count timeout for elilo and Powerlilo in seconds instead
   tenths of seconds
 - 0.4.91

update-bootloader

@@ -5,6 +5,7 @@ use Getopt::Long;
 use Pod::Usage;
 use Bootloader::Tools;
 use Bootloader::Path;
+use Bootloader::MBRTools;
 use strict;
 
 my %oper;
@@ -186,6 +187,7 @@ GetOptions (\%oper,
     'add|a'    	 ,
     'refresh'    ,
     'remove|r' 	 ,
+    'examinembr|e=s', 
     'default|d'  => \$opt_default,
     'force-default' => \$opt_force_default,
     'help|h'   	 => \$opt_help,
@@ -210,6 +212,16 @@ pod2usage("Option 'default' is only allowed for operation 'add'")
 pod2usage("Option 'force-default' is only allowed for operation 'add'")
     if ($opt_force_default and not defined $oper{add});
     
+if (defined $oper{"examinembr"}) {
+  my $ret = Bootloader::MBRTools::ExamineMBR($oper{"examinembr"});
+  if (defined $ret){
+    print "$ret\n";
+    exit 0;
+  } else {
+    exit 1;
+  }
+}
+
 if (Bootloader::Tools::GetBootloader() eq "none")
 {
   open (LOG, ">>$logname");
@@ -230,7 +242,7 @@ if (defined $opt_xen_kernel) {
     $opt_xen = 1;
 } elsif ($opt_xen) {
     my $xen_flavor = $opt_image;
-    $xen_flavor =~ s/.*-(\w+)/\1/;
+    $xen_flavor =~ s/.*-(\w+)/$1/;
 
     if ($xen_flavor eq "xenpae") {
         $opt_xen_kernel = "/boot/xen-pae.gz";
@@ -351,7 +363,7 @@ if (defined $oper{add}) {
     # Naming scheme for all other kernels
     else {
 	my $flavor = $opt_name;
-	$flavor =~ s/.*-(\w+)/\1/;
+	$flavor =~ s/.*-(\w+)/$1/;
 	$flavor = ucfirst ($flavor);
 
 	# Create long labels for grub