--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/williamr/buglist_to_mediawiki.pl	Wed Jul 22 15:39:18 2009 +0100
@@ -0,0 +1,46 @@
+#! perl
+
+# Copyright (c) 2009 Symbian Foundation Ltd
+# This component and the accompanying materials are made available
+# under the terms of the License "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Symbian Foundation Ltd - initial contribution.
+# 
+# Contributors:
+#
+# Description:
+# Convert tab-separated buglist into Mediawiki table
+
+use strict;
+
+my $line;
+my $header = 1;
+
+while ($line =<>)
+  {
+  chomp $line;
+  my @columns = split /\t/, $line;
+  
+  next if scalar @columns < 2;    # skip dubious looking lines
+  
+  if ($header)
+    {
+    print "{|\n";   # start of table
+    print "! ", join(" !! ", @columns), "\n";
+    $header = 0;
+    next;
+    }
+
+  # row with a bug id
+  my $id = shift @columns;
+  $id = sprintf "[http://developer.symbian.org/bugs/show_bug.cgi?id=%s Bug %s]", $id, $id;
+  unshift @columns, $id;   
+  
+  print "|-\n"; # row separator
+  print "| ", join(" || ", @columns), "\n";
+  }
+
+print "|}\n";