--- a/flexbar.pl	Thu May 23 20:51:05 2013 +0200
+++ b/flexbar.pl	Tue Aug 06 16:49:33 2013 +0200
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-# Flexbar wrapper for Galaxy tool definition, version 2.34
+# Flexbar wrapper for Galaxy tool definition, version 2.4
 # Author: Johannes Roehr
 
 use warnings;
@@ -20,11 +20,12 @@
 	$fileType = $1         if /\.(\w+)$/;
 	$fileType = $format    if /\.\w*fast\w$/;
 	$fileType = 'fasta'    if /\.fasta$/;
-	$fileType = 'tabular'  if $fileType eq 'lengthdist';
+	$fileType = 'csfasta'  if /\.csfasta$/;
+	$fileType = 'tabular'  if /\.lengthdist$/;
 	
 	my $file = $_;
 	
-	s/_//g;
+	s/_/-/g;
 	
 	my $name = "primary_". $id ."_". $_ ."_visible_". $fileType;