Mercurial > repos > jtilman > flexbar

diff flexbar.pl @ 22:12e4b3bb38c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjusted tool definition to Flexbar release 2.4
author jtilman
date Tue, 06 Aug 2013 16:49:33 +0200
parents d62311a7bac6
children 2c6ab15e5964
line wrap: on
line diff
--- 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;