# HG changeset patch
# User pitagora <yamanaka@genome.rcast.u-tokyo.ac.jp>
# Date 1421916112 -32400
# Node ID 295a57cb031a8a40e88f45ee7a71c17ee9a54972
# Parent  eb8f9e63f85968e88fc97a2075b9233f9a84ac45
20150122

diff -r eb8f9e63f859 -r 295a57cb031a filebrowser.xml
--- a/filebrowser.xml	Thu Jan 22 17:23:17 2015 +0900
+++ b/filebrowser.xml	Thu Jan 22 17:41:52 2015 +0900
@@ -1,21 +1,21 @@
-<tool name="Local File" id="local_file_browser" tool_type="data_source">
-    <description>browser</description>
-    <command interpreter="perl">link_path_2.pl $source $dest</command>
-    <inputs action="../../filebrowser/main.html" check_values="false" method="get">
-        <display>go to Local File Browser $GALAXY_URL</display>
-        <param name="GALAXY_URL" type="baseurl" value="/tool_runner" />
-        <param name="tool_id" type="hidden" value="local_file_browser" />
-    </inputs>
-    <request_param_translation>
-        <request_param galaxy_name="URL_method" remote_name="URL_method" missing="post" />
-        <request_param galaxy_name="URL" remote_name="URL" missing="" />
-        <request_param galaxy_name="dbkey" remote_name="db" missing="?" />
-        <request_param galaxy_name="file_name" remote_name="name" missing="no_name" />
-        <request_param galaxy_name="source" remote_name="path" missing="" label="Original File Path" />
-    </request_param_translation>
-    <uihints minwidth="800"/>
-    <outputs>
-        <data name="dest" format="data" label="${tool.name}: ${file_name}"/>
-    </outputs>
-    <options sanitize="False" refresh="True"/>
-</tool>
+<tool name="Local File" id="local_file_browser" tool_type="data_source">
+    <description>browser</description>
+    <command interpreter="perl">link_path_2.pl $source $dest</command>
+    <inputs action="../../filebrowser/main.html" check_values="false" method="get">
+        <display>go to Local File Browser $GALAXY_URL</display>
+        <param name="GALAXY_URL" type="baseurl" value="/tool_runner" />
+        <param name="tool_id" type="hidden" value="local_file_browser" />
+    </inputs>
+    <request_param_translation>
+        <request_param galaxy_name="URL_method" remote_name="URL_method" missing="post" />
+        <request_param galaxy_name="URL" remote_name="URL" missing="" />
+        <request_param galaxy_name="dbkey" remote_name="db" missing="?" />
+        <request_param galaxy_name="file_name" remote_name="name" missing="no_name" />
+        <request_param galaxy_name="source" remote_name="path" missing="" label="Original File Path" />
+    </request_param_translation>
+    <uihints minwidth="800"/>
+    <outputs>
+        <data name="dest" format="data" label="${tool.name}: ${file_name}"/>
+    </outputs>
+    <options sanitize="False" refresh="True"/>
+</tool>
diff -r eb8f9e63f859 -r 295a57cb031a link_path_2.pl
--- a/link_path_2.pl	Thu Jan 22 17:23:17 2015 +0900
+++ b/link_path_2.pl	Thu Jan 22 17:41:52 2015 +0900
@@ -1,31 +1,31 @@
-#!/usr/bin/perl
-
-# THIS TOOL HAS BEEN DEPRECATED IN FAVOR OF THE galaxy_import.pl AND gcpd.pl METHOD
-# WHICH DON'T REQUIRE SETTING METADATA MANUALLY FOR EACH FILE.
-
-use strict;
-use File::Copy;
-
-# CONFIG
-my @allowed_paths = ('/');
-
-# ARGS
-my ($src, $dest)=@ARGV;
-die("Absolute path required\n") unless $src =~ /^\//;
-die("Paths containing '..' are disallowed\n") if $src =~ /\/\.\.\//;
-my $ok=0;
-foreach my $dir (@allowed_paths) {
-    my $re="^$dir";
-    $re =~ s/\//\\\//g;
-    if ($src =~ /$re/) {
-        $ok=1;
-        last;
-    }
-}
-die("Not an allowed source path\n") unless $ok;
-
-# CP
-# if ($src =~ /\.gz$/)
-unlink($dest);
-system("cp $src $dest");
-exit;
+#!/usr/bin/perl
+
+# THIS TOOL HAS BEEN DEPRECATED IN FAVOR OF THE galaxy_import.pl AND gcpd.pl METHOD
+# WHICH DON'T REQUIRE SETTING METADATA MANUALLY FOR EACH FILE.
+
+use strict;
+use File::Copy;
+
+# CONFIG
+my @allowed_paths = ('/');
+
+# ARGS
+my ($src, $dest)=@ARGV;
+die("Absolute path required\n") unless $src =~ /^\//;
+die("Paths containing '..' are disallowed\n") if $src =~ /\/\.\.\//;
+my $ok=0;
+foreach my $dir (@allowed_paths) {
+    my $re="^$dir";
+    $re =~ s/\//\\\//g;
+    if ($src =~ /$re/) {
+        $ok=1;
+        last;
+    }
+}
+die("Not an allowed source path\n") unless $ok;
+
+# CP
+# if ($src =~ /\.gz$/)
+unlink($dest);
+system("cp $src $dest");
+exit;