mirror of
https://git.launchpad.net/ubuntu-dev-tools
synced 2025-03-12 15:41:09 +00:00
pull-revu-source: Update to use dsc.py to get dsc URL
This commit is contained in:
parent
eb94bb8f7e
commit
72d3f50be2
6
debian/changelog
vendored
6
debian/changelog
vendored
@ -1,3 +1,9 @@
|
||||
ubuntu-dev-tools (0.77) UNRELEASED; urgency=low
|
||||
|
||||
* pull-revu-source: Update to use dsc.py to get dsc URL
|
||||
|
||||
-- Nathan Handler <nhandler@ubuntu.com> Sun, 30 Aug 2009 19:51:03 +0000
|
||||
|
||||
ubuntu-dev-tools (0.76) karmic; urgency=low
|
||||
|
||||
[ Nicolas Valcárcel ]
|
||||
|
@ -32,24 +32,15 @@ my($help)=0;
|
||||
GetOptions('help' => \$help);
|
||||
usage() if($help);
|
||||
|
||||
my $url = "http://" . $REVU . "/p/" . $package;
|
||||
dget(getURL());
|
||||
|
||||
dget(constructURL(getPage($url),'dsc'));
|
||||
|
||||
sub getPage {
|
||||
my($url) = @_;
|
||||
sub getURL {
|
||||
my($url) = "http://" . $REVU . "/dsc.py?url&package=" . $package;
|
||||
my($page)=get($url);
|
||||
die("Could Not Get $url") unless (defined $page);
|
||||
return $page;
|
||||
}
|
||||
|
||||
sub constructURL {
|
||||
my($page,$extension) = @_;
|
||||
my($url) = $page =~ m/a href=\"(.*?\.$extension)\"/im;
|
||||
die("No URL Ending in $extension") unless(defined $url);
|
||||
return "http://" . $REVU . $url;
|
||||
}
|
||||
|
||||
sub dget {
|
||||
my($dsc) = @_;
|
||||
exec("dget -xu $dsc");
|
||||
|
Loading…
x
Reference in New Issue
Block a user