equal
deleted
inserted
replaced
38 exit (1); |
38 exit (1); |
39 } |
39 } |
40 |
40 |
41 my $file = ""; |
41 my $file = ""; |
42 my $help = 0; |
42 my $help = 0; |
|
43 my $count_nb_total_bugs=0; |
43 |
44 |
44 if (!GetOptions( |
45 if (!GetOptions( |
45 "csv=s" => \$file, |
46 "csv=s" => \$file, |
46 "h|help" => \$help, |
47 "h|help" => \$help, |
47 )) |
48 )) |
86 $columns[0] = "[http://developer.symbian.org/bugs/show_bug.cgi?id=$columns[0] Bug$columns[0]]"; |
87 $columns[0] = "[http://developer.symbian.org/bugs/show_bug.cgi?id=$columns[0] Bug$columns[0]]"; |
87 } |
88 } |
88 foreach (@columns) |
89 foreach (@columns) |
89 { |
90 { |
90 print MWTXT "|$_\n"; |
91 print MWTXT "|$_\n"; |
91 } |
92 } |
|
93 $count_nb_total_bugs++; |
92 } |
94 } |
93 } |
95 } |
94 else |
96 else |
95 { |
97 { |
96 my $err = $csv->error_input; |
98 my $err = $csv->error_input; |
101 } |
103 } |
102 |
104 |
103 close CSV; |
105 close CSV; |
104 print MWTXT "|}\n"; |
106 print MWTXT "|}\n"; |
105 close MWTXT; |
107 close MWTXT; |
|
108 print "\nThe number of bugs is: $count_nb_total_bugs\n"; |