zyppe/tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

First version

Browse source
This commit is contained in:
zyppe 2024-08-03 16:08:52 +08:00
parent 10d1e8373b
commit a4ea373e0d
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
RPM/CheckURL.pl
View file

@ -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;
}