Mercurial > repos > pitagora > filebrowser
changeset 7:295a57cb031a default tip
20150122
| author | pitagora <yamanaka@genome.rcast.u-tokyo.ac.jp> |
|---|---|
| date | Thu, 22 Jan 2015 17:41:52 +0900 |
| parents | eb8f9e63f859 |
| children | |
| files | filebrowser.xml link_path_2.pl |
| diffstat | 2 files changed, 52 insertions(+), 52 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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;