lib/SlackBuild/Request/Loader/url.pm


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;