Lubuntu/ubuntu-dev-tools
3
0
Fork 0
mirror of https://git.launchpad.net/ubuntu-dev-tools synced 2025-03-13 08:01:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

pull-revu-source: Update to use dsc.py to get dsc URL

Browse Source
This commit is contained in:
Nathan Handler 2009-08-30 19:51:57 +00:00
parent eb94bb8f7e
commit 72d3f50be2
2 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debian/changelog vendored
View File

@ -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 ubuntu-dev-tools (0.76) karmic; urgency=low
[ Nicolas Valcárcel ] [ Nicolas Valcárcel ]

15
pull-revu-source
View File

@ -32,24 +32,15 @@ my($help)=0;
GetOptions('help' => \$help); GetOptions('help' => \$help);
usage() if($help); usage() if($help);
my $url = "http://" . $REVU . "/p/" . $package; dget(getURL());
dget(constructURL(getPage($url),'dsc')); sub getURL {
my($url) = "http://" . $REVU . "/dsc.py?url&package=" . $package;
sub getPage {
my($url) = @_;
my($page)=get($url); my($page)=get($url);
die("Could Not Get $url") unless (defined $page); die("Could Not Get $url") unless (defined $page);
return $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 { sub dget {
my($dsc) = @_; my($dsc) = @_;
exec("dget -xu $dsc"); exec("dget -xu $dsc");