From 7fbe345e84cc25adec1022aa1fd8eb6617b4e381 Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Mon, 12 Oct 2020 11:45:03 +0200
Subject: [PATCH] - added info messages (improves progress visibility)

---
 bin/slubsipbuilderbagit.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl
index 8c79ecb..a4e8136 100644
--- a/bin/slubsipbuilderbagit.pl
+++ b/bin/slubsipbuilderbagit.pl
@@ -7990,12 +7990,14 @@ PATCH
         # create data dir
         SLUB::LZA::SIPBuilderBagIt::createDir($dataPath);
         # copy payload files to data
+        print_scalar_data("", "INFO: copying original data...", "", "white");
         dircopy($ieDirectory, $dataPath) || die ("Error coping $ieDirectory to $dataPath");
         # create meta dir
         SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
         # copy not payload files to meta
         SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile); 
         # create slub bagit
+        print_scalar_data("", "INFO: building DIP...", "", "white");
         SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo);
     }
     
@@ -8016,12 +8018,14 @@ PATCH
         # create bag dir
         SLUB::LZA::SIPBuilderBagIt::createDir($bagPath);
         # move payloads to data dir (which is automatically renamed from IE Directory)
+        print_scalar_data("", "INFO: moving original data...", "", "white");
         dirmove($ieDirectory, $dataPath) || die ("Error moving $ieDirectory to $dataPath");
         # create meta dir
         SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
         # copy not payload files to meta
         SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile);  
         # create slub bagit
+        print_scalar_data("", "INFO: building DIP...", "", "white");
         SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo);
     }
     
@@ -8042,12 +8046,14 @@ PATCH
         # create bag dir
         SLUB::LZA::SIPBuilderBagIt::createDir($bagPath);
         # move payloads to data dir (which is automatically renamed from IE Directory)
+        print_scalar_data("", "INFO: moving original data...", "", "white");
         dirmove($ieDirectory, $dataPath) || die ("Error moving $ieDirectory to $dataPath");
         # create meta dir
         SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
         # copy not payload files to meta
         SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile);  
         # create slub bagit
+        print_scalar_data("", "INFO: building DIP...", "", "white");
         SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo);
     }
     
-- 
GitLab