about summary refs log tree commit diff
path: root/Functions/Zftp/zfgcp
blob: 26a08697d020076126bdf7c8b8a6f4e3bdbdf757 (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
# function zfgcp {
# ZFTP get as copy:  i.e. first arguments are remote, last is local.
# Supposed to work exactly like a normal copy otherwise, i.e.
#  zfgcp rfile lfile
# or
#  zfgcp rfile1 rfile2 rfile3 ... ldir
# Options:
#   -G   don't to remote globbing, else do
#   -t   update the local file times to the same time as the remote.
#        Currently this only works if you have the `perl' command,
#        and that perl is version 5 with the standard library.
#        See the function zfrtime for more gory details.
#
# If there is no current connection, try to use the existing set of open
# parameters to establish one and close it immediately afterwards.

emulate -L zsh

local opt optlist nglob remlist rem loc time
integer stat do_close

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

zfautocheck

# hmm, we should really check this after expanding the glob,
# but we shouldn't expand the last argument remotely anyway.
if [[ $# -gt 2 && ! -d $argv[-1] ]]; then
  print "zfgcp:  last argument must be a directory." 2>&1
  return 1
elif [[ $# == 1 ]]; then
  print "zfgcp:  not enough arguments." 2>&1
  return 1
fi

if [[ -d $argv[-1] ]]; then
  local dir=$argv[-1]
  argv[-1]=
  for remlist in $*; do
    # zfcd directory hack to put the front back to ~
    if [[ $remlist = $HOME || $remlist = $HOME/* ]]; then
      remlist="~${remlist#$HOME}"
    fi
    if [[ $nglob != 1 ]]; then
      zfrglob remlist
    fi
    if (( $#remlist )); then
      for rem in $remlist; do
	loc=$dir/${rem:t}
	if zftp get $rem >$loc; then
	  [[ $time = 1 ]] && zfrtime $rem $loc
	else
	  stat=1
	fi
      done
    fi
  done
else
  zftp get $1 >$2 || stat=$?
fi

(( $do_close )) && zfclose

return $stat
# }