From 72d3f50be2c2f4b817c6cad5cb18da9905fa718a Mon Sep 17 00:00:00 2001
From: Nathan Handler <nhandler@ubuntu.com>
Date: Sun, 30 Aug 2009 19:51:57 +0000
Subject: [PATCH] pull-revu-source: Update to use dsc.py to get dsc URL

---
 debian/changelog |  6 ++++++
 pull-revu-source | 15 +++------------
 2 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index eb18288..19d28ab 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -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 ]
diff --git a/pull-revu-source b/pull-revu-source
index 246a433..1c6bbd4 100755
--- a/pull-revu-source
+++ b/pull-revu-source
@@ -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");