equal
deleted
inserted
replaced
10 # Symbian Foundation Ltd - initial contribution. |
10 # Symbian Foundation Ltd - initial contribution. |
11 # |
11 # |
12 # Contributors: |
12 # Contributors: |
13 # |
13 # |
14 # Description: |
14 # Description: |
15 # Convert tab-separated buglist into Mediawiki table |
15 # Convert comma-separated buglist into Mediawiki table |
|
16 # |
|
17 # Usage |
|
18 # buglist_to_mediawiki bugreport.csv [--pdk=PDK_3.0.0] > bugs.mediawiki.txt |
16 |
19 |
17 use strict; |
20 use strict; |
18 |
21 |
19 use FindBin; |
22 use FindBin; |
20 use lib "$FindBin::Bin\\..\\lib"; |
23 use lib "$FindBin::Bin\\..\\lib"; |
21 use Text::CSV; |
24 use Text::CSV; |
|
25 use Getopt::Long; |
|
26 |
|
27 my $PDK="PDK_???"; |
|
28 |
|
29 GetOptions(( |
|
30 'pdk=s' => \$PDK, |
|
31 )); |
22 |
32 |
23 my $csv = Text::CSV->new(); |
33 my $csv = Text::CSV->new(); |
|
34 |
|
35 print "== Defects open at time of creation of $PDK ==\n\n"; |
24 |
36 |
25 print "{|\n"; # start of table |
37 print "{|\n"; # start of table |
26 |
38 |
27 while (my $line = <>) |
39 while (my $line = <>) |
28 { |
40 { |