fedora-security/tools/lib/Libexig Fedora.pm, 1.1.2.2, 1.1.2.3

Author: lkundrak

Update of /cvs/fedora/fedora-security/tools/lib/Libexig
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv29915/lib/Libexig

Modified Files:
      Tag: lkundrak-tools-ng
	Fedora.pm 
Log Message:
I gorribly broke a-t-b, fixing now a bit, needs tidyup



Index: Fedora.pm
===================================================================
RCS file: /cvs/fedora/fedora-security/tools/lib/Libexig/Attic/Fedora.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- Fedora.pm	9 Jan 2008 21:42:37 -0000	1.1.2.2
+++ Fedora.pm	10 Jan 2008 18:01:24 -0000	1.1.2.3
@@ -204,47 +204,39 @@
 	my $parent_bugs = shift;
 	my $tracking_bugs = shift;
 	my $bugzilla = shift;
+	my $component = shift;
+
+	my $comment = "Created Fedora tracking bugs for $component:\n\n";
 
 	foreach my $bug (@{$tracking_bugs}) {
-		my $bug_id = $bugzilla->file_bug (\%bug);
+		use Data::Dumper;
+		my $bug_id = $bugzilla->file_bug ($bug);
 
-		if ($bug{'version'} ne 'rawhide') {
+		### XXX: Move this somewhere else?
+		if ($bug->{'version'} ne 'rawhide') {
 			my $tr_comment = 
 				'You can eventually use the following link to '.
 				'create the update request: '."\n".
 				'https://admin.fedoraproject.org/updates/new/'.
 				'?request=Stable'.
 				'&type=security'.
-				'&release=Fedora%20'.$bug{'version'}.
+				'&release=Fedora%20'.$bug->{'version'}.
 				'&bugs='.$bug_id;
 
-			foreach my $bug (@{$bugs}) {
+			foreach my $bug (@{$parent_bugs}) {
 				$tr_comment .= ','.$bug->{'bug_id'};
 			}
 
-			# XXX: public
-			$bugzilla->add_private_comment ($bug_id, $tr_comment);
+			$bugzilla->add_comment ($bug_id, $tr_comment);
 		}
 
-		$bugzilla->add_blockers ($bug_id, \@bugs);
-		$comment .= $bug{'version'}.": bug #$bug_id\n";
-=cut
-}
-
-=cut
-
-# File for each version
+		$bugzilla->add_blockers ($bug_id, $parent_bugs);
+		$comment .= $bug->{'version'}.": bug #$bug_id\n";
+	}
+
+	foreach my $bug (@{$parent_bugs}) {
+		$bugzilla->add_private_comment ($bug, $comment);
+	}
 
-my $comment = "Created Fedora tracking bugs for $component:\n\n";
-
-=cut
-=cut
-
-# Add comment to original bugs
-
-foreach my $bug (@bugs) {
-	$bugzilla->add_private_comment ($bug, $comment);
+	return $comment;
 }
-
-print STDERR $comment;
-=cut