about summary refs log tree commit diff
path: root/Functions/Zftp/zfuput
blob: b54d0d0d419afeb73ea6a5da3211810a62cb63bf (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
# function zfuput {
# Put a list of files from the server with update.
# See zfuget for details.
#
# Options:
#  -v    verbose:  print more about the files listed.
#  -s    silent:   don't ask, just guess.  The guesses are:
#                - if the files have different sizes but remote is older ) grab
#                - if they have the same size but remote is newer        )
#                  which is safe if the remote files are always the right ones.

emulate -L zsh

local loc rem locstats remstats doit tmpfile=${TMPPREFIX}zfuput$$
local rstat verbose optlist opt bad i silent
integer stat do_close

zfuput_print_time() {
  local tim=$1
  print -n "$tim[1,4]/$tim[5,6]/$tim[7,8] $tim[9,10]:$tim[11,12].$tim[13,14]"
  print -n GMT
}

zfuput_print () {
  print -n "\nremote $rem ("
  zfuput_print_time $remstats[2]
  print -n ", $remstats[1] bytes)\nlocal $loc ("
  zfuput_print_time $locstats[2]
  print ", $locstats[1] bytes)"
}

while [[ $1 = -* ]]; do
  if [[ $1 = - || $1 = -- ]]; then
    shift;
    break;
  fi
  optlist=${1#-}
  for (( i = 1; i <= $#optlist; i++)); do
    opt=$optlist[$i]
    case $optlist[$i] in
      v) verbose=1
	 ;;
      s) silent=1
	 ;;
      *) print option $opt not recognised >&2
	 ;;
    esac
  done
  shift
done

[[ -n $bad ]] && return 1

zfautocheck

if [[ $ZFTP_VERBOSE = *5* ]]; then
  # should we turn it off locally?
  print "Messages with code 550 are harmless." >&2
fi

for rem in $*; do
  loc=${rem:t}
  doit=y
  remstats=()
  if [[ ! -f $loc ]]; then
    print "$loc: file not found" >&2
    stat=1
    continue
  fi
  zftp local $loc >$tmpfile
  locstats=($(<$tmpfile))
  zftp remote $rem >$tmpfile
  rstat=$?
  remstats=($(<$tmpfile))
  rm -f $tmpfile
  if [[ $rstat = 2 ]]; then
    print "Server does not implement full command set required." 1>&2
    return 1
  elif [[ $rstat = 1 ]]; then
    [[ $verbose = 1 ]] && print New file $loc
  else
    [[ $verbose = 1 ]] && zfuput_print
    if (( $locstats[1] != $remstats[1] )); then
      # Files have different sizes
      if [[ $locstats[2] < $remstats[2] && $silent != 1 ]]; then
	[[ $verbose != 1 ]] && zfuput_print
	print "Remote file $rem more recent than local," 1>&2
	print -n "but sizes are different.  Transfer anyway [y/n]? " 1>&2
	read -q doit
      fi
    else
      # Files have same size
      if [[ $locstats[2] > $remstats[2] ]]; then
	if [[ $silent != 1 ]]; then
	  [[ $verbose != 1 ]] && zfuput_print
	  print "Remote file $rem has same size as local," 1>&2
	  print -n "but remote file is older. Transfer anyway [y/n]? " 1>&2
	  read -q doit
	fi
      else
	# presumably same file, so don't get it.
	[[ $verbose = 1 ]] && print Not transferring
	doit=n
      fi
    fi
  fi
  if [[ $doit = y ]]; then
    zftp put $rem <$loc || stat=$?
  fi
done

(( do_close )) && zfclose

return $stat
# }