Control: tags -1 + patch Patch attached should work. I could not fully test it in context, because I lack the sql access, but basic tests look ok. Disclaimer: This is the second time I write something in perl. Please review carefully, or rewrite in a proper perl style. ^^
--- data/ddpo/extract_incoming.pl.orig 2014-11-27 21:06:36.220178849 +0100
+++ data/ddpo/extract_incoming.pl 2014-11-27 22:18:49.271809073 +0100
@@ -106,10 +106,12 @@
next unless my $directory = $reader->get("Directory"); chomp $directory;
next unless my $maintainer = $reader->get("Maintainer"); chomp $maintainer;
my $uploaders = $reader->get("Uploaders:");
+ my $epochfreeversion = $version;
+ $epochfreeversion =~ s/^\d+://;
$db{"i${d}:$package"} = $version;
$db{"i${d}-title:$package"} = "incoming $dist";
- $db{"i${d}-url:$package"} = "http://incoming.debian.org/debian-buildd/$directory/"; . uri_escape ("${package}_$version.dsc");
+ $db{"i${d}-url:$package"} = "http://incoming.debian.org/debian-buildd/$directory/"; . uri_escape ("${package}_$epochfreeversion.dsc");
$maintainer =~ s/.*<(.*)>.*/$1/;
$packages{lc $maintainer}->{$package} = 1;
Attachment:
signature.asc
Description: OpenPGP digital signature