source: palm/trunk/SCRIPTS/batch_scp @ 3458

Last change on this file since 3458 was 2718, checked in by maronga, 6 years ago

deleting of deprecated files; headers updated where needed

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