[Collab-qa-commits] r1588 - udd/udd

[Lucas Nussbaum]

Author: lucas
Date: 2009-09-24 08:52:59 +0000 (Thu, 24 Sep 2009)
New Revision: 1588

Modified:
   udd/udd/bugs_gatherer.pl
Log:
also deal with src:foo in bugs_packages table

Modified: udd/udd/bugs_gatherer.pl
===================================================================
--- udd/udd/bugs_gatherer.pl	2009-09-24 06:17:47 UTC (rev 1587)
+++ udd/udd/bugs_gatherer.pl	2009-09-24 08:52:59 UTC (rev 1588)
@@ -16,7 +16,7 @@
 
 use Debbugs::Bugs qw{get_bugs};
 use Debbugs::Status qw{read_bug get_bug_status bug_presence};
-use Debbugs::Packages qw{binarytosource getpkgsrc};
+use Debbugs::Packages qw{getpkgsrc};
 use Debbugs::Config qw{:globals %config};
 use Debbugs::User;
 use Mail::Address;
@@ -213,9 +213,13 @@
 			}
 		} qw{date log_modified};
 
+		if ($bug{package} =~ /^src:(.*)/)
+		{
+			my $source = $1;
+		} else {
+			my $source = exists($pkgsrc{$bug{package}}) ? $pkgsrc{$bug{package}} : $bug{package};
+		}
 
-		my $source = exists($pkgsrc{$bug{package}}) ? $pkgsrc{$bug{package}} : $bug{package};
-
 		# split emails
 		my (@addr, $submitter_name, $submitter_email, $owner_name, $owner_email, $done_name, $done_email);
 		if ($bug{originator}) {
@@ -302,7 +306,12 @@
 
 		my $src;
 		foreach my $pkg (keys %{{ map { $_ => 1 } split(/\s*,\s*/, $bug{package})}}) {
-			$src = exists($pkgsrc{$pkg}) ? $pkgsrc{$pkg} : $pkg;
+			if ($pkg =~ /^src:(.*)/)
+			{
+				$src = $1;
+			} else {
+				$src = exists($pkgsrc{$pkg}) ? $pkgsrc{$pkg} : $pkg;
+			}
 			$insert_bugs_packages_handle->execute($bug_nr, $pkg, $src) or die $!;
 		}