# HG changeset patch
# User jtilman
# Date 1530096145 14400
# Node ID cb6423bc1097b9522f29c2582f41fa066d5343d5
# Parent  4a095317caca09adf99a566167a8424723b6b32c
Deleted selected files

diff -r 4a095317caca -r cb6423bc1097 flexbar.pl
--- a/flexbar.pl	Wed Jun 27 06:41:36 2018 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,34 +0,0 @@
-#!/usr/bin/env perl
-
-# Flexbar wrapper for Galaxy tool definition, version 3.4
-# Author: Johannes Roehr
-
-use warnings;
-use strict;
-
-my ($outFile, $id, $folder, $format) = @ARGV[($#ARGV - 3) .. $#ARGV];
-
-my $call = join " ", @ARGV[0..($#ARGV - 4)];
-
-system $call .' --target FlexbarTargetFile --output-log '. $outFile and exit 1;
-
-
-foreach(<FlexbarTargetFile*>){
-	
-	my $fileType;
-	
-	$fileType = $1         if /\.(\w+)$/;
-	$fileType = $format    if /\.\w*fast\w$/;
-	$fileType = 'fasta'    if /\.fasta$/;
-	$fileType = 'tabular'  if /\.lengthdist$/;
-	
-	my $file = $_;
-	
-	s/_/-/g;
-	
-	my $name = "primary_". $id ."_". $_ ."_visible_". $fileType;
-	
-	rename $file, $name;
-	rename $name, $folder;
-}
-