From 55ff3dd5f9bf123d0ca03227d47054b7bc9850aa Mon Sep 17 00:00:00 2001 From: Andreas Romeyke <andreas.romeyke@slub-dresden.de> Date: Thu, 16 Feb 2023 10:55:21 +0100 Subject: [PATCH] - added missed dzil entries/comments --- bin/ta-tool.pl | 4 ++++ lib/SLUB/LZA/Rosetta/TA.pm | 4 +++- lib/SLUB/LZA/Rosetta/TA/Command/count.pm | 5 +++++ lib/SLUB/LZA/Rosetta/TA/Command/init.pm | 4 ++++ lib/SLUB/LZA/Rosetta/TA/Command/log.pm | 4 ++++ lib/SLUB/LZA/Rosetta/TA/Command/search.pm | 4 ++++ lib/SLUB/LZA/Rosetta/TA/Crypt.pm | 4 ++++ lib/SLUB/LZA/Rosetta/TA/Log.pm | 4 ++++ lib/SLUB/LZA/Rosetta/TA/SOAP.pm | 5 +++++ lib/SLUB/LZA/Rosetta/TA/SRU.pm | 4 ++++ lib/SLUB/LZA/Rosetta/TA/common_sru.pm | 5 +++++ 11 files changed, 46 insertions(+), 1 deletion(-) diff --git a/bin/ta-tool.pl b/bin/ta-tool.pl index f363758..1d8f39d 100644 --- a/bin/ta-tool.pl +++ b/bin/ta-tool.pl @@ -4,6 +4,10 @@ use warnings; use SLUB::LZA::Rosetta::TA; SLUB::LZA::Rosetta::TA->run; +# VERSION + +# ABSTRACT: binary ta-tool + =head1 NAME ta-tool - the swiss knife for the technical analyst working with Rosetta Achival Information system =head1 SYNOPSIS diff --git a/lib/SLUB/LZA/Rosetta/TA.pm b/lib/SLUB/LZA/Rosetta/TA.pm index 81b2140..08b8d81 100644 --- a/lib/SLUB/LZA/Rosetta/TA.pm +++ b/lib/SLUB/LZA/Rosetta/TA.pm @@ -1,6 +1,6 @@ +package SLUB::LZA::Rosetta::TA; use strict; use warnings; -package SLUB::LZA::Rosetta::TA; use App::Cmd::Setup -app; use Path::Tiny qw( path ); use YAML qw(LoadFile); @@ -13,6 +13,8 @@ use IO::Zlib; use Text::CSV_PP; use SLUB::LZA::Rosetta::TA::Crypt; +# VERSION + # ABSTRACT: main module for ta-tool our %config; diff --git a/lib/SLUB/LZA/Rosetta/TA/Command/count.pm b/lib/SLUB/LZA/Rosetta/TA/Command/count.pm index 171f243..5dbc71c 100644 --- a/lib/SLUB/LZA/Rosetta/TA/Command/count.pm +++ b/lib/SLUB/LZA/Rosetta/TA/Command/count.pm @@ -6,6 +6,11 @@ use SLUB::LZA::Rosetta::TA -command; use SLUB::LZA::Rosetta::TA::common_sru; use SLUB::LZA::Rosetta::TA::SRU; +# VERSION + +# ABSTRACT: count IEs module for ta-tool + + sub abstract {"count IEs in Rosetta based Archival Information System";} my $description=<<"DESCR"; diff --git a/lib/SLUB/LZA/Rosetta/TA/Command/init.pm b/lib/SLUB/LZA/Rosetta/TA/Command/init.pm index de437f0..872ee79 100644 --- a/lib/SLUB/LZA/Rosetta/TA/Command/init.pm +++ b/lib/SLUB/LZA/Rosetta/TA/Command/init.pm @@ -8,6 +8,10 @@ use IO::Prompt::Tiny; use Crypt::Mode::CBC; use Path::Tiny; +# VERSION + +# ABSTRACT: init module for ta-tool + sub abstract {"Initialize $0";} sub description {"Initialize $0, preparing config"} sub opt_spec { diff --git a/lib/SLUB/LZA/Rosetta/TA/Command/log.pm b/lib/SLUB/LZA/Rosetta/TA/Command/log.pm index c9dc7d0..19748cc 100644 --- a/lib/SLUB/LZA/Rosetta/TA/Command/log.pm +++ b/lib/SLUB/LZA/Rosetta/TA/Command/log.pm @@ -9,6 +9,10 @@ use DateTime::Format::DateParse; use SLUB::LZA::Rosetta::TA -command; use SLUB::LZA::Rosetta::TA::Log; +# VERSION + +# ABSTRACT: module to grep Rosetta's log for ta-tool + sub abstract {"grep server log of Rosetta based Archival Information System";} my $description=<<"DESCR"; diff --git a/lib/SLUB/LZA/Rosetta/TA/Command/search.pm b/lib/SLUB/LZA/Rosetta/TA/Command/search.pm index 3302bc4..7cb43a2 100644 --- a/lib/SLUB/LZA/Rosetta/TA/Command/search.pm +++ b/lib/SLUB/LZA/Rosetta/TA/Command/search.pm @@ -6,6 +6,10 @@ use SLUB::LZA::Rosetta::TA -command; use SLUB::LZA::Rosetta::TA::common_sru; use SLUB::LZA::Rosetta::TA::SRU; +# VERSION + +# ABSTRACT: search IEs module for ta-tool + sub abstract {"searches Rosetta based Archival Information System";} my $description=<<"DESCR"; Searches a Rosetta-based AIS for descriptive oder source metadata on behalf of the Technical Analyst. diff --git a/lib/SLUB/LZA/Rosetta/TA/Crypt.pm b/lib/SLUB/LZA/Rosetta/TA/Crypt.pm index ea1e3d5..78b419e 100644 --- a/lib/SLUB/LZA/Rosetta/TA/Crypt.pm +++ b/lib/SLUB/LZA/Rosetta/TA/Crypt.pm @@ -3,6 +3,10 @@ use strict; use warnings; use Crypt::Mode::CBC; +# VERSION + +# ABSTRACT: module to handle password load/store for ta-tool + our $salt = pack("H16", "There is no security by obscurity!"); sub encrypt { my $what = shift; diff --git a/lib/SLUB/LZA/Rosetta/TA/Log.pm b/lib/SLUB/LZA/Rosetta/TA/Log.pm index 8b0e1ef..88955f3 100644 --- a/lib/SLUB/LZA/Rosetta/TA/Log.pm +++ b/lib/SLUB/LZA/Rosetta/TA/Log.pm @@ -5,6 +5,10 @@ use feature qw(say); use SLUB::LZA::Rosetta::TA::SOAP; use Path::Tiny; +# VERSION + +# ABSTRACT: module to scan Rosetta's log files for ta-tool + sub helper_scan_log { my $directory = shift; my $fh_processing = shift; diff --git a/lib/SLUB/LZA/Rosetta/TA/SOAP.pm b/lib/SLUB/LZA/Rosetta/TA/SOAP.pm index 4f78e71..6ba01b9 100644 --- a/lib/SLUB/LZA/Rosetta/TA/SOAP.pm +++ b/lib/SLUB/LZA/Rosetta/TA/SOAP.pm @@ -1,6 +1,11 @@ package SLUB::LZA::Rosetta::TA::SOAP; use strict; use warnings; + +# VERSION + +# ABSTRACT: module to handle SOAP requests for ta-tool + sub get_ie_pid_by_sip { my $sip = shift; my $protocol = "https"; diff --git a/lib/SLUB/LZA/Rosetta/TA/SRU.pm b/lib/SLUB/LZA/Rosetta/TA/SRU.pm index 2e9ec0a..c39c97f 100644 --- a/lib/SLUB/LZA/Rosetta/TA/SRU.pm +++ b/lib/SLUB/LZA/Rosetta/TA/SRU.pm @@ -6,6 +6,10 @@ use LWP::Authen::Basic; use LWP::UserAgent; use Carp; +# VERSION + +# ABSTRACT: module to handle SRU requests for ta-tool + sub url_encode_simple { my $string = shift; $string =~ s/ /%20/g; diff --git a/lib/SLUB/LZA/Rosetta/TA/common_sru.pm b/lib/SLUB/LZA/Rosetta/TA/common_sru.pm index 509a994..65868bd 100644 --- a/lib/SLUB/LZA/Rosetta/TA/common_sru.pm +++ b/lib/SLUB/LZA/Rosetta/TA/common_sru.pm @@ -2,6 +2,11 @@ package SLUB::LZA::Rosetta::TA::common_sru; use strict; use warnings; +# VERSION + +# ABSTRACT: common query-recipes module for ta-tool + + sub prepare_query { my $opt = shift; my @queries; -- GitLab