Control: tags 710487 + patch [Trimming down the Cc: list a bit] * Mike Gabriel <mike.gabriel@das-netzwerkteam.de> [2013-10-25 09:39:41 +0000]: > I really wished someone with sufficient privileges could look at > this rather sooner than later. I start loosing track of my uploads > to wheezy-bpo (the scrap of paper gets scribbled more and more...). > I guess, other package maintainer feel similar about this. Please find attached a patch to the qa svn repository that makes extract_incoming.pl look in the right place for !squeeze bpo sources. Running the script on quantz and poking around the generated db file makes me think that the "package versions" db file will contain all that is needed for DDPO to find bpo uploads. I have no qa/qa-core super cow powers, so I can't do much more. Cheers, -- Nicolas Dandrimont I did this 'cause Linux gives me a woody. It doesn't generate revenue. (Dave '-ddt->` Taylor, announcing DOOM for Linux)
Index: data/ddpo/extract_incoming.pl
===================================================================
--- data/ddpo/extract_incoming.pl (révision 3079)
+++ data/ddpo/extract_incoming.pl (copie de travail)
@@ -65,7 +65,6 @@
my $delayed_summary = "http://people.debian.org/~myon/delayed/delayed-summary";;
my $delayed_http = "http://people.debian.org/~djpig/delayed/";;
my $queue_summary = "http://ftp-master.debian.org/new.822";;
-my $bpo_url = "http://backports.debian.org/debian-backports";;
# global variables
my %db;
@@ -239,8 +238,16 @@
next if ($distkey =~ /^(unstable|testing)/);
my $dist = $active_dists{$distkey} . "-backports";
my $codename = $distkey eq "stable" ? "bpo" : "$distkey-bpo";
+
+ my $archive = "ftp.debian.org";
+ my $bpo_url = "http://ftp.debian.org/debian";;
+ if ($dist eq "squeeze-backports") {
+ $archive = "backports.org";
+ $bpo_url = "http://backports.debian.org/debian-backports";;
+ }
+
my $files_to_zcat = '';
- foreach my $file_to_zcat ( glob "/srv/qa.debian.org/data/ftp/backports.org/dists/$dist*/{main,contrib,non-free}/source/Sources.gz" )
+ foreach my $file_to_zcat ( glob "/srv/qa.debian.org/data/ftp/$archive/dists/$dist*/{main,contrib,non-free}/source/Sources.gz" )
{
$files_to_zcat .= " $file_to_zcat" if( -e $file_to_zcat );
}
Attachment:
signature.asc
Description: Digital signature