# HG changeset patch
# User pitagora
# Date 1407843530 14400
# Node ID 31c2544cc45e7cee9a38eb8af240073ecb8b51d2
# Parent  061f8331778a28b7d41198aaeda392825caf5048
Uploaded

diff -r 061f8331778a -r 31c2544cc45e link_path_2.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/link_path_2.pl	Tue Aug 12 07:38:50 2014 -0400
@@ -0,0 +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;