From 77e57d1029e4413fcbb5a6297a8748bb9d0ae5c7 Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Thu, 23 Feb 2023 15:27:55 +0100
Subject: [PATCH] - debug: show user agent request & response
---
lib/SLUB/LZA/Rosetta/TA/SRU.pm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lib/SLUB/LZA/Rosetta/TA/SRU.pm b/lib/SLUB/LZA/Rosetta/TA/SRU.pm
index d9ecdcf..d0cddf0 100644
--- a/lib/SLUB/LZA/Rosetta/TA/SRU.pm
+++ b/lib/SLUB/LZA/Rosetta/TA/SRU.pm
@@ -4,6 +4,7 @@ use warnings;
use feature qw(say);
use LWP::Authen::Basic;
use LWP::UserAgent;
+use LWP::ConsoleLogger::Easy qw( debug_ua );
use Carp;
use namespace::autoclean;
@@ -61,6 +62,7 @@ sub sru_search {
say "searchurl = $sru";
}
foreach my $retry (1 .. 2) {
+ my $console_logger = debug_ua( $ua );
my $req = $ua->get($sru);
if ($req->is_success) {
my $xres = $req->decoded_content;
--
GitLab