mirror of
https://git.launchpad.net/ubuntu-dev-tools
synced 2025-03-12 23:51:08 +00:00
pull-debian-source: Modify to work for packages not in main (LP: #379822)
This commit is contained in:
parent
3aeb7c88b5
commit
67fec3a81a
5
debian/changelog
vendored
5
debian/changelog
vendored
@ -39,7 +39,10 @@ ubuntu-dev-tools (0.74) UNRELEASED; urgency=low
|
|||||||
* ubuntutools/lp/functions.py:
|
* ubuntutools/lp/functions.py:
|
||||||
- Simplify isLPTeamMember.
|
- Simplify isLPTeamMember.
|
||||||
|
|
||||||
-- Nathan Handler <nhandler@ubuntu.com> Thu, 21 May 2009 03:09:42 +0000
|
[ Nathan Handler ]
|
||||||
|
* pull-debian-source: Modify to work for packages not in main (LP: #379822)
|
||||||
|
|
||||||
|
-- Nathan Handler <nhandler@ubuntu.com> Sat, 23 May 2009 20:34:35 +0000
|
||||||
|
|
||||||
ubuntu-dev-tools (0.73) karmic; urgency=low
|
ubuntu-dev-tools (0.73) karmic; urgency=low
|
||||||
|
|
||||||
|
@ -88,7 +88,8 @@ sub getDSC {
|
|||||||
if($madison=~m/^[WE]:/i) {
|
if($madison=~m/^[WE]:/i) {
|
||||||
die("$madison");
|
die("$madison");
|
||||||
}
|
}
|
||||||
my($baseURL)='http://ftp.debian.org/debian/pool/main/';
|
my($baseURL)='http://ftp.debian.org/debian/pool/';
|
||||||
|
my($url)=$baseURL;
|
||||||
my(@madison)=split(/\n/,$madison);
|
my(@madison)=split(/\n/,$madison);
|
||||||
foreach my $line (@madison) {
|
foreach my $line (@madison) {
|
||||||
my($package,$version,$release,$archs)=split(/\|/,$line,4);
|
my($package,$version,$release,$archs)=split(/\|/,$line,4);
|
||||||
@ -106,7 +107,16 @@ sub getDSC {
|
|||||||
else {
|
else {
|
||||||
$firstLetter=substr($package,0,1);
|
$firstLetter=substr($package,0,1);
|
||||||
}
|
}
|
||||||
my($url)=$baseURL . $firstLetter . '/' . $package . '/' . $package . '_' . $version . '.dsc';
|
if($release=~m/contrib/) {
|
||||||
|
$url .= 'contrib/';
|
||||||
|
}
|
||||||
|
elsif($release=~m/non\-free/) {
|
||||||
|
$url .= 'non-free/';
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$url .= 'main/';
|
||||||
|
}
|
||||||
|
$url .= $firstLetter . '/' . $package . '/' . $package . '_' . $version . '.dsc';
|
||||||
return $url;
|
return $url;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user