zsh-3.1.5-pws-16 zsh-3.1.5-pws-16-w6109 dot-zsh-199904280524

1 files changed, 147 insertions, 0 deletions

diff --git a/Functions/Zftp/zfuget b/Functions/Zftp/zfuget
new file mode 100644
index 000000000..482da42e9
--- /dev/null
+++ b/Functions/Zftp/zfuget
@@ -0,0 +1,147 @@
+# 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
+
+local loc rem locstats remstats doit tmpfile=${TMPPREFIX}zfuget$$
+local rstat remlist verbose optlist opt bad i silent nglob time
+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 [[ $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
+	 ;;
+      G) nglob=1
+	 ;;
+      t) time=1
+	 ;;
+      *) print option $opt not recognised >&2
+	 ;;
+    esac
+  done
+  shift
+done
+
+[[ -n $bad ]] && return 1
+
+zfautocheck
+
+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=${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
+	[[ $verbose = 1 ]] && zfuget_print
+	if (( $locstats[1] != $remstats[1] )); then
+	  # Files have different sizes
+	  if [[ $locstats[2] > $remstats[2] && $silent != 1 ]]; then
+	    [[ $verbose != 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 [[ $silent != 1 ]]; then
+	      [[ $verbose != 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.
+	    [[ $verbose = 1 ]] && print Not transferring
+	    doit=n
+	  fi
+	fi
+      else
+	[[ $verbose = 1 ]] && print New file $loc
+      fi
+      if [[ $doit = y ]]; then
+	if zftp get $rem >$loc; then
+	  if [[ $time = 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
+# }