From e7bf413432f8e1228b2cb1ecc47db468eb02965d Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Tue, 16 Mar 2021 12:28:22 +0100
Subject: [PATCH] - improved user infos: colored text instead of croak
---
bin/slubsipbuilderbagit.pl | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl
index 2ecc927..29f2ee6 100644
--- a/bin/slubsipbuilderbagit.pl
+++ b/bin/slubsipbuilderbagit.pl
@@ -282,7 +282,8 @@ package SLUB::LZA::SIPBuilderBagIt;
say "Downloading MARC21 utility xsl '$marc_utils_url'";
my $result = $ua->get($marc_utils_url);
if ($result->is_error) {
- croak "Failed to download '$marc_utils_url' (required for metadata download by PPN), " . $result->error_as_HTML;
+ print_scalar_data("", "ERROR: Failed to download '$marc_utils_url' (required for metadata download by PPN), " . $result->error_as_HTML, "", "red");
+ exit 1;
}
say "Saving MARC21 utility xsl to file '$marc_utils_path'";
my $xsl = $result->decoded_content;
@@ -309,7 +310,8 @@ package SLUB::LZA::SIPBuilderBagIt;
say "Downloading MARC21->MODS xsl '$marc_mods_url'";
my $result = $ua->get($marc_mods_url);
if ($result->is_error) {
- croak "Failed to download '$marc_mods_url' (required for metadata download by PPN), " . $result->error_as_HTML;
+ print_scalar_data("", "Failed to download '$marc_mods_url' (required for metadata download by PPN), " . $result->error_as_HTML, "", "red");
+ exit 1;
}
say "Modifying MARC21->MODS xsl for offline use";
$xsl = $result->decoded_content;
--
GitLab