File 0001-make-times-in-iso-images-reproducible.patch of Package product-builder

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-make-times-in-iso-images-reproducible.patch of Package product-builder (Revision 690025c827edd8f2967dcc40344d8b5c)

Currently displaying revision 690025c827edd8f2967dcc40344d8b5c , Show latest

From 93a2b0fdb201e728a6678e01609c1bab1622246c Mon Sep 17 00:00:00 2001
From: Jan Zerebecki <jan.suse@zerebecki.de>
Date: Fri, 9 Jun 2023 12:46:15 +0200
Subject: [PATCH] make times in iso images reproducible

by replacing mkisofs with xorriso, which enables reproducible mode when
environment variable SOURCE_DATE_EPOCH is set.
---
 modules/KIWIIsoLinux.pm  | 229 ++++++++++++++++++++++++++++++++++-----
 rpm/product-builder.spec |   2 +-
 2 files changed, 203 insertions(+), 28 deletions(-)

diff --git a/modules/KIWIIsoLinux.pm b/modules/KIWIIsoLinux.pm
index ef94687..01fac68 100644
--- a/modules/KIWIIsoLinux.pm
+++ b/modules/KIWIIsoLinux.pm
@@ -22,8 +22,10 @@ use strict;
 use warnings;
 use Carp qw /cluck/;
 use Fcntl;
+use File::Copy;
 use File::Find;
 use File::Basename;
+use POSIX qw(strftime);
 
 #==========================================
 # Base class
