Current File : //usr/local/share/zsh/5.8/functions/Zftp.zwc
5.8 P < functions/Zftp/zfanon
< functions/Zftp/zfautocheck < < functions/Zftp/zfcd 5
< functions/Zftp/zfcd_match 5s , < functions/Zftp/zfcget s X < functions/Zftp/zfclose T ` < functions/Zftp/zfcput
< functions/Zftp/zfdir
v
< functions/Zftp/zffcache & 0 < functions/Zftp/zfgcp & A < functions/Zftp/zfget >
< functions/Zftp/zfget_match >" x < functions/Zftp/zfgoto " X < functions/Zftp/zfhere < functions/Zftp/zfinit A < functions/Zftp/zfls 6 t 4 < functions/Zftp/zfmark 6 < functions/Zftp/zfopen W 0 < functions/Zftp/zfparams
< functions/Zftp/zfpcp < functions/Zftp/zfput w Q < functions/Zftp/zfrglob w < functions/Zftp/zfrtime " p
< functions/Zftp/zfsession " _$
< functions/Zftp/zfstat _$ ' +
< functions/Zftp/zftp_chpwd 'T( < functions/Zftp/zftp_progress T( )
< functions/Zftp/zftransfer )+ O ` < functions/Zftp/zftype +, i < functions/Zftp/zfuget ,*0
< functions/Zftp/zfuput *0A f d қCA B r ! Q ' d | A d z "K A C N A C f ҉ zA "
r " F - F A F A "
C F @ Y A T S A R A g d A, 1 A. r ;t9 A.
A A, \ y A "
Q q A " R A " 1" A R A ( ' d ! A, % P A, & A h A f A, ( A C
f , A, + D y A. , A L 1 A . R A F A F A, 2 A F % A 6 1 A. 6 r + ;|9 A, 7 A, 8 "K
A. 9 5
A 1
A. < r Y
A B C + t
C F q
A
+ t
A B F F A 4 1 A C
A F
emulate curcontext :zf local curcontext :zfanon opt_1 getopts opt print zfanon: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) EMAIL_ADDR domain host HOST /etc/resolv.conf domain Mf</etc/resolv.conf:domain2 domain HOST.domain host Mfnslookup $HOST 2>/dev/null:Name:2 oldvb ZFTP_VERBOSE oldtm ZFTP_TMOUT ZFTP_VERBOSE ZFTP_TMOUT zftp open /dev/null ZFTP_HOST close ZFTP_VERBOSE oldvb ZFTP_TMOUT oldtm Can't get your hostname. Define $EMAIL_ADDR by hand. EMAIL_ADDR USER@host Using EMAIL_ADDR as anonymous FTP password. 1ftp:// 1/ 1%%/ opt_1 anonymous params dir zfcd A C ' 9 A ' A " = F A
A R A B & F A B + ;$; 0 A C | F T h A F q A B & F A 1 A. # + ;t; A F Q AF % 2`
A | F 0 E local lastloc zfconfiglastloc_ZFTP_SESSION ZFTP_VERBOSE ZFTP_VERBOSE//0 +zftpseconds unset zftpseconds ZFTP_HOST zfopen return do_close zftp test /dev/null lastloc ZFTP_HOST lastloc%%: zfcd lastloc: A f d қCA B r ! Q ' d | A A. r + {9 A B F $s F A B C F $ C F A AV R r +
r + % A. ! E A A $ } A f + AN ' 2p r +$ r + A C
f + A& * r +$ A C ( + = A ' d A t
1
A "
f # 4
A
f k 4 1 A. 7
A F 0 I emulate curcontext :zf local curcontext :zfcd zfautocheck return HOME HOME/ ~1#HOME # == 0 zfconfiglastdir_ZFTP_SESSION eval ${ZFTP_PWD:s!1!2!} lastdir ZFTP_PWD zftp @ lastdir zfconfigcurdir_ZFTP_SESSION zfconfiglastdir_ZFTP_SESSION print zfconfiglastloc_ZFTP_SESSION A f d қCA C F < A AV R r + q r + A. A C ' A , D ` A 4 E A A. r u A F A C G "K A
1 A. r + A. "K
Q A. r + {9 A. "Kz A C , E A < 1 A
u A C , A , A "" ( 2`
;| ( "K A C
A )
A 4
f @ p ۜzی ۄ
A ,
A C , ) q A F \ +< emulate setopt extendedglob HOME HOME/ ~1#HOME local ZFTP_VERBOSE match mbegin mend ZFTP_SYSTEM UNIX rcexpandparam / 1%/ reply Mfzftp ls -lF $dir:d:space::space:c8/ #reply Mfzftp dir $dir:d:space::space:c8 reply/bd:space::space:c8///match2 dir dir/ WIDGET _wanted directories expl remote directory compadd dir reply dirreply zfget_match A f d қCA B r ! Q ' d | A l C g d b{+k E z E E E E , E D A g d \ t A A f 9zA " r " C F C F T A F p A " F A l +< A AV R r M q r A. A < 1 A. A F 8 A u 1u A " Y A ,q +k A, $ b{ A X C j
A& % A B f :+ ' + ^ A
,
A
V $ A $ + f 1 A, D + A \ u A 1 A. 0 r E A C f ` y ! A B$ D - 3 @ + A
& T Q
A. 5 r E A
F ` y A
& A D C ' A& 9 = A F ` e A & Q
A. < = A C F `
A &
A A $ D -
A " A r
C - % q A. C @ A F L i emulate curcontext :zf local curcontext :zfcget stat opt_G opt_t remlist locst remst rstat tsize getopts opt print zfcget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) remlist HOME remlist HOME/ ~remlist#HOME opt_G zfrglob #remlist remlist rem:t loc zftp rem zftp local $loc zftp remote rem rstat remst <$1 <<<'temporary file' rstat print Server does not support SIZE command.\n Assuming you know what you're doing... zftp getat rem locst1 loc stat continue Remote file not found: rem continue locst1 remst1 Local file is larger! continue locst1 Files are already the same size. continue locst1 opt_t zfrtime remst2 return stat A B r 1 ' D \ A F curcontext :zf local curcontext :zfclose zftp close A f d қCA B r ! Q ' d | A T C g d b{+k E E E E A C 1 A. r E # A. Q A. r # A. q A f 9 = A F A x b{ +< A, ! +k A " AV " R r - r E A. # +ke A @ C g A& % R A F A. ' ] A
A
S $ A $ + f 1 A, D + A \ u A < F
A. 0 r 9 A C f T m = A, 3 D A
& X Q A. 5 r 9 A
$ f | A& 8 A C F T A & l Q
A. ; A F T A C & D
q A C i
A A. D r
A B, c f
C f | ( E D A B, f
E f | G D A C F emulate curcontext :zf local curcontext :zfcput stat locst remst offs tailtype echo abcd | tail +2c echo abcd | tail --bytes=+2 print I can't get your `tail' to start from arbitrary characters.\n If you know how to do this, let me know. return loc rem HOME HOME/ ~rem#HOME Can't read file loc zftp local $loc zftp remote rem rstat remst <$1 <<<'temporary file' rstat print Server does not support remote status commands.\n You will have to find out the size by hand and use zftp append. stat continue zftp rem loc remst1 locst1 Remote file is larger! continue locst1 Files are already the same size. continue offs = remst[1] + 1 tailtype tail +offsc append bytes+offs append return stat A f d қCA F < A B r q ' A , z( H J ` A ' A C ' 4 Y A , N" A. r + < A
AV R r + r + A C & A & A. # + A C & A, ' ( 5 A @
L' P i J[YA, ) z A
A 0 A. + H 0 2 A. - 0+ " A " / 2@
f k 4 A " 0 2@
9 a f k 4 A C F $ A F A
& A B C F $ C F A < L P ! P A = AV = R r e r e A. > A 6 AF B 2` r +$ = A E 1 A E R Y A, F x A. G 5 A. I q$ A M 1 A M R A, N 4 A. O E A, Q m A, R ` A l 1 AV S 2 2P
A B V r
%
f k 4 A " X
X
] A d 1 A& [ r A f k 4 A " _ F $ A " 1 A6 b 2@
A f q A C A ( C A C F ( A < f "K+< F ++ F A f "K+< A f emulate setopt extendedglob curcontext :zf local curcontext :zfdir file optlist redir newargs force curdir zfconfigcurdir_ZFTP_SESSION otherdir zfconfigotherdir_ZFTP_SESSION shift break rfd 1 i = 1 i <= #optlist optlisti curdir curdir curdir otherdir otherdir otherdir zffcache return zfautocheck i <= #argv i++ argvi HOME HOME/ argvi ~argv[i]#HOME redir curdir curdir TMPPREFIXzfcurdir_ZFTP_SESSION_ zfconfigcurdir_ZFTP_SESSION curdir curdir otherdir TMPPREFIXzfotherdir_ZFTP_SESSION_ zfconfigotherdir_ZFTP_SESSION otherdir otherdir * file newargs force newargs zfconfigotherargs_ZFTP_SESSION newargs zfconfigotherargs_ZFTP_SESSION newargs # == 0 eval PAGER:more $file zftp test A " r + $ G A, I A C 1 A R A G A A G J AT
A
A D A, ] A. A h 1 A. r + $ A C F H a Q A A F local fcache_name zfconfigfcache_ZFTP_SESSION fcache_name vals vzfconfigIfcache_zftp_fcache_ integer valsrzftp_fcache_i i++ zftp_fcache_i zfconfigfcache_ZFTP_SESSION fcache_name unset fcache_name (P)#fcache_name == 0 eval fcache_name=(${(f)"$(zftp ls)"}) A f d қCA B r ! Q ' d | A ( C d z +kb{ A g 4 H A N A f l 9zA " r " C F C F 0 A F L a A " F A B & ( F 0 A 1 AF " 2` +$ Y A F A F 0
A. % +$ A F 5 A F 0 A
Q = A * Y A
' d "KY A, , A C ,2 +< A / AV / R r r 9 A. 0 Y A < 1 A. 2 A F A C
A 5 A
+k A, 7 b{9 A A f p :+ A " 9 r C f q A. ; 4 A A AV A R r + r + A. B A B + f p :++ D 4 + A " G A & p A C F 0 emulate curcontext :zf local curcontext :zfgcp remlist opt_G opt_t integer stat do_close getopts opt print zfgcp: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck argv1 zfgcp: last argument must be a directory. zfgcp: not enough arguments. argv1 remlist HOME remlist HOME/ ~remlist#HOME opt_G zfrglob #remlist remlist dir/rem:t zftp rem loc opt_t zfrtime HOME/ ~1#HOME do_close zfclose stat A C f d қCA B r ! Q ' d | A , d b{+kz A C g , L ` A A f zA " r " F F \ A C F x A " F
A B C & T C F \ A = +< A % AV % R A. & A <
1 A. ( U A C
F p A <
& 1& A + A ," +k A C A -
A f :+ A. / L + A, 1 b{) A A M f :+ A " 3 r a f | M q A. 5 L A " < & A F \ emulate curcontext :zf local curcontext :zfget remlist opt_G opt_t opt_c integer stat do_close getopts :Gtc opt print zfget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck remlist HOME remlist HOME/ ~remlist#HOME opt_G zfrglob #remlist remlist opt_c zftp rem rem:t loc opt_t zfrtime do_close zfclose stat A f d қCA B C 4 D l C F A AV R + + A. A y c AV 2 M + ;|9 A C d A ' 5 A B 4s F A p C M C A
A ' "K A B r ;| "K) A $ H b d2 A C g \ x A \ A C x = A A
A C f H "K A \ A \ A C x ! A x A 4 f 4 d y ۜzی ۄ A , C &
$
d =
t
ۄ
A
f H b
A C
q A G A C & D A p
A .
i A , & $
d =
4 A C
emulate zmodload zsh/files b:zf_ln return HOME HOME/ ~1#HOME ZFTP_SYSTEM UNIX setopt localoptions clobber extendedglob local tmpf TMPPREFIXzfgm zf_ln <<<'' tmpf WIDGET 1%/ dir dir/ zftp reply1 reply2 Mf<$tmpfdir:/%/ f<$tmpfdir%*:/ #reply1 Mf<$tmpf:d:space::space:c8 reply1/bd:space::space:c8///match2 f<$tmpf:d:space::space:c8 reply2/b:space::space:c8/match2 _wanted directories expl remote directory compadd reply1 _wanted files remote file compadd reply2 1*2 reply <$tmpf fcache_name zffcache WIDGET _wanted compadd fignore Pfcache_name A f d қCA F < A B r q ' A F A g A $ z A C A C f < q zA " r ] " F p F A F 5 A " h C F A X
A A F p % A C F A p - 1 A6 2@
A C '
A, " J2b A H $ 5 N A f ۔ A. $ 5 } A. & J2 Q A ' A
$ N A
f ۔ A "* , R r r ! & d A. - A, 1 E A X
A 3 R A
F p A C
F A "K A, 9 A, : E A, ; q A, < "K A B AV > 2 r r
=
A F T
i
Q
AV A R r 2 r
A " F
=
" C
F T
AV D 2 r
m r A " & " H
F T
A G 8 A 8 U A C AV M 2 r =
r A " & " N
F T
q A " f =
" P
F T
emulate setopt extendedglob curcontext :zf local curcontext :zfgoto ZFTP_BMFILE:ZFDOTDIR:HOME/.zfbkmarks typeset bkmarks line opt_n getopts opt print zfgoto: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) # != 1 Usage: zfgoto bookmark opt_n /.ncftp/bookmarks oldifs IFS read bkmarksline1 line[3]:-anonymous@line[2]:line[6] /.ncftp/bookmarks oldifs ZFTP_BMFILE line :blank: :blank:# continue bkmarksline%% line#* ZFTP_BMFILE bkmarks1 Bookmark `1' not found user host line%%@ line@ line%%: line: ZFTP_USER user ZFTP_HOST host zfcd dir: anonymous zfanon dir zfconfiglastloc_ZFTP_SESSION host: zfconfiglastuser_ZFTP_SESSION zfopen params zftp params params1 params2 A B r 1 C ' D \ A F curcontext :zf local curcontext :zfhere zfcd PWD A f d қCA A. + t A B C f L D C F t A B L F t A C 6 16 A C f L A G
A B <
% L q A B C <
C A B <
) P u A p
A " F <
= A e A g < A % A F 9 A F A C F A F % A F y A , C & ۬ D X A 4 f ۬ < T l A 0 F ۬( D ` A , & ۬@ \
$
A b a A " & RP r A
R y
< A $ &
A
F
A L 4 m \
\ H ۜzی u \ l \ l \ \ u ۜ A (
@ \ ` ۜzی D A $ C
\ l T <
A
\ \ D ` A 0
F ۜ ۜ A ( A 0 ۜ Q A > + z A ( ' - P q A "
f A f % + A " 2@
E C f h E A A 4 C f ۜ - ۜ u \ A C F emulate zmodload zsh/net/tcp return zsh/zftp zftp zsh/zutil local zstyle :zftp:* progress :zftp:* progress :zftp:* update :zftp:* :zftp:* titlebar :zftp:* titlebar true functions chpwd /dev/null :zftp:* :zftp:* typeset zfconfig lastsession default alias zfcdnoglob zfcd zfgetnoglob zfget zflsnoglob zfls zfdirnoglob zfdir zfugetnoglob zfuget autoload zfanon zfautocheck zfcd zfcd_match zfcget zfclose zfcput autoload zfdir zffcache zfgcp zfget zfget_match zfgoto zfhere zfinit zfls autoload zfmark zfopen zfparams zfpcp zfput zfrglob zfrtime zfsession autoload zfstat zftp_chpwd zftp_progress zftransfer zftype zfuget zfuput _patcomps _patcompsr_zf compctl setopt completealiases compctl p[1] (open params user login type ascii binary mode put putat
get getat append appendat ls dir local remote mkdir rmdir delete
close quit) w[1,cd][1,ls][1,dir][1,rmdir] zfcd_match W[1,get*] w[1,delete][1,remote] w[1,open][1,params] hosts w[1,session] ${$(zftp session):#$ZFTP_SESSION} compctl zfcd_match compctl compctl compctl $(awk '{print $1}' ${ZFTP_BMFILE:-${ZDOTDIR:-$HOME}/.zfbkmarks}) W[1,-*n*] $(awk -F, 'NR > 2 { print $1 }' ~/.ncftp/bookmarks) compctl ${$(zftp session):#$ZFTP_SESSION} zftransfer_match local sess 1%%: oldsess ZFTP_SESSION sess zftp session zfget_match 1: oldsess session reply sess:reply compctl $(zftp session) C[0,*:*] zftransfer_match zftransfer return A f d қCA B r ! Q C ' d | A AV R r + r + A. A F 0 $ A f ` b +< emulate curcontext :zf local curcontext :zfls HOME HOME/ ~1#HOME zfautocheck zftp A C f d қCA F < A B r q ' A F A C g A G A 1 A ! A $ N A f T ۔ A "* R r i r i C & A. q A A A 4 A f < ۔U A F A # A F < A C F A
1 A (
i A. ) Q A *
e A. + A F < A F A @ A f < ۔U emulate setopt extendedglob curcontext :zf local curcontext :zfmark ZFTP_BMFILE:ZDOTDIR:HOME/.zfbkmarks typeset bkmarks line ZFTP_BMFILE read line :blank: :blank:# continue bkmarksline%% line#* ZFTP_BMFILE # == 0 kobkmarks print line bkmarks[line] return # > 1 Usage: zfmark [bookmark] ZFTP_HOST bkmarks1 ZFTP_USER@ZFTP_HOST:ZFTP_PWD zfconfiglastloc_ZFTP_SESSION zfconig[lastuser_ZFTP_SESSION]@zfconfig[lastloc_ZFTP_SESSION] No current or recent ZFTP session to bookmark. ZFTP_BMFILE A C f d қCA B r ! Q ' d | A d z"K A N A f ҉ zA " r ) " F < U F A F A " 4 F h A 1 A. r + ;|9 A, A, "K A. A 5 1 A. r A A B f \ p +< F A A. r +$ A T C 1 A C F \ A F \ A F A " ( "
F +< ( A
1 A
F \ p A " +
F \ A " ,
) F A C F A 4 C 1 A 1
U A F h U emulate curcontext :zf local curcontext :zfopen opt_1 setparams getopts opt print zfopen: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) 1ftp:// 1/ 1%%/ opt_1 zftp open login close # > 0 zfparams ZFTP_HOST setparams dir zfcd A f d қCA B r ! Q C ' d | A 5 1 AN 2p r +$ r + A ( C ' d E Z+ A,
Z+ A "
F A H , Z+ ( L t A C F Q A A " ) A
A M A
1 A. r + q A. q A. A f l +< emulate curcontext :zf local curcontext :zfparams sess ZFTP_SESSION zfconfigfcache_sess key unset fcache lastloc lastdir curdir otherdir otherargs lastuser zfconfig[key_sess] # > 0 # < 2 # < 3 ? ?Password on 1: ?Password for 2##\? on 1: zftp params A f d қCA B r ! Q ' d | A g d +kb{ A g A B & F L A V 0 Av R +$ R r + i r + ;| A C ' d "K A, A AV R r r A. "K A B" 2`
;| "K] A p ,
b{ +< A, ! +k} A B $ f " $ A % AV % R r + r + A. &
A
$ + f + A, ) + A
Av * 2 2 r E r q A $ + f A. - + A " 1
C & < A F L ] emulate curcontext :zf local curcontext :zfpcp integer stat do_close zfautocheck return ... argv1 argv1 dir HOME HOME/ ~dir#HOME dir/ dirloc:t zftp rem loc HOME/ ~2#HOME ZFTP_CODE ZFTP_REPLY Is a directory 2/1:t do_close zfclose stat A C f d қCA B r ! Q ' d | A g d z A C 4 A A f L ґ zA " r m " F F A C F , A A " t F A C & A k 8 A b{+k A G 8 X A % l A 3 b{ +< A A
A l A A C % A & q A. +k q A. +k% A $ f H ] A " q X + A | 1 A F H A, A B X A & A A A f H D ] A C F A " q X + A F $ A F D a A F +< A, @ + A " B & D A F d emulate curcontext :zf local curcontext :zfput opt_r integer stat do_close abort getopts opt print zfget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck zfput_sub local subdirs integer stat subdirs opt_r loc subdirs subdirs continue loc:t zftp rem ? test abort stat break #subdirs && ! abort mkdir subdirs1 zfput_sub subdirs1/ND shift subdirs return stat zfput_sub stat do_close zfclose return stat A f d қCA C F < A ( p "K J A " C ۤ 1 ` A F A \ C
1
An ! 2 R`
A F < A t M A. & A t + A , $ + 0 f b A F X m q: A 5 ' AV , 2 r a r ;|9 A .
1 A. . r A. 0 "K q A. 2 "Kz A, 4 A x C
+ # A , 0 $ + f b A X q A C , E A G p A C & A, > A ,
A C F T i emulate setopt extendedglob local nondir files zfrglob zstyle curcontext remoteglob zfrglob eval pat$1 pat zfrglob return zftp pat /dev/null eval 1=($(<$1)) <<<'temporary file' ZFTP_SYSTEM UNIX pat / pat%/ nondir pat/ zftp dir /dev/null files <$1 <<<'temporary file' files files:t local fcache_name zffcache nondir pat Pfcache_name eval 1=(${files:/^${~nondir}}) A f d қCA C F D A < x j{s B jKs+ A g x L ( A 1 A
+ A. + q A C m A "
A " R F A, = A, j{si A, A, B A, jKs A, +% A X ,
Y A ۜ ۔ ) A. $ E T A ۜ ۔ ! M A, ' E A, ) A
ۜ E A ۤ + emulate zmodload zsh/datetime local time gmtime loctime year mday tmpdate days_since_epoch zftp remote $2 2>/dev/null time time2 return time1,4 time5,6 time7,8 time9,10 time11,12 time13,14 1970..( year - 1) strftime tmpdate %Y/%m/%d y/12/31 days_since_epoch strftime "%j" $tmpdate tmpdate %Y/%m/%d year/mon/( mday - 1 ) days_since_epoch ( sec + 60 * ( min + 60 * (hr + 24 * days_since_epoch)) ) %Y%m%d%H%M%S EPOCHSECONDS touch time1,12.time13,14 A C f d қCA B r ! Q ' d | A ( d z 4 A A f T u zA " r " F F H A F d y A.
4 A " F A C 1 Av R +$ 2 2@
A R e +$ A F A F H A A
- A G d H A C , H ] A f t A T 1 A. r A F A & Q A !
A F $ 8 A C A %
Y A 1 A. & u A ' d 5 A
f $ l u A, ) A
F A F M A C F H A C 1 A 1
e A ( ' d "+c E Z+ A, 3 Z+% A " 4
F A H C
, Z+
,
P
x
A
F
A f $ - A C & H A " <
A F H e A P A. > r +$ A F } A & H A ' d A f $ D + A P C A. E e A, F A & $
emulate curcontext :zf local curcontext :zfsession opt_l opt_v opt_o opt_d hadopts getopts :lovd opt print zfsession: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) hadopts opt_d Usage: zfsession ( [ -lvod ] | session ) opt_v sess zftp session (r.15.. ..:.)sess\tzfconfig[lastloc_sess]:-not connected sess ZFTP_SESSION * opt_l zftp session opt_o zfconfiglastsession ZFTP_SESSION cursession ZFTP_SESSION session zfconfiglastsession cursession ZFTP_SESSION zfsession: no previous session. 1:ZFTP_SESSION zfconfigfcache_del key unset fcache lastloc lastdir curdir otherdir otherargs lastuser zfconfig[key_del] rmsession del hadopts stat ZFTP_SESSION oldsession ZFTP_SESSION:default session ZFTP_SESSION oldsession zfconfiglastsession zftp_chpwd A f P A F h A B
r ' < A 8 G J \ E z E p A C N A C f ұ zA " r " F F P A F l A " C F A "
I F A C [ 1O A
A F A F m A F A "
C F A A = 19 A
A F A "
= F u A C F A f t = A 1 A. r L A F Q A. ! r A F q A F A f t 1 A 1 A. ' r } A
F Q A. ) r A
F q A F q A F ) q A F } A " 3
F E
A. 5 \ A " 9
C F A A F A F A f t } A C L (
A - =
0
}
A f t
0
A C f t
0
A f t 0
; A C f t 5 A & A AF J 2`
r
A F $ A F A ' l A f A F P setopt localoptions unset unsetopt ksharrays curcontext :zf local curcontext :zfstat stat opt_v getopts opt print zfstat: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) ZFTP_SESSION Session:\tZFTP_SESSION ZFTP_HOST Host:\t\tZFTP_HOST Port:\t\tZFTP_PORT IP:\t\tZFTP_IP ZFTP_SYSTEM System type:\tZFTP_SYSTEM ZFTP_USER User:\t\tZFTP_USER ZFTP_ACCOUNT Account:\tAFTP_ACCOUNT Directory:\tZFTP_PWD Transfer type:\t ZFTP_TYPE Image ZFTP_TYPE Ascii Unknown Transfer mode:\t ZFTP_MODE Stream ZFTP_MODE Block Unknown No user logged in. Not connected. zfconfiglastloc_ZFTP_SESSION Last location:\tzfconfig[lastloc_ZFTP_SESSION] ZFTP_REPLY Last reply:\tZFTP_REPLY Verbosity:\tZFTP_VERBOSE Timeout:\tZFTP_TMOUT Preferences:\t i = 1 i <= #ZFTP_PREFS i++ ZFTP_PREFSi pP Passive sS Sendport dD Dumb ZFTP_PREFS[i]??? ZFTP_HOST opt_v zfautocheck Status of remote server: ZFTP_VERBOSE zftp quote STAT stat A A. ) A ' A " 2@
a f k 4 A, A C F H $ A H H 1 A R m A " 2@
f k 4 A, ) A " ۤ & q5 A "
) A, ) A, A G A ( $ # A " 2@ ۤ A C ' A A " " " A ! 0
9 A f X ۄrq 0 $ A f X ۄr= ZFTP_PWD zfconfiglastdir_ZFTP_SESSION local curdir zfconfigcurdir_ZFTP_SESSION curdir curdir curdir zfconfigotherargs_ZFTP_SESSION zffcache ZFTP_USER zfotherdir zfotherdir zfotherdir zfconfiglastdir_ZFTP_SESSION zstyle :zftpcurcontext chpwd zfconfiglastloc_ZFTP_SESSION ZFTP_HOST:ZFTP_PWD zfconfiglastuser_ZFTP_SESSION ZFTP_USER args :zftpcurcontext titlebar zfconfiglastloc_ZFTP_SESSION str %m: %~ str TERM suncmd print \033]lstr\033\ xterm rxvt dtterm Eterm kterm \033]2;str\a A G 0 A L ۜ i A L ۜ 0 0 A "& Rp r % A C F ` A Z 1Z A
} A " } ;4 " " & ` A ' A C 3 - A& ! A ' , A A , $ Av # 2 r % 2p r A @ A $ A C F l A ' 0 P u A
' A C
f l tq q A
f l t ] q A f l t ) A AV 0 2 r } ;4 r A C F , A & l q A
G \ < | local style update zstyle :zftpcurcontext progress :zftpcurcontext style none return ZFTP_TRANSFER +zftpseconds SECONDS - zftpseconds < update size ZFTP_TSIZE:ZFTP_SIZE size:0 frac ( ZFTP_COUNT * 100 / size )% +COLUMNS COLUMNS ! +zftpseconds print ZFTP_FILE (size bytes): ZFTP_TRANSFER integer maxwidth ( COLUMNS - 7 ) width ( ZFTP_COUNT * maxwidth / size ) \r%S(l:width:):-%s(l:maxwidth-width:):-: frac%% \rZFTP_FILE (size bytes): ZFTP_TRANSFER frac \rZFTP_FILE: ZFTP_TRANSFER ZFTP_COUNT +zftpseconds unset zftpseconds typeset zftpseconds SECONDS A f d қCA B r ! Q ' d | A , C d 8 Y A \
1
A& +$ A F A C F ` A 1 A. r + ;9 A, } A. A F A 1 A. r + ;9 A, ! A. E A F e A AF R` R r ;| A. A `
A. r 5 Q A F m A C F ` A f $ 8 5 A B C & X C F ` A G d A C ۜ A AF . 2`
- - H A g d \ A x + * A , $ + L f 1 A t I A " 4 r 4 A c ) A C T4 X A f l :+ A f l A " & f l A ' $ < + A f l P q A F emulate curcontext :zf local curcontext :zftransfer sess1 sess2 file1 file2 oldsess ZFTP_SESSION print Usage: zftransfer sess1:file1 sess2:file2 return 1%%: 1: sess1:ZFTP_SESSION 2%%: 2: sess2:ZFTP_SESSION file2 file2file1:t sess1 sess2 zftransfer: must use two distinct sessions. zftp session zfautocheck style zstyle :zftp:zftransfer progress style none ZFTP_TSIZE array zftp remote file1 /dev/null array <$1 <<<'temporary file' array ZFTP_TSIZE array1 zstyle progress none zftp file1 session sess2 zfautocheck file2 local stat session oldsess return stat A G A B r - ] ' p A F $ A ; A A, A 1 A.
r I J A F ` y A F Q A.
r I
A F ` A F q A C F q A 1 A. + y A.
AV R + + A. J A C F ` = A F A f I local type curcontext :zf curcontext :zftype zfautocheck # == 0 zftp type type print Current type is image (binary) return Current type is ASCII iascii iimage ibinary Type not recognised: 1 zftp A f d қCA B r ! Q C ' d | A $ d b{+k A , d $ < z\ t A g A " O A ' Kk+ A f t 1 A f t :j AD ( A f t A F ` A f t A C F t A F A N A f < zA " 1 r U " C F h C F A F - A " 4 `
F A B
&
F A l $ +< A : AV : R E i A. ; $ A < C 1 A. = A F 0 $ A 1 A @ Q A C , +k A, B b{ A, C A % A X C 1 A E
A ; A $ + f - A @ e A $ + f A, + A e A C
A. M r ] A F x A F l Q
A. P r ] A C F x A, R
A &
A " U r E
C & `
A ( D 1 A V
A AN X 2p E y A " Y E
C & `
A F x A f x t A A f ی $ q' A 0 % A& ` 9 A C A. a y
A " b E
& `
A F x m A f x t A C f ی $ A " i r E
C f x rz A. j $ r q A " n r E
x r* - A A. p r A A C A C - f X :+m A D 1 A. r r A - m q A. w
+ A " & A C F l = emulate curcontext :zf local curcontext :zfuget locstats remstats doit rstat remlist opt_v opt_s opt_G opt_t integer stat do_close zfuget_print_time local print tim[1,4]/tim[5,6]/tim[7,8] tim[9,10]:tim[11,12].tim[13,14] zfuget_print print \nremote rem ( zfuget_print_time remstats2 , remstats[1] bytes)\nlocal loc ( zfuget_print_time locstats2 , locstats[1] bytes) getopts :vsGt opt print zfuget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck remlist remlist HOME remlist HOME/ ~remlist#HOME opt_n zfrglob #remlist remlist rem:t doit remstats loc zftp local loc locstats <$1 remote rem rstat remstats <<<'temporary file' rstat print Server does not implement full command set required. return File not found on server: rem stat continue opt_v zfuget_print locstats[1] != remstats[1] locstats2 remstats2 opt_s Local file loc more recent than remote, but sizes are different. Transfer anyway [y/n]? read doit remstats2 Local file loc has same size as remote, but local file is older. Transfer anyway [y/n]? transferring file loc doit zftp rem opt_t zfrtime remstats2 do_close zfclose stat A C f d қCA B r ! Q ' d | A $ d b{+k A C d $ z< T A g l A O A ' Kk+ A f t 1 A f t :j AD H A f t A F ` A f t A C F ` u A F A N A f ұzA " # r " F F L A F h } A " & F A B
& D
F L A H
A. * r u ;9 A F A 0 , +k +< A, 0 b{I A, 1 l A % A p
A& 3 A
F A, 5 A
& ( A S ; A $ + f - A @ e A $ + f A, + A e 9
A a
A. ? r
A F
A C F Q
A. B r
A " C r
r* K A " E r C & A ( D 1 A F 9 A AN H 2p
A " I C & A F
9
A f
t
A f ی q' A 0 % A& P A C A. Q
A " R
& A F
A f
t A C f ی A " Y r C f
rz A. Z r A d 1 A. ^ r A B $ f _ + A " c & @ A C F a emulate curcontext :zf local curcontext :zfuput locstats remstats doit rstat opt_v opt_s integer stat do_close zfuput_print_time local print tim[1,4]/tim[5,6]/tim[7,8] tim[9,10]:tim[11,12].tim[13,14] zfuput_print print \nremote rem ( zfuput_print_time remstats2 , remstats[1] bytes)\nlocal loc ( locstats2 , locstats[1] bytes) getopts opt print zfuget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck ZFTP_VERBOSE Messages with code 550 are harmless. rem:t doit remstats loc loc: file not found stat continue zftp local loc locstats <$1 remote rem rstat remstats <<<'temporary file' rstat print Server does not implement full command set required. return opt_v file loc zfuput_print locstats[1] != remstats[1] locstats2 remstats2 opt_s Remote file rem more recent than local, but sizes are different. Transfer anyway [y/n]? read doit remstats2 Remote file rem has same size as local, but remote file is older. Transfer anyway [y/n]? transferring doit zftp rem stat do_close zfclose stat 5.8 P <functions/Zftp/zfanon
<functions/Zftp/zfautocheck < <functions/Zftp/zfcd 5
<functions/Zftp/zfcd_match s , <functions/Zftp/zfcget X <functions/Zftp/zfclose T ` <functions/Zftp/zfcput
<functions/Zftp/zfdir
v <functions/Zftp/zffcache & 0 <functions/Zftp/zfgcp A <functions/Zftp/zfget >
<functions/Zftp/zfget_match " x <functions/Zftp/zfgoto X <functions/Zftp/zfhere <functions/Zftp/zfinit A <functions/Zftp/zfls 6 t 4 <functions/Zftp/zfmark <functions/Zftp/zfopen W 0 <functions/Zftp/zfparams
<functions/Zftp/zfpcp <functions/Zftp/zfput w Q <functions/Zftp/zfrglob <functions/Zftp/zfrtime " p
<functions/Zftp/zfsession " $_
<functions/Zftp/zfstat ' +
<functions/Zftp/zftp_chpwd (T <functions/Zftp/zftp_progress ( )
<functions/Zftp/zftransfer + O ` <functions/Zftp/zftype , i <functions/Zftp/zfuget 0*
<functions/Zftp/zfuput A f dC A B r ! Q ' d | A dz K" A C N A C f z A "
r " F - F A F A "
C F @ Y A T S A R A g d ,A 1 .A r 9t; .A
A ,A \ y A "
Q q A " R A " "1 A R A ( ' d ! ,A % P ,A & A h A f ,A ( A
C f , ,A + D y .A , A L 1 A . R A F A F ,A 2 A F % A 6 1 .A 6 r +9|; ,A 7 ,A 8 K"
.A 9
5 A
1 .A < r
Y A B C +
t C F
q A
+
t A B F F A 4 1 A C
A F
emulate curcontext :zf local curcontext :zfanon opt_1 getopts opt print zfanon: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) EMAIL_ADDR domain host HOST /etc/resolv.conf domain Mf</etc/resolv.conf:domain2 domain HOST.domain host Mfnslookup $HOST 2>/dev/null:Name:2 oldvb ZFTP_VERBOSE oldtm ZFTP_TMOUT ZFTP_VERBOSE ZFTP_TMOUT zftp open /dev/null ZFTP_HOST close ZFTP_VERBOSE oldvb ZFTP_TMOUT oldtm Can't get your hostname. Define $EMAIL_ADDR by hand. EMAIL_ADDR USER@host Using EMAIL_ADDR as anonymous FTP password. 1ftp:// 1/ 1%%/ opt_1 anonymous params dir zfcd A C ' 9 A ' A " = F A
A R A B & F A B +;$; 0 A C | F T h A F q A B & F A 1 .A # +;t; A F Q FA % `2
A | F 0 E local lastloc zfconfiglastloc_ZFTP_SESSION ZFTP_VERBOSE ZFTP_VERBOSE//0 +zftpseconds unset zftpseconds ZFTP_HOST zfopen return do_close zftp test /dev/null lastloc ZFTP_HOST lastloc%%: zfcd lastloc: A f dC A B r ! Q ' d | A .A r + 9{ A B F s$ F A B C F $ C F A VA R r +
r + % .A ! E A A $ } A f+ NA ' p2 r $+ r + A
C f+ &A * r $+ A C (+ = A ' d A t
1 A "
f # 4
A
f k 4 1 .A 7
A F 0 I emulate curcontext :zf local curcontext :zfcd zfautocheck return HOME HOME/ ~1#HOME # == 0 zfconfiglastdir_ZFTP_SESSION eval ${ZFTP_PWD:s!1!2!} lastdir ZFTP_PWD zftp @ lastdir zfconfigcurdir_ZFTP_SESSION zfconfiglastdir_ZFTP_SESSION print zfconfiglastloc_ZFTP_SESSION A f dC A C F < A VA R r + q r + .A A C ' A , D ` A 4 E A .A r u A F A C G K" A
1 .A r + .A K"
Q .A r + 9{ .A K" z A C , E A < 1 A
u A C , A , A "" ( `2
|; ( K" A
C A )
A 4
f @ p z
A ,
A C , ) q A F \ <+ emulate setopt extendedglob HOME HOME/ ~1#HOME local ZFTP_VERBOSE match mbegin mend ZFTP_SYSTEM UNIX rcexpandparam / 1%/ reply Mfzftp ls -lF $dir:d:space::space:c8/ #reply Mfzftp dir $dir:d:space::space:c8 reply/bd:space::space:c8///match2 dir dir/ WIDGET _wanted directories expl remote directory compadd dir reply dirreply zfget_match A f dC A B r ! Q ' d | A l C g d{bk+ Ez E E E E , E D A g d \ t A A f 9z A " r " C F C F T A F p A " F A l <+ A VA R r M q r .A A < 1 .A A F 8 A u u1 A " Y A q, k+ ,A $ {b A X C j
&A % A B f +: ' + ^ A
,
A
V $ A $ + f 1 ,A D + A \ u A 1 .A 0 r E A C f ` y ! A $B D - 3 @ + A
& T
Q .A 5 r E A
F ` y A
& A D C ' &A 9 = A F ` e A &
Q .A < = A C F `
A &
A A $ D -
A " A r
C - % q .A C @ A F L i emulate curcontext :zf local curcontext :zfcget stat opt_G opt_t remlist locst remst rstat tsize getopts opt print zfcget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) remlist HOME remlist HOME/ ~remlist#HOME opt_G zfrglob #remlist remlist rem:t loc zftp rem zftp local $loc zftp remote rem rstat remst <$1 <<<'temporary file' rstat print Server does not support SIZE command.\n Assuming you know what you're doing... zftp getat rem locst1 loc stat continue Remote file not found: rem continue locst1 remst1 Local file is larger! continue locst1 Files are already the same size. continue locst1 opt_t zfrtime remst2 return stat A B r 1 ' D \ A F curcontext :zf local curcontext :zfclose zftp close A f dC A B r ! Q ' d | A T C g d{bk+ E E E E A C 1 .A r E# .A Q .A r # .A q A f 9 = A F A x {b <+ ,A ! k+ A " VA " R r - r E .A # k+ e A @ C g &A % R A F .A ' ] A
A
S $ A $ + f 1 ,A D + A \ u A < F
.A 0 r 9 A C f T m = ,A 3 D A
& X Q .A 5 r 9 A
$ f | &A 8 A C F T A & l
Q .A ; A F T A C &
D q A C
i A .A D r
A ,B c f
C f | ( E D A ,B f
E f | G D A C F emulate curcontext :zf local curcontext :zfcput stat locst remst offs tailtype echo abcd | tail +2c echo abcd | tail --bytes=+2 print I can't get your `tail' to start from arbitrary characters.\n If you know how to do this, let me know. return loc rem HOME HOME/ ~rem#HOME Can't read file loc zftp local $loc zftp remote rem rstat remst <$1 <<<'temporary file' rstat print Server does not support remote status commands.\n You will have to find out the size by hand and use zftp append. stat continue zftp rem loc remst1 locst1 Remote file is larger! continue locst1 Files are already the same size. continue offs = remst[1] + 1 tailtype tail +offsc append bytes+offs append return stat A f dC A F < A B r q ' A , z ( H J ` A ' A C ' 4 Y A , "N .A r + < A
VA R r + r + A C & A & .A # + A C & ,A ' ( 5 A @
'L P iY[J ,A ) z A
A 0 .A + H 0 2 .A - +0 " A " / @2
f k 4 A " 0 @2
9 a f k 4 A C F $ A F A
& A B C F $ C F A < L P ! P A = VA = R r e r e .A > A 6 FA B `2 r $+ = A E 1 A E R Y ,A F x .A G 5 .A I $q A M 1 A M R ,A N 4 .A O E ,A Q m ,A R ` A l 1 VA S 2 P2
A B V r
%
f k 4 A " X
X
] A d 1 &A [ r A f k 4 A " _ F $ A " 1 6A b @2
A f q A C A ( C A C F ( A < f K" <+ F++ F A f K" <+ A f emulate setopt extendedglob curcontext :zf local curcontext :zfdir file optlist redir newargs force curdir zfconfigcurdir_ZFTP_SESSION otherdir zfconfigotherdir_ZFTP_SESSION shift break rfd 1 i = 1 i <= #optlist optlisti curdir curdir curdir otherdir otherdir otherdir zffcache return zfautocheck i <= #argv i++ argvi HOME HOME/ argvi ~argv[i]#HOME redir curdir curdir TMPPREFIXzfcurdir_ZFTP_SESSION_ zfconfigcurdir_ZFTP_SESSION curdir curdir otherdir TMPPREFIXzfotherdir_ZFTP_SESSION_ zfconfigotherdir_ZFTP_SESSION otherdir otherdir * file newargs force newargs zfconfigotherargs_ZFTP_SESSION newargs zfconfigotherargs_ZFTP_SESSION newargs # == 0 eval PAGER:more $file zftp test A " r + $ G ,A I A C 1 A R A G A A G J TA
A
A D ,A ] .A A h 1 .A r + $ A C F H a Q A A F local fcache_name zfconfigfcache_ZFTP_SESSION fcache_name vals vzfconfigIfcache_zftp_fcache_ integer valsrzftp_fcache_i i++ zftp_fcache_i zfconfigfcache_ZFTP_SESSION fcache_name unset fcache_name (P)#fcache_name == 0 eval fcache_name=(${(f)"$(zftp ls)"}) A f dC A B r ! Q ' d | A ( C dz k+{b A g 4 H A N A f l9z A " r " C F C F 0 A F L a A " F A B & ( F 0 A 1 FA " `2 $+ Y A F A F 0
.A % $+ A F 5 A F 0 A
Q = A * Y A
' d K" Y ,A , A C 2, <+ A / VA / R r r 9 .A 0 Y A < 1 .A 2 A F A
C A 5 A
k+ ,A 7 {b 9 A A f p+: A " 9 r C f q .A ; 4 A A VA A R r + r + .A B A B + f p+: + D 4 + A " G A & p A C F 0 emulate curcontext :zf local curcontext :zfgcp remlist opt_G opt_t integer stat do_close getopts opt print zfgcp: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck argv1 zfgcp: last argument must be a directory. zfgcp: not enough arguments. argv1 remlist HOME remlist HOME/ ~remlist#HOME opt_G zfrglob #remlist remlist dir/rem:t zftp rem loc opt_t zfrtime HOME/ ~1#HOME do_close zfclose stat A C f dC A B r ! Q ' d | A , d{bk+z A C g , L ` A A f z A " r " F F \ A C F x A " F
A B C & T C F \ A = <+ A % VA % R .A & A <
1 .A ( U A
C F p A <
& &1 A + A ", k+ A C A -
A f +: .A / L + ,A 1 {b ) A A M f +: A " 3 r a f | M q .A 5 L A " < & A F \ emulate curcontext :zf local curcontext :zfget remlist opt_G opt_t opt_c integer stat do_close getopts :Gtc opt print zfget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck remlist HOME remlist HOME/ ~remlist#HOME opt_G zfrglob #remlist remlist opt_c zftp rem rem:t loc opt_t zfrtime do_close zfclose stat A f dC A B C 4 D l C F A VA R + + .A A y c VA 2 M +9|; A C d A ' 5 A B s4 F A p C M C A
A ' K" A B r |; K" ) A $ H b2d A C g \ x A \ A C x = A A
A C f HK" A \ A \ A C x ! A x A 4 f 4 d y z A , C &
$ d
=
t
A
f H b
A
C
q A G A C & D A p
A .
i A , &
$ d
= 4 A C
emulate zmodload zsh/files b:zf_ln return HOME HOME/ ~1#HOME ZFTP_SYSTEM UNIX setopt localoptions clobber extendedglob local tmpf TMPPREFIXzfgm zf_ln <<<'' tmpf WIDGET 1%/ dir dir/ zftp reply1 reply2 Mf<$tmpfdir:/%/ f<$tmpfdir%*:/ #reply1 Mf<$tmpf:d:space::space:c8 reply1/bd:space::space:c8///match2 f<$tmpf:d:space::space:c8 reply2/b:space::space:c8/match2 _wanted directories expl remote directory compadd reply1 _wanted files remote file compadd reply2 1*2 reply <$tmpf fcache_name zffcache WIDGET _wanted compadd fignore Pfcache_name A f dC A F < A B r q ' A F A g A $z A C A C f < qz A " r ] " F p F A F 5 A " h C F A X
A A F p % A C F A p - 1 6A @2
A C '
,A " 2J b A H $ 5 N A f .A $ 5 } .A & 2J Q A ' A
$ N A
f A *" , R r r ! & d .A - ,A 1 E A X
A 3 R A
F p A
C F A K" ,A 9 ,A : E ,A ; q ,A < K" A B VA > 2 r r
= A F
T
i
Q VA A R r 2 r
A " F
= " C
F
T
VA D 2 r
m r A " & " H
F
T
A G 8 A 8 U A C VA M 2 r
=
r A " & " N
F
T
q A " f
= " P
F
T
emulate setopt extendedglob curcontext :zf local curcontext :zfgoto ZFTP_BMFILE:ZFDOTDIR:HOME/.zfbkmarks typeset bkmarks line opt_n getopts opt print zfgoto: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) # != 1 Usage: zfgoto bookmark opt_n /.ncftp/bookmarks oldifs IFS read bkmarksline1 line[3]:-anonymous@line[2]:line[6] /.ncftp/bookmarks oldifs ZFTP_BMFILE line :blank: :blank:# continue bkmarksline%% line#* ZFTP_BMFILE bkmarks1 Bookmark `1' not found user host line%%@ line@ line%%: line: ZFTP_USER user ZFTP_HOST host zfcd dir: anonymous zfanon dir zfconfiglastloc_ZFTP_SESSION host: zfconfiglastuser_ZFTP_SESSION zfopen params zftp params params1 params2 A B r 1 C ' D \ A F curcontext :zf local curcontext :zfhere zfcd PWD A f dC A .A + t A B C f L D C F t A B L F t A C 6 61 A C f L A G
A B <
% L q A B C <
C A B <
) P u A p
A " F <
= A e A g < A % A F 9 A F A C F A F % A F y A , C & Ҭ D X A 4 f Ҭ < T l A 0 F Ҭ ( D ` A , & Ҭ @ \
$ A b a A " & PR r
A R
y < A $ &
A
F
A L 4 m \
\ Hz u \ l \ l \ \ u A (
@ \ `z D A $
C \ l T <
A
\ \ D ` A 0
F A ( A 0 Q A > + z A ( ' - P q A "
f A f % + A " @2
E C f h E A A 4 C f - u \ A C F emulate zmodload zsh/net/tcp return zsh/zftp zftp zsh/zutil local zstyle :zftp:* progress :zftp:* progress :zftp:* update :zftp:* :zftp:* titlebar :zftp:* titlebar true functions chpwd /dev/null :zftp:* :zftp:* typeset zfconfig lastsession default alias zfcdnoglob zfcd zfgetnoglob zfget zflsnoglob zfls zfdirnoglob zfdir zfugetnoglob zfuget autoload zfanon zfautocheck zfcd zfcd_match zfcget zfclose zfcput autoload zfdir zffcache zfgcp zfget zfget_match zfgoto zfhere zfinit zfls autoload zfmark zfopen zfparams zfpcp zfput zfrglob zfrtime zfsession autoload zfstat zftp_chpwd zftp_progress zftransfer zftype zfuget zfuput _patcomps _patcompsr_zf compctl setopt completealiases compctl p[1] (open params user login type ascii binary mode put putat
get getat append appendat ls dir local remote mkdir rmdir delete
close quit) w[1,cd][1,ls][1,dir][1,rmdir] zfcd_match W[1,get*] w[1,delete][1,remote] w[1,open][1,params] hosts w[1,session] ${$(zftp session):#$ZFTP_SESSION} compctl zfcd_match compctl compctl compctl $(awk '{print $1}' ${ZFTP_BMFILE:-${ZDOTDIR:-$HOME}/.zfbkmarks}) W[1,-*n*] $(awk -F, 'NR > 2 { print $1 }' ~/.ncftp/bookmarks) compctl ${$(zftp session):#$ZFTP_SESSION} zftransfer_match local sess 1%%: oldsess ZFTP_SESSION sess zftp session zfget_match 1: oldsess session reply sess:reply compctl $(zftp session) C[0,*:*] zftransfer_match zftransfer return A f dC A B r ! Q C ' d | A VA R r + r + .A A F 0 $ A f ` b <+ emulate curcontext :zf local curcontext :zfls HOME HOME/ ~1#HOME zfautocheck zftp A C f dC A F < A B r q ' A F A C g A G A 1 A ! A $ N A f T A *" R r i r i C & .A q A A A 4 A f <۔ U A F A # A F < A C F A
1 A (
i .A ) Q A *
e .A + A F < A F A @ A f <۔ U emulate setopt extendedglob curcontext :zf local curcontext :zfmark ZFTP_BMFILE:ZDOTDIR:HOME/.zfbkmarks typeset bkmarks line ZFTP_BMFILE read line :blank: :blank:# continue bkmarksline%% line#* ZFTP_BMFILE # == 0 kobkmarks print line bkmarks[line] return # > 1 Usage: zfmark [bookmark] ZFTP_HOST bkmarks1 ZFTP_USER@ZFTP_HOST:ZFTP_PWD zfconfiglastloc_ZFTP_SESSION zfconig[lastuser_ZFTP_SESSION]@zfconfig[lastloc_ZFTP_SESSION] No current or recent ZFTP session to bookmark. ZFTP_BMFILE A C f dC A B r ! Q ' d | A dzK" A N A f z A " r ) " F < U F A F A " 4 F h A 1 .A r +9|; ,A ,A K" .A A 5 1 .A r A A B f \ p <+ F A .A r $+ A T C 1 A C F \ A F \ A F A " ( "
F <+ ( A
1 A
F \ p A " +
F \ A " ,
) F A C F A 4 C 1 A 1
U A F h U emulate curcontext :zf local curcontext :zfopen opt_1 setparams getopts opt print zfopen: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) 1ftp:// 1/ 1%%/ opt_1 zftp open login close # > 0 zfparams ZFTP_HOST setparams dir zfcd A f dC A B r ! Q C ' d | A 5 1 NA p2 r $+ r + A ( C ' d E+Z ,A
+Z A "
F A H , +Z ( L t A C F Q A A " ) A
A M A
1 .A r + q .A q .A A f l <+ emulate curcontext :zf local curcontext :zfparams sess ZFTP_SESSION zfconfigfcache_sess key unset fcache lastloc lastdir curdir otherdir otherargs lastuser zfconfig[key_sess] # > 0 # < 2 # < 3 ? ?Password on 1: ?Password for 2##\? on 1: zftp params A f dC A B r ! Q ' d | A g dk+{b A g A B & F L A V 0 vA R $+ R r + i r + |; A C ' d K" ,A A VA R r r .A K" A "B `2
|; K" ] A p
, {b <+ ,A ! k+ } A B $ f " $ A % VA % R r + r + .A &
A
$ + f + ,A ) + A
vA * 2 2 r E r q A $ + f .A - + A " 1
C & < A F L ] emulate curcontext :zf local curcontext :zfpcp integer stat do_close zfautocheck return ... argv1 argv1 dir HOME HOME/ ~dir#HOME dir/ dirloc:t zftp rem loc HOME/ ~2#HOME ZFTP_CODE ZFTP_REPLY Is a directory 2/1:t do_close zfclose stat A C f dC A B r ! Q ' d | A g dz A C 4 A A f L z A " r m " F F A C F , A A " t F A C & A k 8 A {bk+ A G 8 X A % l A 3 {b <+ A A
A l A A C % A & q .A k+ q .A k+ % A $ f H ] A " q X + A | 1 A F H ,A A B X A & A A A f H D ] A C F A " q X + A F $ A F D a A F <+ ,A @ + A " B & D A F d emulate curcontext :zf local curcontext :zfput opt_r integer stat do_close abort getopts opt print zfget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck zfput_sub local subdirs integer stat subdirs opt_r loc subdirs subdirs continue loc:t zftp rem ? test abort stat break #subdirs && ! abort mkdir subdirs1 zfput_sub subdirs1/ND shift subdirs return stat zfput_sub stat do_close zfclose return stat A f dC A C F < A ( p K" J A " C 1 ` A F A \ C
1 nA ! 2 `R
A F < A t M .A & A t + A , $ + 0 f b A F X m :q A 5 ' VA , 2 r a r 9|; A .
1 .A . r .A 0 K" q .A 2 K" z ,A 4 A x
C + # A , 0 $ + f b A X q A C , E A G p A C & ,A > A ,
A C F T i emulate setopt extendedglob local nondir files zfrglob zstyle curcontext remoteglob zfrglob eval pat$1 pat zfrglob return zftp pat /dev/null eval 1=($(<$1)) <<<'temporary file' ZFTP_SYSTEM UNIX pat / pat%/ nondir pat/ zftp dir /dev/null files <$1 <<<'temporary file' files files:t local fcache_name zffcache nondir pat Pfcache_name eval 1=(${files:/^${~nondir}}) A f dC A C F D A < x s{j BsKj+ A g x L ( A 1 A
+ .A + q A C m A "
A " R F ,A = ,A s{j i ,A ,A B ,A sKj ,A + % A X
, Y A ) .A $ E T A ! M ,A ' E ,A ) A
E A + emulate zmodload zsh/datetime local time gmtime loctime year mday tmpdate days_since_epoch zftp remote $2 2>/dev/null time time2 return time1,4 time5,6 time7,8 time9,10 time11,12 time13,14 1970..( year - 1) strftime tmpdate %Y/%m/%d y/12/31 days_since_epoch strftime "%j" $tmpdate tmpdate %Y/%m/%d year/mon/( mday - 1 ) days_since_epoch ( sec + 60 * ( min + 60 * (hr + 24 * days_since_epoch)) ) %Y%m%d%H%M%S EPOCHSECONDS touch time1,12.time13,14 A C f dC A B r ! Q ' d | A ( dz 4 A A f T uz A " r " F F H A F d y .A
4 A " F A C 1 vA R $+ 2 @2
A R e $+ A F A F H A A
- A G d H A C , H ] A f t A T 1 .A r A F A & Q A !
A F $ 8 A C A %
Y A 1 .A & u A ' d 5 A
f $ l u ,A ) A
F A F M A C F H A C 1 A 1
e A ( ' d c+" E+Z ,A 3 +Z % A " 4
F A H
C , +Z
,
P
x A
F
A f $ - A C & H A " <
A F H e A P .A > r $+ A F } A & H A ' d A f $ D + A P C .A E e ,A F A &
$ emulate curcontext :zf local curcontext :zfsession opt_l opt_v opt_o opt_d hadopts getopts :lovd opt print zfsession: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) hadopts opt_d Usage: zfsession ( [ -lvod ] | session ) opt_v sess zftp session (r.15.. ..:.)sess\tzfconfig[lastloc_sess]:-not connected sess ZFTP_SESSION * opt_l zftp session opt_o zfconfiglastsession ZFTP_SESSION cursession ZFTP_SESSION session zfconfiglastsession cursession ZFTP_SESSION zfsession: no previous session. 1:ZFTP_SESSION zfconfigfcache_del key unset fcache lastloc lastdir curdir otherdir otherargs lastuser zfconfig[key_del] rmsession del hadopts stat ZFTP_SESSION oldsession ZFTP_SESSION:default session ZFTP_SESSION oldsession zfconfiglastsession zftp_chpwd A f P A F h A B
r ' < A 8 G J \ Ez E p A C N A C f z A " r " F F P A F l A " C F A "
I F A C [ O1 A
A F A F m A F A "
C F A A = 91 A
A F A "
= F u A C F A f t = A 1 .A r L A F Q .A ! r A F q A F A f t 1 A 1 .A ' r } A
F Q .A ) r A
F q A F q A F ) q A F } A " 3
F
E .A 5 \ A " 9
C F A A F A F A f t } A C L
( A -
=
0
} A f t
0
A C f t
0 A f t
0 ; A C f t 5 A & A FA J `2
r
A F $ A F A ' l A f A F P setopt localoptions unset unsetopt ksharrays curcontext :zf local curcontext :zfstat stat opt_v getopts opt print zfstat: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) ZFTP_SESSION Session:\tZFTP_SESSION ZFTP_HOST Host:\t\tZFTP_HOST Port:\t\tZFTP_PORT IP:\t\tZFTP_IP ZFTP_SYSTEM System type:\tZFTP_SYSTEM ZFTP_USER User:\t\tZFTP_USER ZFTP_ACCOUNT Account:\tAFTP_ACCOUNT Directory:\tZFTP_PWD Transfer type:\t ZFTP_TYPE Image ZFTP_TYPE Ascii Unknown Transfer mode:\t ZFTP_MODE Stream ZFTP_MODE Block Unknown No user logged in. Not connected. zfconfiglastloc_ZFTP_SESSION Last location:\tzfconfig[lastloc_ZFTP_SESSION] ZFTP_REPLY Last reply:\tZFTP_REPLY Verbosity:\tZFTP_VERBOSE Timeout:\tZFTP_TMOUT Preferences:\t i = 1 i <= #ZFTP_PREFS i++ ZFTP_PREFSi pP Passive sS Sendport dD Dumb ZFTP_PREFS[i]??? ZFTP_HOST opt_v zfautocheck Status of remote server: ZFTP_VERBOSE zftp quote STAT stat A .A ) A ' A " @2
a f k 4 ,A A C F H $ A H H 1 A R m A " @2
f k 4 ,A ) A " & 5q A "
) ,A ) ,A A G A ( $ # A " @2 A C ' A A " " " A !
0 9 A f Xr q 0 $ A f Xr = ZFTP_PWD zfconfiglastdir_ZFTP_SESSION local curdir zfconfigcurdir_ZFTP_SESSION curdir curdir curdir zfconfigotherargs_ZFTP_SESSION zffcache ZFTP_USER zfotherdir zfotherdir zfotherdir zfconfiglastdir_ZFTP_SESSION zstyle :zftpcurcontext chpwd zfconfiglastloc_ZFTP_SESSION ZFTP_HOST:ZFTP_PWD zfconfiglastuser_ZFTP_SESSION ZFTP_USER args :zftpcurcontext titlebar zfconfiglastloc_ZFTP_SESSION str %m: %~ str TERM suncmd print \033]lstr\033\ xterm rxvt dtterm Eterm kterm \033]2;str\a A G 0 A L i A L 0 0 A &" pR r % A C F ` A Z Z1 A
} A " } 4; " " & ` A ' A C 3 - &A ! A ' , A A , $ vA # 2 r % p2 r A @ A $ A C F l A ' 0 P u A
' A
C f lt q q A
f l t ] q A f l t ) A VA 0 2 r } 4; r A C F , A & l q A
G \ < | local style update zstyle :zftpcurcontext progress :zftpcurcontext style none return ZFTP_TRANSFER +zftpseconds SECONDS - zftpseconds < update size ZFTP_TSIZE:ZFTP_SIZE size:0 frac ( ZFTP_COUNT * 100 / size )% +COLUMNS COLUMNS ! +zftpseconds print ZFTP_FILE (size bytes): ZFTP_TRANSFER integer maxwidth ( COLUMNS - 7 ) width ( ZFTP_COUNT * maxwidth / size ) \r%S(l:width:):-%s(l:maxwidth-width:):-: frac%% \rZFTP_FILE (size bytes): ZFTP_TRANSFER frac \rZFTP_FILE: ZFTP_TRANSFER ZFTP_COUNT +zftpseconds unset zftpseconds typeset zftpseconds SECONDS A f dC A B r ! Q ' d | A , C d 8 Y A \
1 &A $+ A F A C F ` A 1 .A r +9; ,A } .A A F A 1 .A r +9; ,A ! .A E A F e A FA `R R r |; .A A `
.A r 5 Q A F m A C F ` A f $ 8 5 A B C & X C F ` A G d A C A FA . `2
- - H A g d \ A x + * A , $ + L f 1 A t I A " 4 r 4 A c ) A C T 4 X A f l+: A f l A " & f l A ' $ < + A f l P q A F emulate curcontext :zf local curcontext :zftransfer sess1 sess2 file1 file2 oldsess ZFTP_SESSION print Usage: zftransfer sess1:file1 sess2:file2 return 1%%: 1: sess1:ZFTP_SESSION 2%%: 2: sess2:ZFTP_SESSION file2 file2file1:t sess1 sess2 zftransfer: must use two distinct sessions. zftp session zfautocheck style zstyle :zftp:zftransfer progress style none ZFTP_TSIZE array zftp remote file1 /dev/null array <$1 <<<'temporary file' array ZFTP_TSIZE array1 zstyle progress none zftp file1 session sess2 zfautocheck file2 local stat session oldsess return stat A G A B r - ] ' p A F $ A ; A ,A A 1 .A
r I J A F ` y A F Q .A
r I
A F ` A F q A C F q A 1 .A + y .A
VA R + + .A J A C F ` = A F A f I local type curcontext :zf curcontext :zftype zfautocheck # == 0 zftp type type print Current type is image (binary) return Current type is ASCII iascii iimage ibinary Type not recognised: 1 zftp A f dC A B r ! Q C ' d | A $ d{bk+ A , d $ <z \ t A g A " O A ' kK + A f t 1 A f tj: DA ( A f t A F ` A f t A C F t A F A N A f <z A " 1 r U " C F h C F A F - A " 4 `
F A B
&
F A l ̬ $ <+ A : VA : R E i .A ; $ A < C 1 .A = A F 0 $ A 1 A @ Q A C , k+ ,A B {b ,A C A % A X C 1 A E
A ; A $ + f - A @ e A $ + f ,A + A e A C
.A M r ] A F x A F l
Q .A P r ] A C F x ,A R
A &
A " U r
E C &
` A ( D 1 A V
A NA X p2 E y A " Y
E C &
` A F x A f x t A A f $ 'q A 0 % &A ` 9 A C .A a y
A " b
E &
` A F x m A f x t A C f $ A " i r
E C f xzr .A j $ r q A " n r
E
x*r - A .A p r A A C A C - f X+: m A D 1 .A r r A - m q .A w
+ A " & A C F l = emulate curcontext :zf local curcontext :zfuget locstats remstats doit rstat remlist opt_v opt_s opt_G opt_t integer stat do_close zfuget_print_time local print tim[1,4]/tim[5,6]/tim[7,8] tim[9,10]:tim[11,12].tim[13,14] zfuget_print print \nremote rem ( zfuget_print_time remstats2 , remstats[1] bytes)\nlocal loc ( zfuget_print_time locstats2 , locstats[1] bytes) getopts :vsGt opt print zfuget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck remlist remlist HOME remlist HOME/ ~remlist#HOME opt_n zfrglob #remlist remlist rem:t doit remstats loc zftp local loc locstats <$1 remote rem rstat remstats <<<'temporary file' rstat print Server does not implement full command set required. return File not found on server: rem stat continue opt_v zfuget_print locstats[1] != remstats[1] locstats2 remstats2 opt_s Local file loc more recent than remote, but sizes are different. Transfer anyway [y/n]? read doit remstats2 Local file loc has same size as remote, but local file is older. Transfer anyway [y/n]? transferring file loc doit zftp rem opt_t zfrtime remstats2 do_close zfclose stat A C f dC A B r ! Q ' d | A $ d{bk+ A C d $z < T A g l A O A ' kK + A f t 1 A f tj: DA H A f t A F ` A f t A C F ` u A F A N A f z A " # r " F F L A F h } A " & F A B
& D
F L A H
.A * r u9; A F A 0 , k+ <+ ,A 0 {b I ,A 1 l A % A p
&A 3 A
F ,A 5 A
& ( A S ; A $ + f - A @ e A $ + f ,A + A e
9 A a
.A ? r
A F
A C F
Q .A B r
A " C r
*r K A " E r C & A ( D 1 A F 9 A NA H p2
A " I C & A F
9 A f
t
A f 'q A 0 % &A P A C .A Q
A " R
& A F
A f
t A C f A " Y r C f
zr .A Z r A d 1 .A ^ r A B $ f _ + A " c & @ A C F a emulate curcontext :zf local curcontext :zfuput locstats remstats doit rstat opt_v opt_s integer stat do_close zfuput_print_time local print tim[1,4]/tim[5,6]/tim[7,8] tim[9,10]:tim[11,12].tim[13,14] zfuput_print print \nremote rem ( zfuput_print_time remstats2 , remstats[1] bytes)\nlocal loc ( locstats2 , locstats[1] bytes) getopts opt print zfuget: bad option: -OPTARG return eval opt_opt=1 OPTIND > 1 shift ( OPTIND - 1 ) zfautocheck ZFTP_VERBOSE Messages with code 550 are harmless. rem:t doit remstats loc loc: file not found stat continue zftp local loc locstats <$1 remote rem rstat remstats <<<'temporary file' rstat print Server does not implement full command set required. return opt_v file loc zfuput_print locstats[1] != remstats[1] locstats2 remstats2 opt_s Remote file rem more recent than local, but sizes are different. Transfer anyway [y/n]? read doit remstats2 Remote file rem has same size as local, but remote file is older. Transfer anyway [y/n]? transferring doit zftp rem stat do_close zfclose stat
Mini Shell