From 715100e4edc75672785e39bb27ac6e2685c53be5 Mon Sep 17 00:00:00 2001
From: XiCoN-FJS- <fjs@xicon.de>
Date: Sat, 19 Oct 2019 23:29:22 +0200
Subject: [PATCH] v4

---
 xtrd.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/xtrd.pl b/xtrd.pl
index fe73a25..9254b74 100644
--- a/xtrd.pl
+++ b/xtrd.pl
@@ -7,7 +7,7 @@ use Socket;
 use DBI;
 use File::Fetch;
 use PerlIO::gzip;
-use LWP::UserAgent;
+use HTTP::Tiny;
 use HTTP::Request;
 use Data::Validate::IP qw(is_ipv4);
 use Data::Dumper;
@@ -88,10 +88,9 @@ sub check_server_status
 {
 	my ($hostname,$port) = @_;
 	my $url = "http://".$hostname.":".$port."/v3/client/info/version";
-	my $ua = LWP::UserAgent->new(timeout => 2);
-	my $req = HTTP::Request->new("GET", $url);
-	my $response = $ua->request($req);
-	my @return_code = ($response->is_success, $response->decoded_content);
+	my $httptiny = HTTP::Tiny->new("timeout" => 2);
+	my $response = $httptiny->request("GET",$url);
+	my @return_code = ($response->{'success'}, $response->{'content'});
 	return @return_code;
 }