blob: f8ff68fcf0d05b188c85afa25c23ffd9f3e61778 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
package SlackBuild::Request::Loader::url;
use strict;
use warnings;
use URI;
our $PRIORITY = 30;
sub Load {
my ($class, $reqname) = @_;
if ($reqname =~ m{^\w+://}) {
my $uri = new URI($reqname);
if ($uri->scheme =~ m{^(?:http|ftp)s?}
&& $uri->path =~ m{.*/(.+?)\.tar(?:\.(?:[xgl]z|bz2))?}x) {
return { package => $1, slackbuild_uri => $reqname };
}
if ($uri->scheme eq 'sbo') {
return { package => $uri->package, slackbuild_uri => $reqname }
}
}
}
1;
|