wikify_bom_fcl_changes.pl - Added some basic tags displaying.
authorMattD <mattd@symbian.org>
Thu, 11 Mar 2010 12:35:33 +0000
changeset 193 b20cc3d58393
parent 192 fda8655157bf
child 194 f74ba2451a44
wikify_bom_fcl_changes.pl - Added some basic tags displaying.
releaseAutomation/wikify_bom_fcl_changes.pl
--- a/releaseAutomation/wikify_bom_fcl_changes.pl	Wed Mar 10 16:09:38 2010 +0000
+++ b/releaseAutomation/wikify_bom_fcl_changes.pl	Thu Mar 11 12:35:33 2010 +0000
@@ -22,6 +22,7 @@
 my $fcl = undef;
 my $changeset = undef;
 my $user = undef;
+my $tag = "";
 while(my $line = <FILE>)
 {
   if($line =~ m/(\S+)(\/FCL\/\S+)/i)
@@ -29,6 +30,8 @@
     my $codeline = $1;
     my $location = $2;
     my $root;
+    $tag = "";
+
     if ($codeline =~ m/oss/i)
     {
       $root = "http://developer.symbian.org/oss" 
@@ -70,6 +73,18 @@
     #changeset:   118:c5817fd289ec
     $user = $1;
   }
+  elsif($line =~ m/^tag:\s+(\S+)/)
+  {
+    #changeset:   118:c5817fd289ec
+    my $preprocessed = $1;
+    $preprocessed =~ s/^tip$//g;
+    if($preprocessed =~ m/\S+/)
+    {
+      $tag = $tag."\'\'\'".$preprocessed."\'\'\' ";
+    }  
+    
+#    $tag = $1." ";
+  }
   elsif( defined $fcl)
   {
     if($line =~ s/^summary:\s+//)
@@ -77,7 +92,7 @@
       $line =~ s/\n//;
       my $bugzilla = "http:\/\/developer.symbian.org\/bugs\/show_bug.cgi?id=";
       $line =~ s/(bug\s*)(\d+)/\[$bugzilla$2 $1$2\]/gi;
-      print "|[".$fcl."rev\/".$changeset." ".$changeset."]\n|".$line."\n|-\n";
+      print "|[".$fcl."rev\/".$changeset." ".$changeset."]\n|".$tag.$line."\n|-\n";
 #      print "|[".$fcl."rev\/".$changeset." ".$changeset."]\n|".$user."\n|".$line."\n|-\n";
     }
     #abort: unknown revision 'PDK_3.0.c'!