@@ -105,8 +107,13 @@ sub new {
         $tool = $genTool;
         $tool_type = "genisoimage";
     } else {
-        my $mkTool = $locator -> getExecPath('mkisofs');
+        my $mkTool = $locator -> getExecPath('xorrisofs');
         if ($mkTool && -x $mkTool) {
+            $tool = $mkTool;
+            # xorrisofs is a drop in replacement
+            $tool_type = "mkisofs";
+        } elsif ($mkTool && -x $mkTool) {
+            $mkTool = $locator -> getExecPath('mkisofs');
             $tool = $mkTool;
             $tool_type = "mkisofs";
         } else {
@@ -614,6 +621,7 @@ sub createSortFile {
     my $src  = $this->{source};
     my $sort = $this->{tmpfile};
     my $ldir = $this->{tmpdir};
+    my $tool = $this->{tool};
     my $FD;
 
     return "" if ! -d $src."/".$base{$arch}{boot};
@@ -625,19 +633,38 @@ sub createSortFile {
         return "";
     }
 
-    if ($base{$arch}{loader}) {
-      print $FD "$src/$base{$arch}{loader} 2\n";
-      (my $loader_dir = $base{$arch}{loader}) =~ s#/[^/]+$##;
-      print $FD "$src/$loader_dir 1\n";
-    }
+    my $arg = "-sort";
+    if (rindex($tool, "xorrisofs") == -1) {
+        if ($base{$arch}{loader}) {
+            print $FD "$src/$base{$arch}{loader} 2\n";
+            (my $loader_dir = $base{$arch}{loader}) =~ s#/[^/]+$##;
+            print $FD "$src/$loader_dir 1\n";
+        }
+
+        print $FD "$src/$base{$arch}{efi} 1000001\n" if $base{$arch}{efi};
+        print $FD "$src/$base{$arch}{boot}/boot.catalog 3\n";
+        print $FD "$ldir/$base{$arch}{boot}/boot.catalog 3\n";
+        print $FD "$ldir/glump 1000000\n";
+    } else {
+	# while xorrisofs is generally compatible with mkisofs, this is an exception
+        $arg = "--sort-weight-list";
+        if ($base{$arch}{loader}) {
+            print $FD "2 $base{$arch}{loader}\n";
+            (my $loader_dir = $base{$arch}{loader}) =~ s#/[^/]+$##;
+            print $FD "1 $loader_dir\n";
+        }
 
-    print $FD "$src/$base{$arch}{efi} 1000001\n" if $base{$arch}{efi};
-    print $FD "$src/$base{$arch}{boot}/boot.catalog 3\n";
-    print $FD "$ldir/$base{$arch}{boot}/boot.catalog 3\n";
-    print $FD "$ldir/glump 1000000\n";
+        print $FD "1000001 $base{$arch}{efi}\n" if $base{$arch}{efi};
+        if (-f "$src/$base{$arch}{boot}/boot.catalog" || -f "$ldir/$base{$arch}{boot}/boot.catalog") {
+            print $FD "3 $base{$arch}{boot}/boot.catalog\n";
+        }
+        if (-f "$ldir/glump") {
+            print $FD "1000000 glump\n";
+        }
+    }
     close $FD;
 
-    return " -sort $sort";
+    return " $arg $sort";
 }
 
 #==========================================
@@ -1021,6 +1048,95 @@ sub createISO {
         }
     }
     #==========================================
+    # Ensure xorrisofs which stands in for mkisofs produces reproducible output
+    #------------------------------------------
+    if(!$ENV{SOURCE_DATE_EPOCH}) {
+        my $file = $this->{m_xml}->{xmlOrigFile};
+        my $dir = ""; #TODO not a valid filename? but it was previously? dirname($file);
+        if (-d $dir.".git" && !-f "/usr/bin/git") {
+            $kiwi->warning("[W] found .git but not /usr/bin/git to extract last commit date for SOURCE_DATE_EPOCH");
+        }
+        if (-d $dir.".git" && -f "/usr/bin/git") {
+            my $output = qx("git rev-list -n1 --format=%ct HEAD");
+            my ($date) = $output =~ /.*\n(\d+)\n/;
+            if (0 != $? || !$date) {
+                $kiwi->warning("[W] Error getting date from last git commit. Environment variable SOURCE_DATE_EPOCH not set, setting to 0.");
+                $kiwi->warning("[W] git rev-list -n1 --format=%ct HEAD returned with $? and output: $date");
+                $ENV{SOURCE_DATE_EPOCH} = "0";
+            } else {
+                $ENV{SOURCE_DATE_EPOCH} = $date;
+                $kiwi->info("[I] Environment variable SOURCE_DATE_EPOCH not set, setting to date of last git commit which is $ENV{SOURCE_DATE_EPOCH}.");
+            }
+        } else {
+            $ENV{SOURCE_DATE_EPOCH} = "0";
+	    # TODO file is not the original kiwi file, but some config.xml
+	    # $ENV{SOURCE_DATE_EPOCH} = "".(stat($file))[9];
+	    # mtime of $file which is
+            $kiwi->info("[I] Environment variable SOURCE_DATE_EPOCH not set, setting to $ENV{SOURCE_DATE_EPOCH}.");
+	    my $mtime = "".(stat($file))[9];
+            $kiwi->warning("[W] mtime of $file would be $mtime.");
+        }
+        if (-d $dir.".osc") {
+            # TODO no idea where this would be
+            $kiwi->warning("[W] found .osc");
+        }
+    }
+    my $date = strftime("%Y%m%d%H%M%S00", gmtime($ENV{SOURCE_DATE_EPOCH}));
+    $para = "$para --set_all_file_dates $date";
+    #==========================================
+    # temporarily convert symlinks to hardlinks to later restore them
+    # and move .hashed directories aside to move them back later
+    #------------------------------------------
+    my @linkdata;
+    my $linkdate;
+    find({ wanted => sub {
+        if (-l $_) {
+            if (!$linkdate) {
+                # index 9 is mtime
+                $linkdate = (lstat($_))[9];
+                $linkdate = strftime("%Y%m%d%H%M.%S", gmtime($linkdate));
+            }
+            my $target = readlink($_);
+            if (!defined($target)) {
+                $kiwi -> error  ("Failed to readlink($_) with error: $!");
+                $kiwi -> failed ();
+                return;
+            }
+            my @data = ($target, $_);
+            push(@linkdata, \@data);
+            $kiwi -> info ("converting symlink to hardlink at $_ with target $target\n");
+            if (!unlink($_)) {
+                $kiwi -> error  ("Failed to unlink($_) with error: $!");
+                $kiwi -> failed ();
+                return;
+            }
+            my $dir = dirname($_);
+            if (!link($dir.'/'.$target, $_)) {
+                $kiwi -> error  ("Failed to link($dir.'/'.$target, $_) with error: $!");
+                $kiwi -> failed ();
+                return;
+            }
+        }
+    } , no_chdir => 1 }, ($ldir, $src));
+    # directories named .hashed contain symlink targets, this construct is used to avoid rsync skipping changed content whose mtime did not change
+    if (!mkdir("$src/../tmp-moved-hidden-excluded")) {
+        $kiwi -> error  ("Failed to mkdir($src/../tmp-moved-hidden-excluded) with error: $!");
+        $kiwi -> failed ();
+        return;
+    }
+    my %moveddata;
+    my $count = 1;
+    find({ wanted => sub {
+        if (".hidden" == basename($_)) {
+            $moveddata{$count} = $_;
+            if (!mv($_, "$src/../tmp-moved-hidden-excluded/$count")) {
+                $kiwi -> error  ("Failed to mv($_, $src/../tmp-moved-hidden-excluded/$count) with error: $!");
+                $kiwi -> failed ();
+                return;
+            }
+        }
+    } , no_chdir => 1 }, ($ldir, $src));
+    #==========================================
     # Call mkisofs first stage
     #------------------------------------------
     # log sort file
@@ -1040,6 +1156,7 @@ sub createISO {
         $this -> cleanISO();
         return;
     }
+    $kiwi ->info("[I] Output of $prog: $data");
     #==========================================
     # Call mkisofs second stage
     #------------------------------------------
@@ -1063,6 +1180,49 @@ sub createISO {
             $this -> cleanISO();
             return;
         }
+        $kiwi ->info("[I] Output of $prog: $data");
+    }
+    #==========================================
+    # restore symlinks and .hashed directories
+    #------------------------------------------
+    while(my ($count, $name) = each %moveddata) {
+        if (!mv("$src/../tmp-moved-hidden-excluded/$count", $name)) {
+            $kiwi -> error  ("Failed to mv($src/../tmp-moved-hidden-excluded/$count, $name) with error: $!");
+            $kiwi -> failed ();
+            return;
+        }
+    }
+    if (!rmdir("$src/../tmp-moved-hidden-excluded")) {
+        $kiwi -> error  ("Failed to rmdir($src/../tmp-moved-hidden-excluded) with error: $!");
+        $kiwi -> failed ();
+        return;
+    }
+    my @links;
+    foreach (@linkdata) {
+        my $target = ${$_}[0];
+        my $name = ${$_}[1];
+        push(@links, $name);
+        if (!unlink($name)) {
+            $kiwi -> error  ("Failed to unlink($name) with error: $!");
+            $kiwi -> failed ();
+            return;
+        }
+        if (!symlink($target, $name)) {
+            $kiwi -> error  ("Failed to symlink($target, $name) with error: $!");
+            $kiwi -> failed ();
+            return;
+        }
+    }
+    if (@links) {
+        # there is no way in perl to set the mtime of a symlink and to call the libc function lutimes FFI::Platypus would be useful, but is not packaged yet, so for speed batch a call to touch
+        unshift(@links, ("/usr/bin/touch", "-h", "-t", $linkdate));
+        system(@links);
+        if (0 != $?) {
+            $kiwi -> error  ("error return value $? from calling ".join(" ", @links)."\n");
+            $kiwi -> failed ();
+            return;
+        }
+        $kiwi -> info ("restored symlinks\n");
     }
     #==========================================
     # Call post bootloader install
