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 

    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";

    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;