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