r7631 - /trunk/dh-make-perl/dh-make-perl

[hanska-guest at users.alioth.debian.org]

Author: hanska-guest
Date: Mon Sep 17 10:18:55 2007
New Revision: 7631

URL: http://svn.debian.org/wsvn/?sc=1&rev=7631
Log:
Now using the "live" wnpp bugs page, instead of the generated one

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/trunk/dh-make-perl/dh-make-perl?rev=7631&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Mon Sep 17 10:18:55 2007
@@ -748,7 +748,7 @@
     
     my ($package) = shift @_;
     
-    my $wnpp = 'http://www.debian.org/devel/wnpp/being_packaged';
+    my $wnpp = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=wnpp;includesubj=ITP:%20$package";
     my $mech = WWW::Mechanize->new();
     
     $mech->get($wnpp);
@@ -759,7 +759,7 @@
         my $href = $link->url();
         my $desc = $link->text();
         
-        if ($desc =~ /$package: .*/) {
+        if ($desc =~ /ITP: $package -- .*/) {
             $href =~ s/^.*\/(\d{6})$/$1/;
             return $href;
         }