Home

Context Navigation

batch_scp @ 2715

Last change on this file since 2715 was 2715, checked in by raasch, 7 years ago
last commit documented
Property svn:keywords set to `Id`
File size: 22.2 KB

Rev	Line
[2261]	1	#! /bin/bash
[1]	2
[1090]	3	# batch_scp - script for automatic file/directory transfer using scp
[1]	4
[1090]	5	#--------------------------------------------------------------------------------#
[2696]	6	# This file is part of the PALM model system.
[1090]	7	#
	8	# PALM is free software: you can redistribute it and/or modify it under the terms
	9	# of the GNU General Public License as published by the Free Software Foundation,
	10	# either version 3 of the License, or (at your option) any later version.
	11	#
	12	# PALM is distributed in the hope that it will be useful, but WITHOUT ANY
	13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
	14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
	15	#
	16	# You should have received a copy of the GNU General Public License along with
	17	# PALM. If not, see <http://www.gnu.org/licenses/>.
	18	#
[2696]	19	# Copyright 1997-2017 Leibniz Universitaet Hannover
[1090]	20	#--------------------------------------------------------------------------------#
	21	#
	22	# Current revisions:
	23	# ------------------
[2261]	24	#
[2715]	25	#
[1090]	26	# Former revisions:
	27	# -----------------
	28	# $Id: batch_scp 2715 2017-12-27 11:31:43Z raasch $
[2715]	29	# bugfix: variable cycle explicitly interpreted with 10 as the number base
	30	#
	31	# 2714 2017-12-27 11:25:57Z raasch
[2600]	32	# cycle numbers made three digits wide
	33	# host depending code completely removed
	34	#
	35	# 2261 2017-06-08 14:25:57Z raasch
[2261]	36	# option usecycle added, script is running under bash now,
	37	# filenames are allowed to contain arbitrary number of dots "."
[1090]	38	#
[2261]	39	# 1310 2014-03-14 08:01:56Z raasch
	40	#
[1203]	41	# 1202 2013-07-10 16:22:07Z witha
	42	# adjustments for Forwind cluster (lcflow): using absolute paths for ssh
	43	#
[1100]	44	# 1099 2013-02-10 01:47:43Z raasch
	45	# LANG variable is unset in some ssh calls to guarantee messages in English
	46	#
[1096]	47	# 1094 2013-02-03 01:52:12Z raasch
	48	# new option -P for explicit setting of ssh/scp port
	49	#
[1091]	50	# 1090 2013-02-02 07:06:13Z raasch
	51	# code put under GPL (PALM 3.9)
	52	# adjustments for Kyushu-University computing center (lckyut)
	53	# old changelog messages removed
	54	#
[1090]	55	# 08/03/11 - Siggi - adjustments for ibmkisti: this machine allows
	56	# outgoing ssh/scp connections only from the
	57	# interactive nodes (gaiad). All ssh/scp traffic is
	58	# done via this interactive node.
	59	# 04/01/02 - Siggi - first version finished
	60	# 29/11/01 - Siggi - script development started
	61	#
	62	#--------------------------------------------------------------------------------#
	63	# batch_scp - script for automatic file/directory transfers using scp
	64	#
[2261]	65	# batch_scp has up to 5 arguments (first 4 are mandatory):
[1090]	66	# $1 = IP-addres of remote (target) machine
	67	# $2 = file to be transferred
	68	# $3 = directory of remote machine, where file should be copied to
	69	# $4 = filename that file should be given on remote machine
[2261]	70	# $5 = file extension (optional argument)
[1090]	71	#
	72	# ATTENTION: problems might occur if directories on remote machine include very
	73	# old files for which "ls -al" does give "year" as modification
	74	# time instead of "hh:mm". In such a case, batch_scp cannot check the
	75	# filename and may not find the file (e.g. if option -g is used).
	76	#--------------------------------------------------------------------------------#
[1]	77
	78
	79
	80	# VARIABLENVEREINBARUNGEN + DEFAULTWERTE
	81	random=$RANDOM
	82
	83	absolut=false
	84	append=false
	85	catalog_copy=false
	86	check=false
[2600]	87	cyclestring=""
[1]	88	delete=false
[1090]	89	errfile=batch_scp.errfile.$random
[1]	90	filelist=filelist.$random
	91	get=false
	92	local_host=`hostname`
[693]	93	local_wdir=`pwd`
[1]	94	locat=normal
	95	make_catalog=false
	96	overwrite=false
	97	print_local_filename=false
	98	quote_wait=false
	99	remote_user=""
	100	silent=false
	101	transfermode=binary
[2261]	102	typeset -i iii icycle maxcycle=0 usecycle wait=0
[1]	103
	104	# FEHLERBEHANDLUNG
	105	# BEI EXIT:
	106	trap 'if [[ $locat != normal ]]
	107	then
[1090]	108	[[ -f "$filelist" ]] && cat $filelist
	109	[[ -f "$errfile" ]] && cat $errfile
[1]	110	rm -rf $filelist $errfile
	111	printf " +++ BATCH_SCP terminated \n"
	112	printf " locat = $locat \n"
	113	printf " arguments = $1 $2 $3 $4 \n\n"
	114	exit 1
	115	fi' exit
	116
	117
	118	# BEI TERMINAL-BREAK:
	119	trap 'rm -rf $filelist $errfile
	120	printf " +++ BATCH_SCP terminated \n\n"
	121	exit 1
	122	' 2
	123
	124
	125	# SHELLSCRIPT-OPTIONEN EINLESEN
[2261]	126	while getopts :aAbcCdgmnoP:qsu:U:w: option
[1]	127	do
	128	case $option in
	129	(a) absolut=true;;
	130	(A) append=true;;
	131	(b) transfermode=binary;;
	132	(c) catalog_copy=true;;
	133	(C) check=true;;
	134	(d) delete=true;;
	135	(g) get=true;;
	136	(m) make_catalog=true;;
	137	(n) print_local_filename=true;; # Option ist nicht dokumentiert !
	138	(o) overwrite=true;;
[1094]	139	(P) scp_port=$OPTARG;;
[1]	140	(q) quote_wait=true;;
	141	(s) silent=true;;
	142	(u) remote_user=$OPTARG;;
[2261]	143	(U) usecycle=$OPTARG;;
[1]	144	(w) wait=$OPTARG;;
	145	(\?) printf " +++ option $OPTARG unknown \n"
	146	printf " --> call: batch_scp [-aAbcCdgmnoqsuw] <IP-adress> <localfile> <remotepath> <remotefile>\n"
	147	locat=parameter;exit;;
	148	esac
	149	done
	150
[2261]	151	(( to_shift = $OPTIND - 1 ))
	152	shift $to_shift
[1]	153
[2261]	154
	155
[1]	156
	157	# KURZE AUFRUFBESCHREIBUNG WIRD HIER AUSGEGEBEN
	158	if [ "$1" = "?" ]
	159	then
	160	(printf "\n *** batch_scp can be called as follows:\n"
[2261]	161	printf "\n batch_scp -a -b -d -g -o -q -s -u.. -U.. -w.. <param1> <param2> <param3> <param4>\n"
[1]	162	printf "\n Description of available options:\n"
	163	printf "\n Option Description Default-Value"
	164	printf "\n -a Filenames are absolute. No cycle- ---"
	165	printf "\n numbers will be determined"
	166	printf "\n -A append to destination file ---"
	167	printf "\n -b use binary-modus for transfer ASCII-modus"
	168	printf "\n -c transfer of directory ---"
	169	printf "\n -C check-Modus, no transfer ---"
	170	printf "\n -d file to be transferred will be ---"
	171	printf "\n deleted after successful transfer"
	172	printf "\n -g change of transfer direction, i.e. ---"
	173	printf "\n file will be transferred from"
	174	printf "\n destination host"
	175	printf "\n -o any existing file will be overwritten ---"
	176	printf "\n -q switch on \"quote wait\" on ---"
	177	printf "\n estination host"
	178	printf "\n -s do not display informative messages ---"
	179	printf "\n -u username on remote machine <username>"
[2261]	180	printf "\n -U cycle number to be used ---"
[1]	181	printf "\n -w waiting time in seconds, before trans- 0"
	182	printf "\n fer will be initiated"
	183	printf "\n "
	184	printf "\n The positional parameters <param1> - <param4> must be provided at"
	185	printf "\n any time and have the following meaning:"
	186	printf "\n <param1> - IP-adress of destination host"
	187	printf "\n or \"?\" (creates this outline)"
	188	printf "\n <param2> - abs. or rel. path of file to be transferred"
	189	printf "\n <param3> - directory (abs.!) on destination host. Special cahracters"
	190	printf "\n like \~ are allowed but must be quoted by \"."
	191	printf "\n <param4> - filename (without path!) on destination host; must not"
	192	printf "\n be given, if option -c is used."
	193	printf "\n When using option -g, file will be copied from destination host to file"
	194	printf "\n <param2>. In this case, no overwriting is possible.") \| more
	195	exit
	196	fi
	197
	198
	199	# PRUEFEN, OB ALLE ARGUMENTE VORLIEGEN
	200	if [[ "$1" = "" ]]
	201	then
	202	printf " +++ 1. argument missing \n"
	203	locat=argument; exit
	204	elif [[ "$2" = "" ]]
	205	then
	206	printf " +++ 2. argument missing \n"
	207	locat=argument; exit
	208	elif [[ "$3" = "" ]]
	209	then
	210	printf " +++ 3. argument missing \n"
	211	locat=argument; exit
	212	elif [[ "$4" = "" ]]
	213	then
	214	printf " +++ 4. argument missing \n"
	215	locat=argument; exit
	216	fi
	217
	218
	219	# USER-NAME AUF ZIELRECHNER AUS .NETRC-DATEI ERMITTELN
	220	if [[ -z $remote_user ]]
	221	then
	222
	223	# PRUEFEN, OB NETRC-DATEI VORHANDEN
	224	if [[ ! -f ~/.netrc ]]
	225	then
	226	printf " +++ option -u not given; \n"
	227	printf " getting remote-username from password file failed \n"
	228	printf " because ~/.netrc does not exist \n"
	229	locat=netrc; exit
	230	fi
	231	grep $1 ~/.netrc \| read dum dum dum remote_user dum dum
	232	fi
	233
	234
	235	# APPEND IST NUR BEI TRANSFER EINZELNER DATEIEN OHNE UEBERSCHREIBEN
	236	# ERLAUBT. GET IST DABEI EBENFALLS NICHT ERLAUBT
	237	if [[ $append = true && ( $get = true \|\| $catalog_copy = true \|\| $overwrite = true ) ]]
	238	then
	239	printf " +++ options -g, -c and -o are not allowed, if -A is given \n"
	240	locat=parameter; exit
	241	fi
	242
	243
	244	# QUOTE WAIT FUNKTIONIERT NICHT BEIM KOPIEREN GANZER VERZEICHNISSE
	245	if [[ $quote_wait = true && $catalog_copy = true ]]
	246	then
	247	printf " +++ options -c and -q must not be used simultaneously\n"
	248	locat=parameter; exit
	249	fi
	250
	251
	252	# IM CHECK-MODUS WIRD SCRIPT HIER BEENDET
	253	[[ $check = true ]] && exit
	254
	255
	256	# BESTIMMTE ZEIT WARTEN, BIS WEITERGEMACHT WIRD (NOETIG Z.B. BEI TRANSFER
	257	# VON JOBPROTOKOLLEN AUS JOBS HERAUS)
	258	sleep $wait
	259
	260
[1094]	261	# Set port number option for calls of ssh/scp, subjob and batch_scp scripts
	262	if [[ "$scp_port" != "" ]]
	263	then
	264	PORTOPT="-P $scp_port"
	265	SSH_PORTOPT="-p $scp_port"
	266	fi
	267
	268
