From d940bef5dc879a24bb88c1cf984a55ee5fd7652b Mon Sep 17 00:00:00 2001
From: Nathan Handler <nhandler@ubuntu.com>
Date: Sat, 28 Mar 2009 14:45:11 +0000
Subject: [PATCH] * pull-debian-source:   - Add support for etch/oldstable   -
 Make script work for codenames (etch, lenny, squeeze, sid)

---
 debian/changelog   |  6 +++++-
 pull-debian-source | 24 ++++++++++++++++++++----
 2 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 751e333..7b70f4e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,8 +7,12 @@ ubuntu-dev-tools (0.72) UNRELEASED; urgency=low
   [ Siegfried-Angel Gevatter Pujals ]
   * pbuilder-dist:
      - Add squeeze as a Debian distribution. Thanks to Marco Rodrigues.
+  [ Nathan Handler ]
+  * pull-debian-source:
+    - Add support for etch/oldstable
+    - Make script work for codenames (etch, lenny, squeeze, sid)
 
- -- Siegfried-Angel Gevatter Pujals <rainct@ubuntu.com>  Sat, 28 Mar 2009 15:19:26 +0100
+ -- Nathan Handler <nhandler@ubuntu.com>  Sat, 28 Mar 2009 15:19:26 +0100
 
 ubuntu-dev-tools (0.71) jaunty; urgency=low
 
diff --git a/pull-debian-source b/pull-debian-source
index 1b19e25..ee8d1cc 100755
--- a/pull-debian-source
+++ b/pull-debian-source
@@ -27,21 +27,37 @@ die("Please install 'devscripts'\n") if(! grep -x "$_/dget", split(':',$ENV{'PAT
 my($package)=$ARGV[0] || &usage();
 &usage() if(($package=~m/^\-\-help/i) || ($package=~m/^\-h/i));
 my($release)=$ARGV[1] || 'unstable';
+$release=&convertCodeName($release);
 &checkRelease($release);
 my($dsc)=&getDSC(&getMadison(&getURL($package,$release)));
 print "$dsc\n";
 exec("dget -xu $dsc");
+sub convertCodeName {
+	my($release)=shift || die("No Release Passed To convertCodeName!\n");
+	chomp $release;
+	if($release=~m/^lenny$/i) {
+		return "stable";
+	}
+	elsif($release=~m/^squeeze$/i) {
+		return "testing";
+	}
+	elsif($release=~m/^sid$/i) {
+		return "unstable";
+	}
+	elsif($release=~m/^etch$/i) {
+		return "oldstable";
+	}
+	return $release;
+}
 sub checkRelease {
 	my($release)=shift || die("No Release Passed To checkRelease!\n");
 	chomp $release;
 	my %releases=(
-		'etch' => 1,
 		'stable' => 1,
-		'lenny' => 1,
 		'testing' => 1,
-		'sid' => 1,
 		'unstable' => 1,
-		'experimental' => 1
+		'experimental' => 1,
+		'oldstable' => 1
 	);
 	&invalidRelease(\%releases) unless $releases{$release}
 }