Skip to content
Snippets Groups Projects
Commit a8cdb2a2 authored by bolkun's avatar bolkun
Browse files

Refactored package main

parent e6a8bc32
No related branches found
No related tags found
1 merge request!5Feature error coloring
...@@ -650,38 +650,35 @@ if ((!defined $ppn && !defined $noppn) || (!defined $ppn && $noppn eq "") || (!d ...@@ -650,38 +650,35 @@ if ((!defined $ppn && !defined $noppn) || (!defined $ppn && $noppn eq "") || (!d
if (!defined $sipVersion || $sipVersion eq "") { if (!defined $sipVersion || $sipVersion eq "") {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify --SIP_version, current tool supports <v2020.1>", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify --SIP_version, current tool supports <v2020.1>", "", "red");
die(); die();
} else { }
if ($sipVersion ne "v2020.1") { if ($sipVersion ne "v2020.1") {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: not valid --SIP_version, current tool supports <v2020.1>", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: not valid --SIP_version, current tool supports <v2020.1>", "", "red");
die(); die();
} }
utf8::decode($sipVersion); utf8::decode($sipVersion);
push @addBagInfo, {'SLUBArchiv-sipVersion' => $sipVersion}; push @addBagInfo, {'SLUBArchiv-sipVersion' => $sipVersion};
}
# externalWorkflow # externalWorkflow
if (!defined $externalWorkflow || $externalWorkflow eq "") { if (!defined $externalWorkflow || $externalWorkflow eq "") {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify external workflow", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify external workflow", "", "red");
die(); die();
} else { }
if ($externalWorkflow !~ m#^[a-z0-9_-]+$#) { if ($externalWorkflow !~ m#^[a-z0-9_-]+$#) {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify a valid --external_workflow (^[a-z0-9_-]+\$)", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify a valid --external_workflow (^[a-z0-9_-]+\$)", "", "red");
die(); die();
} }
utf8::decode($externalWorkflow); utf8::decode($externalWorkflow);
push @addBagInfo, {'SLUBArchiv-externalWorkflow' => $externalWorkflow}; push @addBagInfo, {'SLUBArchiv-externalWorkflow' => $externalWorkflow};
}
# externalId # externalId
if (!defined $externalId || $externalId eq "") { if (!defined $externalId || $externalId eq "") {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify external ID", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify external ID", "", "red");
die(); die();
} else { }
if ($externalId !~ m#^[a-z0-9_-]+$#) { if ($externalId !~ m#^[a-z0-9_-]+$#) {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify a valid --external_id (^[a-z0-9_-]+\$)", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify a valid --external_id (^[a-z0-9_-]+\$)", "", "red");
die(); die();
} }
utf8::decode($externalId); utf8::decode($externalId);
push @addBagInfo, {'SLUBArchiv-externalId' => $externalId}; push @addBagInfo, {'SLUBArchiv-externalId' => $externalId};
}
# externalIsilId # externalIsilId
if (defined $externalIsilId && $externalIsilId ne "") { if (defined $externalIsilId && $externalIsilId ne "") {
utf8::decode($externalIsilId); utf8::decode($externalIsilId);
...@@ -702,29 +699,27 @@ push @addBagInfo, {'SLUBArchiv-hasConservationReason' => $hasConservationReason} ...@@ -702,29 +699,27 @@ push @addBagInfo, {'SLUBArchiv-hasConservationReason' => $hasConservationReason}
if (!defined $archivalValueDescription || $archivalValueDescription eq "") { if (!defined $archivalValueDescription || $archivalValueDescription eq "") {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify an --external_value_descr (reason for archiving)", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify an --external_value_descr (reason for archiving)", "", "red");
die(); die();
} else { }
utf8::decode($archivalValueDescription); utf8::decode($archivalValueDescription);
push @addBagInfo, {'SLUBArchiv-archivalValueDescription' => $archivalValueDescription}; push @addBagInfo, {'SLUBArchiv-archivalValueDescription' => $archivalValueDescription};
}
# rightsVersion # rightsVersion
if (!defined $rightsVersion || $rightsVersion eq "") { if (!defined $rightsVersion || $rightsVersion eq "") {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify --rights_version", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: you need to specify --rights_version", "", "red");
die(); die();
} else { }
if($rightsVersion ne "1.0") { if($rightsVersion ne "1.0") {
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: invalid --rights_version, supported version <1.0>", "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "ERROR: invalid --rights_version, supported version <1.0>", "", "red");
die(); die();
} }
utf8::decode($rightsVersion); utf8::decode($rightsVersion);
push @addBagInfo, {'SLUBArchiv-rightsVersion' => $rightsVersion}; push @addBagInfo, {'SLUBArchiv-rightsVersion' => $rightsVersion};
}
# addKeyValue # addKeyValue
if (@addKeyValue) { if (@addKeyValue) {
foreach my $zeile(@addKeyValue) { foreach my $zeile(@addKeyValue) {
if($zeile !~ m#^.*:.*$#) { # : must be minimum once present if($zeile !~ m#^.*:.*$#) { # : must be minimum once present
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", 'ERROR: wrong construct in --add_key_value="' . $zeile . '", expected --add_key_value="key:value", regexp to match is (^[^:]+:[^:]+$)', "", "red"); SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", 'ERROR: wrong construct in --add_key_value="' . $zeile . '", expected --add_key_value="key:value", regexp to match is (^[^:]+:[^:]+$)', "", "red");
die(); die();
} else { }
utf8::decode($zeile); utf8::decode($zeile);
my @keyvalue = split(/:/, $zeile, 2); # split on first : my @keyvalue = split(/:/, $zeile, 2); # split on first :
my $key = $keyvalue[0]; my $key = $keyvalue[0];
...@@ -754,7 +749,6 @@ if (@addKeyValue) { ...@@ -754,7 +749,6 @@ if (@addKeyValue) {
push @addBagInfo, {$key => $value}; push @addBagInfo, {$key => $value};
} }
} }
}
########################################################################################################################################################## ##########################################################################################################################################################
# rightsFilePath # rightsFilePath
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment