source: trunk/essentials/app-shells/bash/examples/scripts.v2/frcp@ 3263

#! /bin/bash
#
# original from:
#
# @(#) frcp.ksh 2.2 93/11/14
# 92/06/29 john h. dubois iii ([email protected])
# 92/10/14 Cleaned up, improved, added -d and -r options
# 92/11/11 Made work with a dest of '.'
# 93/07/09 Added -l and -n options, & login as anonymous if no .netrc entry
# 93/11/14 Use either passwd or password in .netrc, since ftp does.
#
# conversion to bash v2 syntax by Chet Ramey
#
# frcp: ftp front end with rcp-like syntax.
# Note: requires any machine names given to be listed with
#       user and password in .netrc.  If not, anonymous FTP is
#       done.
#
# full path to ftp binary
if [ -x /usr/bin/ftp ]; then
        FTP=/usr/bin/ftp;
elif [ -x /usr/ucb/ftp ]; then
        FTP=/usr/ucb/ftp
else
        FTP=ftp
fi

istrue()
{
        test 0 -ne "$1"
}
isfalse()
{
        test 0 -eq "$1"
}

# For each filename given, put the filename in filename[n]
# and the machine it is on in machine[n].
function SplitNames {
    typeset file
    typeset -i i=1

    unset filename[*] machine[*]
    for file; do
        case "$file" in
        *:*) machine[i]=${file%%:*} ;;
        *)   machine[i]=$LocalMach ;;
        esac
        filename[i]=${file#*:}
        let i+=1
    done
}