File grub2-s390x-set-hostonly.patch of Package grub2

Overview Repositories Revisions Requests Users Attributes Meta

File grub2-s390x-set-hostonly.patch of Package grub2

diff --git a/util/s390x/zipl2grub.pl.in b/util/s390x/zipl2grub.pl.in
index f4f997100..46b902209 100644
--- a/util/s390x/zipl2grub.pl.in
+++ b/util/s390x/zipl2grub.pl.in
@@ -15,6 +15,7 @@ my $zipldir = "";
 my $running = "";
 my $refresh = 1; # needs to default to "on" until most bugs are shaken out!
 my $force = 0;
+my $hostonly = 1;
 my $verbose = 0;
 my $debug = 0;
 my $miss = 0;
@@ -114,8 +115,13 @@ sub BootCopy($$$$) {
 }
 sub MkInitrd($$$) {
   my( $initrd, $dir, $version) = @_;
-  my @C = ( "dracut", "--hostonly", "--force");
+  my @C = ( "dracut", "--force");
   my $uuid;
+  if ($hostonly) {
+    push @C, "--hostonly";
+  } else {
+    push @C, "--no-hostonly";
+  }
   push @C, "--quiet" unless ($verbose > 1);
   if ( exists( $fsdev{"/boot"}) ) {
   chomp( $uuid = qx{grub2-probe --target=fs_uuid /boot});
@@ -368,6 +374,24 @@ foreach ("GRUB_EMU_CONMODE", "GRUB_CONMODE") {
   $C{$_} = "conmode=" . $C{$_};
 }
 
+if ( !exists( $C{SUSE_S390_DRACUT_HOSTONLY}) || $C{SUSE_S390_DRACUT_HOSTONLY} eq "auto" ) {
+  # Auto-detection mode
+  #
+  # Check if the root block device of the root partition is a loop device.
+  # If yes, it is the image building system, e.g. kiwi. Then, set 'hostonly' to 0.
+  my ( $dev, $lsblk );
+
+  chomp( $dev = qx{grub2-probe -t device /});
+  if ($dev) {
+    chomp( $lsblk = qx{lsblk -snrp -o NAME $dev});
+    $hostonly = 0 if ( $lsblk =~ m{\/loop} );
+  }
+} elsif ( $C{SUSE_S390_DRACUT_HOSTONLY} =~ m{^(no|false|0)$} ) {
+  $hostonly = 0;
+} else {
+  $hostonly = 1;
+}
+
 if ( $debug && $verbose > 2 ) {
   foreach ( sort( keys( %C)) ) {
     printf( "%s=\"%s\"\n", $_, $C{$_});

Places

File grub2-s390x-set-hostonly.patch of Package grub2

Places