[1]	269	# PRUEFEN, OB LOKALE DATEI/LOKALES VERZEICHNIS VORHANDEN BZW. NICHT VORHANDEN
	270	if [[ $get = false ]]
	271	then
	272	if [[ $catalog_copy = false ]]
	273	then
	274	if [[ ! -f $2 ]]
	275	then
	276	printf " +++ file \"$2\" to be transferred does not exist \n"
	277	locat=localfile; exit
	278	fi
	279	else
	280	if [[ ! -d $2 ]]
	281	then
	282	printf " +++ directory \"$2\" to be transferred does not exist\n"
	283	printf " or is not a directory \n"
	284	locat=localfile; exit
	285	fi
	286	fi
	287	else
	288	if [[ $catalog_copy = false ]]
	289	then
	290	if [[ -f $2 ]]
	291	then
	292	if [[ $overwrite = true ]]
	293	then
	294	rm $2
	295	else
	296	printf " +++ local file \"$2\" is already existing \n"
	297	locat=localfile; exit
	298	fi
	299	else
	300
	301	# PRUEFEN, OB SICH LOKALE DATEI ANLEGEN LAESST
	302	local_dirname=`dirname $2`
	303	if [[ ! -d $local_dirname ]]
	304	then
	305	printf " +++ local directory \"$local_dirname\" \n"
	306	printf " does not exist or is not a directory \n"
	307	printf " +++ cannot copy file \"$3/$4\" \n"
	308	printf " from \"$1\" to \"$local_host\" \n"
	309	locat=localfile; exit
	310	fi
	311	fi
	312	else
	313	if [[ -d $2 \|\| -f $2 ]]
	314	then
	315	printf " +++ local directory \"$2\" is already existing, \n"
	316	printf " or a file with the same name exists \n"
	317	locat=localfile; exit
	318	fi
	319	fi
	320	fi
	321
	322
	323	# VERZEICHNISLSTE DES ZIELRECHNERS ERSTELLEN
[2600]	324	ssh $SSH_PORTOPT $1 -l $remote_user "unset LANG; cd $3; ls -1; echo '*** list complete'" > $filelist 2>&1
[1]	325	ssh_status=$?
	326
	327	if [[ $ssh_status != 0 ]]
	328	then
	329	if [[ ! -f $filelist ]]
	330	then
	331	echo " local_host = $local_host ssh_status = $ssh_status"
	332	locat=ssh_failed_1; exit
	333	else
	334	if [[ $(grep -c "*** list complete" $filelist) = 0 ]]
	335	then
	336	echo " local_host = $local_host ssh_status = $ssh_status"
	337	locat=ssh_failed_2; exit
	338	fi
	339	fi
	340	fi
	341
	342
	343	# PRUEFEN, OB VERZEICHNIS VORHANDEN IST. WENN GANZES VERZEICHNISS ZUM
	344	# ZIELRECHNER KOPIERT WERDEN SOLL, DARF DORT NOCH KEIN ENTSPRECHENDES
	345	# VERZEICHNIS VORHANDEN SEIN
	346	if [[ $(cat $filelist \| grep -c "not found") != 0 \|\| \
	347	$(cat $filelist \| grep -c "No such file or directory") != 0 ]]
	348	then
	349	if [[ ! ( $catalog_copy = true && $get = false ) ]]
	350	then
	351	if [[ $make_catalog = false ]]
	352	then
	353	printf " +++ directory \"$3\" does not exist on destination host (\"$1\") \n"
	354	locat=directory; exit
	355	else
	356	if [[ $silent = false ]]
	357	then
	358	printf " >>> directory \"$3\" does not exist on destination host (\"$1\")"
	359	printf "\n trying to create \"$3\" \n"
	360	fi
	361
	362	make_catalog=force
	363	fi
	364	fi
	365	fi
	366
	367
	368	# PRUEFEN, OB DATEI/VERZEICHNIS VORHANDEN, WENN JA, HOECHSTEN ZYKLUS
	369	# ERMITTELN (BZW. IM ABSOLUT-MODUS PRUEFEN, OB DATEI VORHANDEN IST)
	370	# DAS GANZE ABER NUR, WENN NICHT OVERWRITE-MODUS GEWAEHLT WURDE, DIE
	371	# EVENTUELL VORHANDENE DATEI ALSO UEBERSCHRIEBEN WERDEN SOLL
	372	found=false
	373	if [[ ( $overwrite = false && $get = false ) \|\| $get = true ]]
	374	then
	375	while read zeile
	376	do
	377	if [[ $absolut = false ]]
	378	then
[2261]	379	# REMOVE EXTENSION, IF EXISTING AND GIVEN AS ARGUMENT
	380	if [[ "$5" != "" && "$5" != " " ]]
