From cd88fb7b3f76ba4ebc6eb5d8e4975971e4cc2475 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hern=C3=A1n=20Asorey?= <asoreyh@gmail.com>
Date: Sun, 16 Oct 2022 13:08:29 +0200
Subject: [PATCH] Testing writing in onedata
---
eas/rain.pl | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/eas/rain.pl b/eas/rain.pl
index c28279f..db66226 100755
--- a/eas/rain.pl
+++ b/eas/rain.pl
@@ -90,6 +90,7 @@ my $imuaddi = 0;
my $nofruns = 1;
my $ecutshe = 800.;
my $lemodel = "gheisha";
+my $onedataBase = "/mnt/datahub.egi.eu/test8/fluka/";
sub get_answer {
my $question = $_[0];
@@ -576,6 +577,7 @@ EXIT
my $binout = sprintf("$direct/DAT%06d",$run_nr);
my $out = "$direct/DAT$name.lst";
my $script = "$home/run-$prj-$name.sh";
+ my $oneout = "$onedataBase/S3_$prj_$site_$lemodel";
unless ($debug != 0) {
opendir(IMD, "$direct/") or system("mkdir $direct/");
closedir(IMD);
@@ -593,6 +595,11 @@ EXIT
print $fh "echo \"compressing output files...\"\n";
print $fh "bzip2 -9v $binout\n";
print $fh "bzip2 -9v $out\n";
+ print $fh "echo \"tranferring to onedata...\"\n";
+ print $fg "echo \"[[ ! -d $oneout ]] && mkdir $oneout\"\n";
+ print $fg "echo \"while ! cp -av $binout.bz2 $wdir/; do sleep 5; done\"\n";
+ print $fg "echo \"while ! cp -av $out.bz2 $wdir/; do sleep 5; done\"\n";
+ print $fg "echo \"rm $binout.bz2 $out.bz2\"\n";
print $fh "rm $script\n";
close($fh);
system("chmod 777 $script");
--
GitLab