diff --git a/bin/ta-tool.pl b/bin/ta-tool.pl index f363758b7f65e7bbc4313ac05cf562acb4a4191a..1d8f39d21d1cca7fe974994699ff760ad67da712 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 81b21400c64208a4a8f3e268c97cec9fc9f21299..08b8d81915f138413d63cbfc2c02dc0c66ba503d 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 171f24362496ce5a016074b5522b0d5f5750ef15..5dbc71c97ee49bdaf95772901ac97c15f415d0b1 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 de437f04781e7df575cefdb211f31b7d2ff61a59..872ee79fb85d32e76980ab3dc4e4daedaedcc41f 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 c9dc7d0eaf7a9753ae72ff086ac15318403ea5af..19748cc1e795d7e5c99ca70da41e88d5fff04124 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 3302bc4c6a5003617536e3febc9b61b3f514b98b..7cb43a2fc93a919c11f4a8938d9d532c4de98fbe 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 ea1e3d5b1e369f53b296b9c8a59545287704a81e..78b419ecef8a0ccf8d60d38798f3630c3aa7e7d5 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 8b0e1ef4385ddbd787f2009f91d48dd72b381bdb..88955f38acbaba83aae57410ff3da0e4cda8894f 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 4f78e713852089ec1fed9f5cd4996ef752f67bdf..6ba01b972bcc8d827094a250f2952921cd73a9bb 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 2e9ec0a0a43e5fcaed5e8b2cab7eccd1dc121e14..c39c97fb4b4b947f570f876988e3f8c0a7d4a021 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 509a994ce4ea8685f622711b5ab7c158262ef314..65868bdf74760201d51183db08a0b27f679d347c 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;