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
|
# function zfpcp {
# ZFTP put as copy: i.e. first arguments are remote, last is local.
# Currently only supports
# zfcp lfile rfile
# if there are two arguments, or the second one is . or .., or ends
# with a slash
# or
# zfcp lfile1 lfile2 lfile3 ... rdir
# if there are more than two (because otherwise it doesn't
# know if the last argument is a directory on the remote machine).
# However, if the remote machine plays ball by telling us `Is a directory'
# when we try to copy to a directory, zfpcp will then try to do the correct
# thing.
emulate -L zsh
[[ $curcontext = :zf* ]] || local curcontext=:zfpcp
local rem loc
integer stat do_close
zfautocheck || return 1
if [[ $# -gt 2 || $2 = (.|..) || $2 = */ ]]; then
local dir=$argv[-1]
argv[-1]=
# zfcd directory hack to put the front back to ~
if [[ $dir = $HOME || $dir = $HOME/* ]]; then
dir="~${dir#$HOME}"
fi
[[ -n $dir && $dir != */ ]] || dir="$dir/"
for loc in $*; do
rem=$dir${loc:t}
zftp put $rem <$loc || stat=1
done
else
if [[ $2 = $HOME || $2 = $HOME/* ]]; then
2="~${2#$HOME}"
fi
zftp put $2 <$1
stat=$?
if [[ stat -ne 0 && $ZFTP_CODE = 553 && $ZFTP_REPLY = *'Is a directory'* ]]
then
zftp put $2/$1:t <$1
stat=$?
fi
fi
(( $do_close )) && zfclose
return $stat
# }
|