@@ -1110,32 +1270,47 @@ sub isols {
     my $iso  = $this -> {dest};
     my $fd   = FileHandle -> new();
     my $dir  = "/";
-    my $isoinfo_opts = " -R -l -i $iso 2>/dev/null |";
+    my $opts = " -indev $iso -find / -not -type d -exec report_lba 2>/dev/null |";
     my $files;
     local $_;
-    my $isoinfo_cmd = "/usr/bin/isoinfo";
-    if (! -x $isoinfo_cmd){
-        $isoinfo_cmd = "/usr/lib/genisoimage/isoinfo";
-        if (! -x $isoinfo_cmd){
-            return;
+    my $cmd = "/usr/bin/xorriso";
+    if (! -x $cmd){
+        $cmd = "/usr/bin/isoinfo";
+        $opts = " -R -l -i $iso 2>/dev/null |";
+        if (! -x $cmd){
+            $cmd = "/usr/lib/genisoimage/isoinfo";
+            if (! -x $cmd){
+                return;
+            }
         }
     }
-    if (! $fd -> open ($isoinfo_cmd . $isoinfo_opts)) {
+    if (! $fd -> open ($cmd . $opts)) {
         return;
     }
     while(<$fd>) {
-        if(/^Directory listing of\s*(\/.*\/)/) {
-            $dir = $1;
-            next;
-        }
-        if(/.*(-)[-rxw]{9}.*\s\[\s*(\d+)(\s+\d+)?\]\s+(.*?)\s*$/) {
-            my $type = $1;
-            $type = ' ' if $type eq '-';
-            if($4 ne '.' && $4 ne '..') {
+        if($cmd eq "/usr/bin/xorriso") {
+            if(/Report layout:\s+xt\s,\s+Startlba\s,\s+Blocks\s,\s+Filesize\s,\s+ISO image path$/) {
+                next;
+            }
+            if(/File data lba:\s+(\d+)\s,\s+(\d+)\s,\s+(\d+)\s,\s+(\d+)\s,\s+'(\/.*)'$/) {
                 push @$files, {
-                    name => "$dir$4",type => $type,start => $2 + 0
+                    name => $5, type => ' ', start => $2
                 };
             }
+        } else {
+            if(/^Directory listing of\s*(\/.*\/)/) {
+                $dir = $1;
+                next;
+            }
+            if(/.*(-)[-rxw]{9}.*\s\[\s*(\d+)(\s+\d+)?\]\s+(.*?)\s*$/) {
+                my $type = $1;
+                $type = ' ' if $type eq '-';
+                if($4 ne '.' && $4 ne '..') {
+                    push @$files, {
+                        name => "$dir$4",type => $type,start => $2 + 0
+                    };
+                }
+            }
         }
     }
     $fd -> close();
diff --git a/rpm/product-builder.spec b/rpm/product-builder.spec
index 59a71b0..9fe0688 100644
--- a/rpm/product-builder.spec
+++ b/rpm/product-builder.spec
@@ -50,7 +50,7 @@ Requires:       obs-build
 %endif
 Requires:       checkmedia
 Requires:       inst-source-utils
-Requires:       mkisofs
+Requires:       xorriso
 Requires:       product-builder-plugin
 %ifarch %ix86 x86_64
 Requires:       syslinux
-- 
2.30.2

Places

File 0001-make-times-in-iso-images-reproducible.patch of Package product-builder (Revision 690025c827edd8f2967dcc40344d8b5c)

Places