Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
zfanon	1.86 KB	-rw-r--r--
zfautocheck	1.29 KB	-rw-r--r--
zfcd	1.89 KB	-rw-r--r--
zfcd_match	1.37 KB	-rw-r--r--
zfcget	2.01 KB	-rw-r--r--
zfclose	90 B	-rw-r--r--
zfcput	2.4 KB	-rw-r--r--
zfdir	3.25 KB	-rw-r--r--
zffcache	662 B	-rw-r--r--
zfgcp	1.91 KB	-rw-r--r--
zfget	1.73 KB	-rw-r--r--
zfget_match	1.5 KB	-rw-r--r--
zfgoto	2.2 KB	-rw-r--r--
zfhere	181 B	-rw-r--r--
zfinit	2.49 KB	-rw-r--r--
zfls	208 B	-rw-r--r--
zfmark	1.41 KB	-rw-r--r--
zfopen	1.16 KB	-rw-r--r--
zfparams	687 B	-rw-r--r--
zfpcp	1.27 KB	-rw-r--r--
zfput	1.41 KB	-rw-r--r--
zfrglob	2.09 KB	-rw-r--r--
zfrtime	1.33 KB	-rw-r--r--
zfsession	1.61 KB	-rw-r--r--
zfstat	1.98 KB	-rw-r--r--
zftp_chpwd	1.35 KB	-rw-r--r--
zftp_progress	2.03 KB	-rw-r--r--
zftransfer	1.53 KB	-rw-r--r--
zftype	553 B	-rw-r--r--
zfuget	3.81 KB	-rw-r--r--
zfuput	2.59 KB	-rw-r--r--

Code Editor : zfanon

# function zfanon {

emulate -L zsh

[[ $curcontext = :zf* ]] || local curcontext=:zfanon
local opt opt_1 dir

while getopts :1 opt; do
  [[ $opt = "?" ]] && print "zfanon: bad option: -$OPTARG" >&2 && return 1
  eval "opt_$opt=1"
done
(( OPTIND > 1 )) && shift $(( OPTIND - 1 ))

if [[ -z $EMAIL_ADDR ]]; then
  # Exercise in futility.  There's a poem by Wallace Stevens
  # called something like `N ways of looking at a blackbird',
  # where N is somewhere around 0x14 to 0x18.  Now zftp is
  # ashamed to present `N ways of looking at a hostname'.
  local domain host
  # First, maybe we've already got it.  Zen-like.
  if [[ $HOST = *.* ]]; then
    # assume this is the full host name
    host=$HOST
  elif [[ -f /etc/resolv.conf ]]; then
    # Next, maybe we've got resolv.conf.
    domain=${${=${(M)${(f)"$(</etc/resolv.conf)"}:#domain*}}[2]}
    [[ -n $domain ]] && host=$HOST.$domain
  fi
  # Next, maybe we've got nslookup.  May not work on LINUX.
  [[ -z $host ]] && host=${${=${(M)${(f)"$(nslookup $HOST 2>/dev/null)"}:#Name:*}}[2]}
  if [[ -z $host ]]; then
    # we're running out of ideas, but this should work.
    # after all, i wrote it...
    # don't want user to know about this, too embarrassed.
    local oldvb=$ZFTP_VERBOSE oldtm=$ZFTP_TMOUT
    ZFTP_VERBOSE=
    ZFTP_TMOUT=5
    if zftp open $host >& /dev/null; then
      host=$ZFTP_HOST
      zftp close $host
    fi
    ZFTP_VERBOSE=$oldvb
    ZFTP_TMOUT=$oldtm
  fi
  if [[ -z $host ]]; then
    print "Can't get your hostname.  Define \$EMAIL_ADDR by hand."
    return 1;
  fi
  EMAIL_ADDR="$USER@$host"
  print "Using $EMAIL_ADDR as anonymous FTP password."
fi

if [[ $1 = */* ]]; then
  1=${1##ftp://}
  dir=${1#*/}
  1=${1%%/*}
fi

if [[ $opt_1 = 1 ]]; then
  zftp open $1 anonymous $EMAIL_ADDR || return 1
else
  zftp params $1 anonymous $EMAIL_ADDR
  zftp open || return 1
fi

if [[ -n $dir ]]; then
  zfcd $dir
fi
# }

${this.title}

Code Editor : zfanon