diff --git a/lib/SLUB/LZA/TA/Command/info.pm b/lib/SLUB/LZA/TA/Command/info.pm index f2841cb7d04473491c77a27be64ceab3898fb3c4..ca3a7868295360c77165c13d03779204b713be09 100644 --- a/lib/SLUB/LZA/TA/Command/info.pm +++ b/lib/SLUB/LZA/TA/Command/info.pm @@ -33,9 +33,18 @@ sub validate_args { return 1; } +sub _warn_if_no_config { + foreach my $key (@_) { + warn "Missed configuration for $key, missed initalization via command 'init' or missed command line options!" unless defined $key; + } + return; +} + sub execute { my ($self, $opt, $args) = @_; + warn "This module needs further work, only '--target-version' and '--version' supported yet" unless defined $opt->{target_version} or defined $opt->{version}; if ($opt->{target_version}) { + _warn_if_no_config(qw(elasticsearch_protocol elasticsearch_host elasticsearch_port)); say SLUB::LZA::TA::Archivematica::Elasticsearch::version_elasticsearch( $SLUB::LZA::TA::config{elasticsearch_protocol}, $SLUB::LZA::TA::config{elasticsearch_host}, @@ -43,8 +52,10 @@ sub execute { ); } if ($opt->{version}) { - say $SLUB::LZA::TA::VERSION; + warn "Missed version for Module SLUB::LZA::TA, called from development directory without dzil-based release?" unless defined $SLUB::LZA::TA::VERSION; + say $SLUB::LZA::TA::VERSION if defined $SLUB::LZA::TA::VERSION; } + return 1; }