From a4ea373e0d6c254d1b7aef188e8f2bd3c3eef7bf Mon Sep 17 00:00:00 2001
From: zyppe <210hcl@gmail.com>
Date: Sat, 3 Aug 2024 16:08:52 +0800
Subject: [PATCH] First version

---
 RPM/CheckURL.pl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/RPM/CheckURL.pl b/RPM/CheckURL.pl
index cc8ef45..7dd89fa 100644
--- a/RPM/CheckURL.pl
+++ b/RPM/CheckURL.pl
@@ -1,3 +1,17 @@
 #!/usr/bin/perl
 use strict;
-use warnings FATAL => 'all';
+use warnings;
+
+use Parse::RPM::Spec;
+use LWP::UserAgent ();
+
+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;
+}
+else {
+    die $response->status_line;
+}
\ No newline at end of file