mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-19 21:44:11 +01:00
129 lines
3.8 KiB
Plaintext
129 lines
3.8 KiB
Plaintext
# function zfuget {
|
|
# Get a list of files from the server with update.
|
|
# In other words, only retrieve files which are newer than local
|
|
# ones. This depends on the clocks being adjusted correctly
|
|
# (i.e. if one is fifteen minutes out, for the next fifteen minutes
|
|
# updates may not be correctly calculated). However, difficult
|
|
# cases --- where the files are the same size, but the remote is newer,
|
|
# or have different sizes, but the local is newer -- are prompted for.
|
|
#
|
|
# Files are globbed on the remote host --- assuming, of course, they
|
|
# haven't already been globbed local, so use 'noglob' e.g. as
|
|
# `alias zfuget="noglob zfuget"'.
|
|
#
|
|
# Options:
|
|
# -G Glob: turn off globbing
|
|
# -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.
|
|
# -t time: 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.
|
|
|
|
emulate -L zsh
|
|
|
|
[[ $curcontext = :zf* ]] || local curcontext=:zfuget
|
|
local loc rem locstats remstats doit tmpfile=${TMPPREFIX}zfuget$$
|
|
local rstat remlist opt opt_v opt_s opt_G opt_t
|
|
integer stat do_close
|
|
|
|
zfuget_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
|
|
}
|
|
|
|
zfuget_print () {
|
|
print -n "\nremote $rem ("
|
|
zfuget_print_time $remstats[2]
|
|
print -n ", $remstats[1] bytes)\nlocal $loc ("
|
|
zfuget_print_time $locstats[2]
|
|
print ", $locstats[1] bytes)"
|
|
}
|
|
|
|
while getopts :vsGt opt; do
|
|
[[ $opt = "?" ]] && print "zfuget: bad option: -$OPTARG" >&2 && return 1
|
|
eval "opt_$opt=1"
|
|
done
|
|
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))
|
|
|
|
zfautocheck || return 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 [[ $opt_n != 1 ]]; then
|
|
zfrglob remlist
|
|
fi
|
|
if (( $#remlist )); then
|
|
for rem in $remlist; do
|
|
loc=${rem:t}
|
|
doit=y
|
|
remstats=()
|
|
if [[ -f $loc ]]; then
|
|
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
|
|
print "File not found on server: $rem" 1>&2
|
|
stat=1
|
|
continue
|
|
fi
|
|
[[ $opt_v = 1 ]] && zfuget_print
|
|
if (( $locstats[1] != $remstats[1] )); then
|
|
# Files have different sizes
|
|
if [[ $locstats[2] > $remstats[2] && $opt_s != 1 ]]; then
|
|
[[ $opt_v != 1 ]] && zfuget_print
|
|
print "Local file $loc more recent than remote," 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 [[ $opt_s != 1 ]]; then
|
|
[[ $opt_v != 1 ]] && zfuget_print
|
|
print "Local file $loc has same size as remote," 1>&2
|
|
print -n "but local file is older. Transfer anyway [y/n]? " 1>&2
|
|
read -q doit
|
|
fi
|
|
else
|
|
# presumably same file, so don't get it.
|
|
[[ $opt_v = 1 ]] && print Not transferring
|
|
doit=n
|
|
fi
|
|
fi
|
|
else
|
|
[[ $opt_v = 1 ]] && print New file $loc
|
|
fi
|
|
if [[ $doit = y ]]; then
|
|
if zftp get $rem >$loc; then
|
|
if [[ $opt_t = 1 ]]; then
|
|
# if $remstats is set, it's second element is the remote time
|
|
zfrtime $loc $rem $remstats[2]
|
|
fi
|
|
else
|
|
stat=$?
|
|
fi
|
|
|
|
fi
|
|
done
|
|
fi
|
|
done
|
|
|
|
(( do_close )) && zfclose
|
|
|
|
return $stat
|
|
# }
|