Hello community,
here is the log from the commit of package perl-Bootloader
checked in at Fri Dec 8 16:22:26 CET 2006.
--------
--- perl-Bootloader/perl-Bootloader.changes 2006-12-07 13:54:37.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Bootloader/perl-Bootloader.changes 2006-12-08 14:48:55.000000000 +0100
@@ -1,0 +2,10 @@
+Fri Dec 8 13:04:55 CET 2006 - jplack@suse.de
+
+- fixed comment handling for ZIPL
+- basic implementation for generic bootloader widgets for ZIPL
+ (Fate#300732)
+- basic implementation for generic bootloader widgets for ELILO
+ (Fate#300732)
+- version bump 0.4.7
+
+-------------------------------------------------------------------
Old:
----
perl-Bootloader-0.4.6.tar.bz2
New:
----
perl-Bootloader-0.4.7.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Bootloader.spec ++++++
--- /var/tmp/diff_new_pack.pF7Rpy/_old 2006-12-08 16:22:10.000000000 +0100
+++ /var/tmp/diff_new_pack.pF7Rpy/_new 2006-12-08 16:22:10.000000000 +0100
@@ -1,5 +1,5 @@
#
-# spec file for package perl-Bootloader (Version 0.4.6)
+# spec file for package perl-Bootloader (Version 0.4.7)
#
# Copyright (c) 2006 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.6
+Version: 0.4.7
Release: 1
Requires: perl >= %{perl_version}
Requires: perl-gettext
@@ -64,6 +64,13 @@
/usr/lib/bootloader
%changelog -n perl-Bootloader
+* Fri Dec 08 2006 - jplack@suse.de
+- fixed comment handling for ZIPL
+- basic implementation for generic bootloader widgets for ZIPL
+ (Fate#300732)
+- basic implementation for generic bootloader widgets for ELILO
+ (Fate#300732)
+- version bump 0.4.7
* Thu Dec 07 2006 - aosthof@suse.de
- fixed identation (correct usage of tabs)
- fixed remove_entry() that it removes xen entries correctly
++++++ perl-Bootloader-0.4.6.tar.bz2 -> perl-Bootloader-0.4.7.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.6/lib/Bootloader/Core/ELILO.pm new/perl-Bootloader-0.4.7/lib/Bootloader/Core/ELILO.pm
--- old/perl-Bootloader-0.4.6/lib/Bootloader/Core/ELILO.pm 2006-04-03 17:36:14.000000000 +0200
+++ new/perl-Bootloader-0.4.7/lib/Bootloader/Core/ELILO.pm 2006-12-08 12:21:05.000000000 +0100
@@ -44,6 +44,116 @@
#module interface
+
+sub GetMetaData() {
+ my $loader = shift;
+
+ # possible global entries
+ #
+ # default=value Name the default image to boot. If not defined ELILO
+ # will boot the first defined image.
+ # timeout=number The number of 10th of seconds to wait while in
+ # interactive mode before auto booting default kernel.
+ # Default is infinity.
+ # delay=number The number of 10th of seconds to wait before
+ # auto booting when not in interactive mode.
+ # Default is 0.
+ # prompt Force interactive mode
+ # verbose=number Set level of verbosity [0-5]. Default 0 (no verbose)
+ # root=filename Set global root filesystem for Linux/ia64
+ # read-only Force root filesystem to be mounted read-only
+ # append=string Append a string of options to kernel command line
+ # initrd=filename Name of initrd file
+ # image=filename Define a new image
+ # chooser=name Specify kernel chooser to use: 'simple' or 'textmenu'.
+ # message=filename a message that is printed on the main screen if supported by
+ # the chooser.
+ # fX=filename Some choosers may take advantage of this option to
+ # display the content of a file when a certain function
+ # key X is pressed. X can vary from 1-12 to cover
+ # function keys F1 to F12.
+ # noedd30 do not force the EDD30 EFI variable to TRUE when FALSE. In other
+ # words, don't force the EDD30 mode if not set.
+ #
+ #
+ # possible section types:
+ # image
+ #
+ # image section options:
+ # root=filename Set root filesystem for kernel
+ # read-only Force root filesystem to be mounted read-only
+ # append=string Append a string of options to kernel command line
+ # initrd=filename Name of initrd file
+ # label=string Logical name of image (used in interactive mode)
+ # description=string One line text description of the image.
+
+
+ my %exports;
+
+ my @bootpart;
+ my @partinfo = @{$loader->{"partitions"} || []};
+
+ # boot from any partition (really?)
+ @bootpart = map {
+ my ($device, $disk, $nr, $fsid, $fstype, $part_type, $start_cyl, $size_cyl) = @$_;
+ $device;
+ } @partinfo;
+
+ my $boot_partitions = join(":", @bootpart);
+
+ my $root_devices = join(":",
+ map {
+ my ($device, $disk, $nr, $fsid, $fstype, $part_type, $start_cyl, $size_cyl) = @$_;
+ # FIXME: weed out non-root partitions
+ } @ partinfo,
+ keys %{$loader->{"md_arrays"} || {}}
+ );
+
+ # FIXME: is "arch" export necessary?
+
+ $exports{"global_options"} = {
+ # maps to either deafult or default_menu
+ default => "string:Default Boot Section/Menu:linux",
+ #default_menu => "string:Default Boot Menu:",
+ #timeout => "int:Timeout in Seconds:5:0:60",
+ #prompt => "bool:Show boot menu",
+ #target => "path:Target directory for configuration/menu section:/boot/zipl",
+ };
+
+ my $go = $exports{"global_options"};
+
+ $exports{"section_options"} = {
+ type_image => "bool:Image Section",
+ type_dump => "bool:Dump Section (obsolete)",
+ type_menu => "bool:Menu Section",
+ # section type image; omitting implicit "label"
+ image_target => "path:Target Directory for Configuration Section:/boot/zipl",
+ image_image => "path:Kernel Image:/boot/image",
+ image_ramdisk => "path:Initial RAM Disk:/boot/initrd",
+ image_parameters => "string:Optional Kernel Parameters",
+ image_parmfile => "path:Optional Parameter File",
+ # section type image; omitting implicit "label"
+ dump_target => "path:Target Directory for Dump Section:/boot/zipl",
+ dump_dumpto => "path:Dump Device:/dev/dasd",
+ dump_dumptofs => "path:SCSI Dump Device:/dev/zfcp",
+ # section type image; omitting implicit "label"
+ menu_menuname => "string:Menu name:usermenu",
+ menu_target => "path:Target Directory for Menu Section:/boot/zipl",
+ menu_list => "string:List of Menu Entries:linux:",
+ # menu_list => "list:List of Menu Entries:linux:",
+ menu_default => "int:Number of Default Entry:1:1:10",
+ menu_timeout => "int:Timeout in seconds:5:0:60",
+ menu_prompt => "bool:Show boot menu",
+ # FIXME: dump section has a target, too
+ };
+
+ my $so = $exports{"section_options"};
+
+ $loader->{"exports"}=\%exports;
+ return \%exports;
+}
+
+
=item
C<< $obj_ref = Bootloader::Core::ELILO->new (); >>
@@ -62,6 +172,8 @@
{ "key" => "relocatable", "value" => "" },
];
bless ($loader);
+
+ $loader->GetMetaData();
$loader->l_milestone ("ELILO::new: Created ELILO instance");
return $loader;
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.6/lib/Bootloader/Core/GRUB.pm new/perl-Bootloader-0.4.7/lib/Bootloader/Core/GRUB.pm
--- old/perl-Bootloader-0.4.6/lib/Bootloader/Core/GRUB.pm 2006-11-30 15:44:51.000000000 +0100
+++ new/perl-Bootloader-0.4.7/lib/Bootloader/Core/GRUB.pm 2006-12-08 12:31:55.000000000 +0100
@@ -113,7 +113,7 @@
# gfxmenu
# * password:: Set a password for the menu interface
- # * bootp:: --with-configfile Initialize a network device via BOOTP
+ # * bootp:: --with-configfile Initialize a network device via BOOTP
# * color:: Color the menu interface
# * dhcp:: Initialize a network device via DHCP
# * ifconfig:: Configure a network device manually
@@ -225,7 +225,7 @@
my $go = $exports{"global_options"};
$exports{"section_options"} = {
- type_image => "bool:Kernel section",
+ type_image => "bool:Image section",
# image_name => "string:Name of section", # implicit
image_image => "path:Kernel image:/boot/vmlinux",
image_root => "selectdevice:Root device::" . $root_devices,
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/perl-Bootloader-0.4.6/lib/Bootloader/Core/ZIPL.pm new/perl-Bootloader-0.4.7/lib/Bootloader/Core/ZIPL.pm
--- old/perl-Bootloader-0.4.6/lib/Bootloader/Core/ZIPL.pm 2006-05-29 17:24:57.000000000 +0200
+++ new/perl-Bootloader-0.4.7/lib/Bootloader/Core/ZIPL.pm 2006-12-08 14:58:31.000000000 +0100
@@ -59,7 +59,7 @@
#module interface
-sub getExports() {
+sub GetMetaData() {
my $loader = shift;
# possible global entries
@@ -69,6 +69,11 @@
# prompt
# target
#
+ # possible section types:
+ # image
+ # dump
+ # menu
+ #
# per section entries
#
# label
@@ -105,33 +110,45 @@
# FIXME: is "arch" export necessary?
$exports{"global_options"} = {
- default => "string:Default boot section:linux",
- timeout => "int:Timeout in seconds:0:60:5",
- prompt => "bool:Show boot menu",
- target => "path:Target directory for configuration/menu section:/boot/zipl",
+ # maps to either deafult or default_menu
+ default => "string:Default Boot Section/Menu:linux",
+ #default_menu => "string:Default Boot Menu:",
+ #timeout => "int:Timeout in Seconds:5:0:60",
+ #prompt => "bool:Show boot menu",
+ #target => "path:Target directory for configuration/menu section:/boot/zipl",
};
my $go = $exports{"global_options"};
$exports{"section_options"} = {
- type_image => "bool:Kernel section",
- type_dump => "bool:Dump section (obsolete)",
- type_menu => "bool:Menu section",
- # omitting implicit "label"
- menu_menuname => "string:Menu name:usermenu",
- image_image => "path:Kernel image:/boot/image",
- image_ramdisk => "path:Initial RAM disk:/boot/initrd",
- dump_dumpto => "path:Dump device:/dev/dasd",
- image_target => "path:Target directory for configuration/menu section:/boot/zipl",
- # FIXME: dump section has a target, too
- image_parameters => "string:Optional kernel parameters",
- image_parmfile => "path:Optional parameter file",
- dump_dumptofs => "path:SCSI dump device:/dev/zfcp",
+ type_image => "bool:Image Section",
+ image_target => "path:Target Directory for Image Section:/boot/zipl",
+ image_image => "path:Kernel Image:/boot/image",
+ # converted from ramdisk => initrd
+ image_initrd => "path:Initial RAM Disk:/boot/initrd",
+ # converted from parameters => append, root
+ image_append => "string:Optional Kernel Parameters",
+ image_root => "selectdevice:Root device::" . $root_devices,
+ image_parmfile => "path:Optional Parameter File",
+
+ type_dump => "bool:Dump Section (obsolete)",
+ dump_target => "path:Target Directory for Dump Section:/boot/zipl",
+ dump_dumpto => "path:Dump Device:/dev/dasd",
+ dump_dumptofs => "path:SCSI Dump Device:/dev/zfcp",
+
+ type_menu => "bool:Menu Section",
+ menu_target => "path:Target Directory for Menu Section:/boot/zipl",
+ menu_list => "string:List of Menu Entries:linux:",
+ # menu_list => "list:List of Menu Entries:linux:",
+ menu_default => "int:Number of Default Entry:1:1:10",
+ menu_timeout => "int:Timeout in seconds:5:0:60",
+ menu_prompt => "bool:Show boot menu",
};
my $so = $exports{"section_options"};
$loader->{"exports"}=\%exports;
+ return \%exports;
}
@@ -148,10 +165,10 @@
my $old = shift;
my $loader = $self->SUPER::new ($old);
- $loader->{"default_global_lines"} = [
- ];
-
+ $loader->{"default_global_lines"} = [ ];
bless ($loader);
+
+ $loader->GetMetaData();
$loader->l_milestone ("ZIPL::new: Created ZIPL instance");
return $loader;
}
@@ -167,7 +184,6 @@
# map