[1]	381	then
[2261]	382	extension=${zeile##*.}
	383	if [[ $extension = $5 ]]
[1]	384	then
[2261]	385	text=${zeile%.*}
[1]	386	else
[2261]	387	text=${zeile}
	388	fi
	389	else
	390	text=${zeile}
	391	fi
[1]	392
[2261]	393	# GET AND REMOVE CYCLE NUMBER, IF EXISTING, AND CHECK, IF FILE EXISTS
	394	cycle=${text##*.}
	395	if [[ $cycle = $text ]]
	396	then
	397	# filename contains no dot, i.e. no cycle number
	398	if [[ "$text" = "$4" ]]
	399	then
	400	found=true
	401	(( icycle = 0 ))
	402	fi
	403	else
	404	# filename contains at least one dot
	405	# find out if the string after the last dot is a number
	406	if [[ $cycle =~ ^-?[0-9]+$ ]]
	407	then
	408	text=${text%.*}
	409	if [[ "$text" = "$4" ]]
[1]	410	then
[2261]	411	found=true
[2714]	412	(( icycle = $((10#$cycle)) ))
[1]	413	fi
[2261]	414	else
	415	if [[ "$text" = "$4" ]]
[1]	416	then
[2261]	417	found=true
	418	(( icycle = 0 ))
[1]	419	fi
	420	fi
[2261]	421	fi
[1]	422
[2600]	423	if (( icycle > maxcycle ))
	424	then
	425	(( maxcycle = icycle ))
[2261]	426
[2600]	427	# FOR COMPATIBILITY REASONS WITH OLDER VERSIONS
	428	# CHECK IF CYCLE NUMBER CONTAINS LEADING ZEROS
	429	if [[ $(echo $cycle \| cut -c1) = 0 ]]
	430	then
	431	leading_zero=true
	432	else
	433	leading_zero=false
	434	fi
	435	fi
[2261]	436
[1]	437	else
	438
	439	# IM ABSOLUT-MODUS MUSS NUR GEPRUEFT WERDEN, OB DIE DATEI
	440	# VORHANDEN IST
	441	[[ $4 = $zeile ]] && found=true
	442	fi
	443
	444	done <$filelist
	445	fi
	446
	447	if [[ $found = true ]]
	448	then
	449	if [[ $get = false ]]
	450	then
	451	if [[ $absolut = false ]]
	452	then
	453	if [[ $append = false ]]
	454	then
	455	(( maxcycle = maxcycle + 1 ))
[2600]	456
[2261]	457	# TRY TO USE FIXED CYCLE NUMBER, IF GIVEN AS OPTION
	458	if [[ "$usecycle" != "" ]]
	459	then
	460	if (( usecycle >= maxcycle ))
	461	then
	462	(( maxcycle = usecycle ))
	463	else
	464	printf " >>> Unfied cycle number cannot be used\n"
	465	fi
	466	fi
[2600]	467	cyclestring=`printf ".%03d" $maxcycle`
[1]	468	else
	469	if (( maxcycle == 0 ))
	470	then
[2600]	471	cyclestring=""
[1]	472	else
[2600]	473	cyclestring=`printf ".%03d" $maxcycle`
[1]	474	fi
	475	fi
	476	else
	477	if [[ $overwrite = false ]]
	478	then
	479	printf " +++ file \"$3/$4\" \n"
	480	printf " already exists on destination host (use -o, if necessary) \n"
	481	locat=file; exit
	482	fi
	483	fi
	484	else
	485	if [[ $absolut = false ]]
	486	then
	487	if (( maxcycle == 0 ))
	488	then
[2600]	489	cyclestring=""
[1]	490	else
[2600]	491
	492	# MAKE CYCLE NUMBER THREE DIGITS WIDE
	493	if [[ $leading_zero = true ]]
	494	then
	495	cyclestring=`printf ".%03d" $maxcycle`
	496	else
	497	cyclestring=.$maxcycle
	498	fi
[1]	499	(( maxcycle = 0 ))
	500	fi
	501	else
[2600]	502	cyclestring=""
[1]	503	fi
	504	fi
[2261]	505
[1]	506	else
	507
[2261]	508	if [[ "$usecycle" != "" ]]
	509	then
	510	(( maxcycle = usecycle ))
[2600]	511	cyclestring=`printf ".%03d" $usecycle`
[2261]	512	else
[2600]	513	cyclestring=""
[2261]	514	fi
	515
[1]	516	# ABBRUCH, WENN DATEI VON ZIELRECHNER GEHOLT WERDEN SOLL, DORT ABER
	517	# NICHT VORHANDEN IST
	518	if [[ $get = true ]]
	519	then
	520	printf " +++ file \"$3/$4\" \n"
	521	printf " does not exist on destination host (\"$1\") \n"
	522	locat=remotefile; exit
	523	fi
	524	fi
	525
	526
	527	# FALLS KATALOG ERZEUGT WIRD, DARF DIE DATEI IN KEINEM FALL EINE
	528	# ZYKLUSNUMMER BESITZEN, DA SIE JA NOCh GARNICHT EXISTIEREN KANN
	529	if [[ $make_catalog = force ]]
	530	then
[2600]	531	cyclestring=""
[1]	532	(( maxcycle = 0 ))
	533	fi
	534
	535
	536	# FALLS NAMENSOPTION (-n) GEWAEHLT WURDE, NUR DEN ERMITTELTEN LOKALEN
	537	# DATEINAMEN DES ZIELRECHNERS AUSGEBEN UND SCRIPT BEENDEN
	538	if [[ $print_local_filename = true ]]
	539	then
[2600]	540	printf "$4$cyclestring\n"
[1]	541	rm -r $filelist
	542	exit
	543	fi
	544
	545
	546	# FALLS 5. ARGUMENT ANGEGEBEN WURDE, WIRD DIES ALS FILE-EXTENSION
	547	# HINTER DIE ZYKLUS-NUMMER GEHAENGT (FUNKTIONIERT NUR BEI KOPIEREN EINER
	548	# DATEI AUF ZIELRECHNER
	549	if [[ "$5" != "" && $get = false ]]
	550	then
[2600]	551	cyclestring=${cyclestring}.$5
[1]	552	fi
	553
	554
	555	# BEI VERZEICHNISTRANSFER VON ZIELRECHNER AUF LOKALEN RECHNER PRUEFEN, OB
	556	# $3 AUF ZIELRECHNER WIRKLICH EIN VERZEICHNIS IST
	557	if [[ $catalog_copy = true && $get = true ]]
	558	then
[2600]	559
[1]	560	rm -rf $filelist
[2600]	561	ssh $SSH_PORTOPT $1 -l $remote_user "cd $3" > $filelist
	562
[1]	563	if [[ $? != 0 ]]
	564	then
	565	locat=ssh_failed_3; exit
	566	fi
	567
	568	if [[ $(cat $filelist \| grep -c "Not a directory") != 0 ]]
	569	then
	570	printf " +++ \"$3\" on destination host is not a directory \n"
	571	locat=directory; exit
	572	fi
[2600]	573
[1]	574	fi
	575
	576
	577	# BEI KATALOGTRANSFER AUF LOKALEN RECHNER ENTSPRECHENDES VERZEICHNIS
	578	# ANLEGEN
	579	if [[ $catalog_copy = true ]]
	580	then
	581	if [[ $get = true ]]
	582	then
	583	mkdir $2
	584	fi
	585	fi
	586
	587
	588	catalog_name=$3
	589	[[ "$catalog_name" != "" ]] && catalog_name=${catalog_name}/
	590
	591
	592	# DATEI/VERZEICHNIS PER SCP UEBERTRAGEN
	593	if [[ $get = false ]]
	594	then
	595	if [[ $make_catalog != force ]]
	596	then
	597	if [[ $append = false ]]
	598	then
[2600]	599
	600	if [[ $catalog_copy = false ]]
[1]	601	then
[2600]	602	scp $PORTOPT -p $2 $remote_user@$1:$catalog_name$4$cyclestring > /dev/null
[1]	603	else
[2600]	604	scp $PORTOPT -p -r $2 $remote_user@$1:$catalog_name$4$cyclestring > /dev/null
[1]	605	fi
	606	scp_status=$?
	607
	608	if [[ $scp_status != 0 ]]
	609	then
	610	# CHECK, OB DATEIGROESSEN AUF LOKALEM UND REMOTERECHNER
	611	# UEBEREINSTIMMEN
	612	local_size=`ls -al $2`
	613	local_size=`echo $local_size \| cut -d" " -f5`
	614
[2600]	615	remote_size=`ssh $SSH_PORTOPT $1 -l $remote_user "ls -al $catalog_name$4$cyclestring"`
[1]	616	remote_size=`echo $remote_size \| cut -d" " -f5`
	617
	618	if [[ "$remote_size" != "$local_size" ]]
	619	then
	620	echo " +++ scp failed on host \"$local_host\" with exit $scp_status"
	621	echo " local size = \"$local_size\" remote size = \"$remote_size\" "
	622	date
	623	locat=scp_failed; exit
	624	fi
	625	fi
[2600]	626
[1]	627	else
[2600]	628
	629	scp $PORTOPT -p $2 $remote_user@$1:${catalog_name}batch_scp_append_file.$random > /dev/null
	630
[1]	631	if [[ $? != 0 ]]
	632	then
	633	# CHECK, OB DATEIGROESSEN AUF LOKALEM UND REMOTERECHNER
	634	# UEBEREINSTIMMEN
	635	local_size=`ls -al $2`
	636	local_size=`echo $local_size \| cut -d" " -f5`
	637
[2600]	638	remote_size=`ssh $SSH_PORTOPT $1 -l $remote_user "ls -al ${catalog_name}batch_scp_append_file.$random"`
[1]	639	remote_size=`echo $remote_size \| cut -d" " -f5`
	640
	641	if [[ "$remote_size" != "$local_size" ]]
	642	then
	643	echo " +++ scp failed on host \"$local_host\" with exit $scp_status"
	644	echo " local size = \"$local_size\" remote size = \"$remote_size\" "
	645	date
	646	locat=scp_for_append_failed; exit
	647	fi
	648	fi
	649
	650	rm $filelist
	651
[2600]	652	ssh $SSH_PORTOPT $1 -l $remote_user "cd $3; cat batch_scp_append_file.$random >> $4$cyclestring; rm batch_scp_append_file.$random; echo '*** append complete'" > $filelist
	653
[1]	654	if [[ $? != 0 ]]
	655	then
	656	if [[ ! -f $filelist ]]
	657	then
	658	locat=append_via_ssh_failed; exit
	659	else
	660	if [[ $(grep -c "*** append complete" $filelist) = 0 ]]
	661	then
	662	locat=append_via_ssh_failed; exit
	663	fi
	664	fi
	665	fi
	666	fi
[2600]	667
[1]	668	else
[2600]	669
	670	ssh $SSH_PORTOPT $1 -l $remote_user "mkdir -p $3"
	671
[1]	672	if [[ $? != 0 ]]
	673	then
	674	locat=ssh_failed_4; exit
	675	fi
[2600]	676
	677	scp $PORTOPT -p $2 $remote_user@$1:$catalog_name$4$cyclestring > /dev/null
	678
[1]	679	if [[ $? != 0 ]]
	680	then
	681	locat=scp_failed; exit
	682	fi
	683	fi
	684
	685	else
	686
	687	if [[ $catalog_copy = false ]]
	688	then
	689	if [[ $quote_wait = true ]]
	690	then
	691
	692	printf " +++ quote wait not realized with BATCH_SCP"
	693	locat=unavailable_feature; exit
	694
	695	else
	696
[2600]	697	scp $PORTOPT -p $remote_user@$1:$catalog_name$4$cyclestring $2 > /dev/null
	698
[1]	699	if [[ $? != 0 ]]
	700	then
	701	locat=scp_failed; exit
	702	fi
	703
	704	fi
[2600]	705
[1]	706	else
	707
	708	printf " +++ get of whole cataloges not realized with BATCH_SCP so far"
	709	locat=unavailable_feature; exit
	710
	711	fi
[2600]	712
[1]	713	fi
	714
	715
	716
	717	# EVTL. TRANSFERIERTE DATEI AUF LOKALEM RECHNER LOESCHEN
	718	if [[ $delete = true && $get = false ]]
	719	then
	720	rm -rf $2
	721	fi
	722
	723
	724
	725	# ABSCHLUSSMELDUNG
	726	if [[ $silent = false ]]
	727	then
	728	if (( maxcycle == 0 ))
	729	then
	730	if [[ $append = false ]]
	731	then
	732	printf " >>> transfer successful \n"
	733	else
	734	printf " >>> file was appended \n"
	735	fi
	736	else
	737	printf " >>> transfer successful \n"
	738	if [[ $append = false ]]
	739	then
	740	if [[ $catalog_copy = false ]]
	741	then
[2600]	742	printf " new file has cycle number .%03d \n" $maxcycle
[1]	743	else
[2600]	744	printf " new catalog has cycle number .%03d \n" $maxcycle
[1]	745	fi
	746	else
[2600]	747	printf " append to cycle number .%03d \n" $maxcycle
[1]	748	fi
	749	fi
	750	fi
	751
	752	rm -rf $filelist $errfile

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format