From a776be91453a7a9a212e705453259598ea3851ce Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 15 Mar 2020 16:44:22 +0000
Subject: installer: write ISO volume label to installer log

---
 perl-install/install/install2.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/install/install2.pm')

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index d6712b1bc..e410de60c 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -693,7 +693,12 @@ sub main {
 
     $o->{stage2_phys_medium} = install::media::stage2_phys_medium($o->{method});
 
-    log::l('ISO date: ' . cat_('/tmp/media/DATE.txt')) if -e '/tmp/media/DATE.txt';
+    if (-e '/tmp/media/DATE.txt') {
+        my @mount_entry = grep { $_ =~ m,/tmp/media, } cat_('/proc/mounts');
+        my @mount_fields = split(/ /, $mount_entry[0]);
+        log::l(run_program::get_stdout('blkid', '-s', 'LABEL', $mount_fields[0]));
+        log::l('ISO date: ' . cat_('/tmp/media/DATE.txt'));
+    }
 
     install::any::log_system_info($o);
 
-- 
cgit v1.2.1