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

302 test

Browse source
This commit is contained in:
zyppe 2024-08-08 14:28:16 +08:00
parent a4ea373e0d
commit e6bc578e11
3 changed files with 14 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored Normal file
View file

@ -0,0 +1 @@
.idea/

3
README.md
View file

@ -1,3 +0,0 @@
# tools
Tools for Project

19
RPM/CheckURL.pl
View file

@ -1,17 +1,22 @@
#!/usr/bin/perl #!/usr/bin/perl
use strict; use strict;
use warnings; use warnings;
use v5.10;
use Parse::RPM::Spec; use Parse::RPM::Spec;
use LWP::UserAgent (); use HTTP::Tiny;
my $spec = Parse::RPM::Spec->new( { file => @ARGV } ); my $spec = Parse::RPM::Spec->new( { file => @ARGV } );
say $spec->name; print $spec->name . "\n";
my $url = $spec->url; my $url = $spec->url();
my $response = LWP::UserAgent->new( timeout => 10 )->get($url); say $url;
if ($response->is_success) { my $response = HTTP::Tiny->new( timeout => 10 )->get($url);
print $response->decoded_content; if ( $response->{status} == 200 ) {
if ( $response->{url} ne $url ) {
say "302 Redirect. Redirect to";
say $response->{url};
}
} }
else { else {
die $response->status_line; say "Cannot get! Status " . $response->{status};
} }