From e6bc578e118fff4cbc28c3ca6008f7e8a64d03f1 Mon Sep 17 00:00:00 2001
From: zyppe <210hcl@gmail.com>
Date: Thu, 8 Aug 2024 14:28:16 +0800
Subject: [PATCH] 302 test

---
 .gitignore      |  1 +
 README.md       |  3 ---
 RPM/CheckURL.pl | 21 +++++++++++++--------
 3 files changed, 14 insertions(+), 11 deletions(-)
 create mode 100644 .gitignore
 delete mode 100644 README.md

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..9f11b75
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+.idea/
diff --git a/README.md b/README.md
deleted file mode 100644
index c694f30..0000000
--- a/README.md
+++ /dev/null
@@ -1,3 +0,0 @@
-# tools
-
-Tools for Project
\ No newline at end of file
diff --git a/RPM/CheckURL.pl b/RPM/CheckURL.pl
index 7dd89fa..e049d8c 100644
--- a/RPM/CheckURL.pl
+++ b/RPM/CheckURL.pl
@@ -1,17 +1,22 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
+use v5.10;
 
 use Parse::RPM::Spec;
-use LWP::UserAgent ();
+use HTTP::Tiny;
 
 my $spec = Parse::RPM::Spec->new( { file => @ARGV } );
-say $spec->name;
-my $url      = $spec->url;
-my $response = LWP::UserAgent->new( timeout => 10 )->get($url);
-if ($response->is_success) {
-    print $response->decoded_content;
+print $spec->name . "\n";
+my $url = $spec->url();
+say $url;
+my $response = HTTP::Tiny->new( timeout => 10 )->get($url);
+if ( $response->{status} == 200 ) {
+    if ( $response->{url} ne $url ) {
+        say "302 Redirect. Redirect to";
+        say $response->{url};
+    }
 }
 else {
-    die $response->status_line;
-}
\ No newline at end of file
+    say "Cannot get! Status " . $response->{status};
+}