view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/script/RestoreProject  view on Meta::CPAN

#!/bin/bash

# Catch errors in piped commands
set -euo pipefail


# see if global variable is set
# global variable SeismicUnixGui_script locates main folder

 if [ -z "${SeismicUnixGui_script}" ]; then

 	echo "global variable SeismicUnixGui_script must first be set"
 	echo "e.g. in .bashrc: "
 	echo " export SeismicUnixGui_script=/Location/of/script/folder"

 else

	# run backupProject.pl

	# Find the correct perl to use before executing *.pl
	# Copy paste and executre this file into the current shell
	# $(...) captures the output
	source "${SeismicUnixGui_script}/find_system_perl.sh"

	SYSTEM_PERL="$(find_system_perl)"
	# echo "Using: $SYSTEM_PERL"
	# echo $SYSTEM_PERL "$SeismicUnixGui_script/../big_streams/RestoreProject.pl"
	exec "$SYSTEM_PERL" $SeismicUnixGui_script/../big_streams/RestoreProject.pl
	
fi