| 1 | #! /bin/bash
|
|---|
| 2 | #
|
|---|
| 3 | # original from:
|
|---|
| 4 | #
|
|---|
| 5 | # @(#) frcp.ksh 2.2 93/11/14
|
|---|
| 6 | # 92/06/29 john h. dubois iii ([email protected])
|
|---|
| 7 | # 92/10/14 Cleaned up, improved, added -d and -r options
|
|---|
| 8 | # 92/11/11 Made work with a dest of '.'
|
|---|
| 9 | # 93/07/09 Added -l and -n options, & login as anonymous if no .netrc entry
|
|---|
| 10 | # 93/11/14 Use either passwd or password in .netrc, since ftp does.
|
|---|
| 11 | #
|
|---|
| 12 | # conversion to bash v2 syntax by Chet Ramey
|
|---|
| 13 | #
|
|---|
| 14 | # frcp: ftp front end with rcp-like syntax.
|
|---|
| 15 | # Note: requires any machine names given to be listed with
|
|---|
| 16 | # user and password in .netrc. If not, anonymous FTP is
|
|---|
| 17 | # done.
|
|---|
| 18 | #
|
|---|
| 19 | # full path to ftp binary
|
|---|
| 20 | if [ -x /usr/bin/ftp ]; then
|
|---|
| 21 | FTP=/usr/bin/ftp;
|
|---|
| 22 | elif [ -x /usr/ucb/ftp ]; then
|
|---|
| 23 | FTP=/usr/ucb/ftp
|
|---|
| 24 | else
|
|---|
| 25 | FTP=ftp
|
|---|
| 26 | fi
|
|---|
| 27 |
|
|---|
| 28 | istrue()
|
|---|
| 29 | {
|
|---|
| 30 | test 0 -ne "$1"
|
|---|
| 31 | }
|
|---|
| 32 | isfalse()
|
|---|
| 33 | {
|
|---|
| 34 | test 0 -eq "$1"
|
|---|
| 35 | }
|
|---|
| 36 |
|
|---|
| 37 | # For each filename given, put the filename in filename[n]
|
|---|
| 38 | # and the machine it is on in machine[n].
|
|---|
| 39 | function SplitNames {
|
|---|
| 40 | typeset file
|
|---|
| 41 | typeset -i i=1
|
|---|
| 42 |
|
|---|
| 43 | unset filename[*] machine[*]
|
|---|
| 44 | for file; do
|
|---|
| 45 | case "$file" in
|
|---|
| 46 | *:*) machine[i]=${file%%:*} ;;
|
|---|
| 47 | *) machine[i]=$LocalMach ;;
|
|---|
| 48 | esac
|
|---|
| 49 | filename[i]=${file#*:}
|
|---|
| 50 | let i+=1
|
|---|
| 51 | done
|
|---|
| 52 | }
|
|---|
| 53 |
|
|---|
| 54 | function verboseprint {
|
|---|
| 55 | echo "$@"
|
|---|
| 56 | echo "$@" 1>&2
|
|---|
| 57 | }
|
|---|
| 58 |
|
|---|
| 59 | function MakeDir {
|
|---|
| 60 | OFS=$IFS
|
|---|
| 61 | local IFS=/ dir component
|
|---|
| 62 |
|
|---|
| 63 | case "$1" in
|
|---|
| 64 | /*) ;;
|
|---|
| 65 | *) dir=.
|
|---|
| 66 | esac
|
|---|
| 67 | set -- $1
|
|---|
| 68 | IFS=$OFS
|
|---|
| 69 | for component; do
|
|---|
| 70 | dir=$dir/$component
|
|---|
| 71 | if [ ! -d "$dir" ]; then
|
|---|
| 72 | if mkdir "$dir"; then :; else
|
|---|
| 73 | echo "Could not make directory $dir." >&2
|
|---|
| 74 | return 1
|
|---|
| 75 | fi
|
|---|
| 76 | fi
|
|---|
| 77 | done
|
|---|
| 78 | return 0
|
|---|
| 79 | }
|
|---|
| 80 |
|
|---|
| 81 | lastisdot ()
|
|---|
| 82 | {
|
|---|
| 83 | case "$1" in
|
|---|
| 84 | */.|*/..) return 0;;
|
|---|
| 85 | *) return 1;;
|
|---|
| 86 | esac
|
|---|
| 87 | }
|
|---|
| 88 |
|
|---|
| 89 | # CopyFiles: issue ftp(TC) commands to copy files.
|
|---|
| 90 | # Usage: CopyFiles [sourcemachine:]sourcepath ... [destmachine:]destpath
|
|---|
| 91 | # Global vars:
|
|---|
| 92 | # Uses LocalMach (should be name of local machine)
|
|---|
| 93 | # Sets global arrs machine[]/filename[]
|
|---|
| 94 | function CopyFiles {
|
|---|
| 95 | unset machine[*] filename[*]
|
|---|
| 96 |
|
|---|
| 97 | SplitNames "$@" # split names into filename[1..n] and machine[1..n]
|
|---|
| 98 |
|
|---|
| 99 | local DestMach=${machine[$#]} # Machine to copy files to
|
|---|
| 100 | local DestPath=${filename[$#]} # Destination file/dir
|
|---|
| 101 |
|
|---|
| 102 | unset machine[$#] filename[$#]
|
|---|
| 103 |
|
|---|
| 104 | [ -z "$DestPath" ] && DestPath=. # dest was given as machine:
|
|---|
| 105 |
|
|---|
| 106 | # Try to determine if destination should be a directory
|
|---|
| 107 | # so that it can be forced to be a directory.
|
|---|
| 108 |
|
|---|
| 109 | case "$DestPath" in
|
|---|
| 110 | */) ;; # don't add / if trailing / already present
|
|---|
| 111 | *) if [ $# -gt 2 ] || # if more than two args given, last must be a dir
|
|---|
| 112 | # If dest in on local machine, check whether it is a directory
|
|---|
| 113 | [ $DestMach = $LocalMach ] && [ -d "$DestPath" ] ||
|
|---|
| 114 | # If dest ends with . or .., it is a directory
|
|---|
| 115 | lastisdot "$DestPath"
|
|---|
| 116 | then
|
|---|
| 117 | DestPath=$DestPath/
|
|---|
| 118 | fi ;;
|
|---|
| 119 | esac
|
|---|
| 120 |
|
|---|
| 121 | # If one of the above tests made us think dest is a directory,
|
|---|
| 122 | # but it isn't, complain
|
|---|
| 123 | case "$DestPath" in
|
|---|
| 124 | */) if [ "$DestMach" = "$LocalMach" ] && [ ! -d "$DestPath" ]; then
|
|---|
| 125 | echo "Destination is not a directory." 1>&2
|
|---|
| 126 | exit 1
|
|---|
| 127 | fi ;;
|
|---|
| 128 | esac
|
|---|
| 129 |
|
|---|
| 130 | DoCopy "$DestMach" "$DestPath"
|
|---|
| 131 | }
|
|---|
| 132 |
|
|---|
| 133 | # Usage: OpenMachine machine-name
|
|---|
| 134 | # Emits login sequence or doesn't, depending on .netrc file and global
|
|---|
| 135 | # variables anon and noanon
|
|---|
| 136 | OpenMachine ()
|
|---|
| 137 | {
|
|---|
| 138 | local machine=$1 netrc=$HOME/.netrc user= password=
|
|---|
| 139 |
|
|---|
| 140 | if isfalse $anon && [ -r $netrc ]; then
|
|---|
| 141 | set -- $(gawk '
|
|---|
| 142 | /machine (.* )?'"$machine"'($| )/,/^ *$/ {
|
|---|
| 143 | Fields[$1] = $2
|
|---|
| 144 | if ("passwd" in Fields)
|
|---|
| 145 | Fields["password"] = Fields["passwd"]
|
|---|
| 146 | if ("login" in Fields && "password" in Fields) {
|
|---|
| 147 | print Fields["login"] " " Fields["password"]
|
|---|
| 148 | exit
|
|---|
| 149 | }
|
|---|
| 150 | }
|
|---|
| 151 | ' $netrc )
|
|---|
| 152 | user=$1
|
|---|
| 153 | password=$2
|
|---|
| 154 | fi
|
|---|
| 155 | if [ -z "$password" ]; then
|
|---|
| 156 | if istrue $noanon; then
|
|---|
| 157 | echo "No .netrc entry for machine $machine" 1>&2
|
|---|
| 158 | exit 1
|
|---|
| 159 | fi
|
|---|
| 160 | user=anonymous
|
|---|
| 161 | password=$USER@$LocalMach
|
|---|
| 162 | fi
|
|---|
| 163 | verboseprint open $machine
|
|---|
| 164 | echo user $user "*******" 1>&2
|
|---|
| 165 | echo user $user $password
|
|---|
| 166 | }
|
|---|
| 167 |
|
|---|
| 168 | # Usage: DoCopy destination-machine destination-path
|
|---|
| 169 | # Copies the files in global arrs machine[]/filename[] to the given dest
|
|---|
| 170 | # Global vars:
|
|---|
| 171 | # Uses machine[], filename[], LocalMach, check
|
|---|
| 172 | DoCopy ()
|
|---|
| 173 | {
|
|---|
| 174 | local DestMach=$1
|
|---|
| 175 | local DestPath=$2
|
|---|
| 176 | local OpenMach # Machine that connection is currently open to
|
|---|
| 177 | local OWD=$PWD SourceMach SourceFile
|
|---|
| 178 | local FileName
|
|---|
| 179 | typeset -i i=1
|
|---|
| 180 |
|
|---|
| 181 | while [ $i -le ${#machine[*]} ]; do
|
|---|
| 182 | istrue $check && verboseprint "runique"
|
|---|
| 183 |
|
|---|
| 184 | SourceMach=${machine[i]}
|
|---|
| 185 | SourceFile=${filename[i]}
|
|---|
| 186 |
|
|---|
| 187 | DestFile=$DestPath
|
|---|
| 188 | # if DestPath is a dir,
|
|---|
| 189 | # add source filename to it without source path
|
|---|
| 190 | case "$DestFile" in
|
|---|
| 191 | */) DestFile=$DestFile${SourceFile##*/} ;;
|
|---|
| 192 | esac
|
|---|
| 193 |
|
|---|
| 194 | if [ $SourceMach = $LocalMach ]; then
|
|---|
| 195 | if [ $DestMach != "$OpenMach" ]; then
|
|---|
| 196 | OpenMachine $DestMach
|
|---|
| 197 | OpenMach=$DestMach
|
|---|
| 198 | fi
|
|---|
| 199 | verboseprint put $SourceFile $DestFile
|
|---|
| 200 | elif [ $DestMach = $LocalMach ]; then
|
|---|
| 201 | if istrue $check && [ -f "$DestFile" ]; then
|
|---|
| 202 | echo "$DestFile already exists." 1>&2
|
|---|
| 203 | continue
|
|---|
| 204 | fi
|
|---|
| 205 | # If destination is on local machine,
|
|---|
| 206 | # the dest will be a full dir/filename
|
|---|
| 207 | if istrue $createdirs; then
|
|---|
| 208 | MakeDir "${DestFile%/*}" || continue
|
|---|
| 209 | fi
|
|---|
| 210 | if [ $SourceMach != "$OpenMach" ]; then
|
|---|
| 211 | OpenMachine $SourceMach
|
|---|
| 212 | OpenMach=$SourceMach
|
|---|
| 213 | fi
|
|---|
| 214 | # If source filename has wildcards ([, ], *, ?) do an mget
|
|---|
| 215 | case "$SourceFile" in
|
|---|
| 216 | \[*\]|*\**|*\?*)
|
|---|
| 217 | verboseprint lcd "$DestFile"
|
|---|
| 218 | verboseprint mget "$SourceFile"
|
|---|
| 219 | verboseprint lcd $OWD ;;
|
|---|
| 220 | *) verboseprint get "$SourceFile" "$DestFile" ;;
|
|---|
| 221 | esac
|
|---|
| 222 | else
|
|---|
| 223 | echo "Neither source machine \"$SourceMach\" "\
|
|---|
| 224 | "nor destination machine \"$DestMach\" is local." 1>&2
|
|---|
| 225 | fi
|
|---|
| 226 | let i+=1
|
|---|
| 227 | done
|
|---|
| 228 | }
|
|---|
| 229 |
|
|---|
| 230 | # Start of main program
|
|---|
| 231 | name=${0##*/}
|
|---|
| 232 |
|
|---|
| 233 | if [ "$1" = -h ]; then
|
|---|
| 234 | echo \
|
|---|
| 235 | "$name: do ftp transfers using rcp-style parameters.
|
|---|
| 236 | Usage: $name <source> <destpath> or $name <source> [<source> ...] <destdir>
|
|---|
| 237 | At least one of <source> and <destpath> must be the local system.
|
|---|
| 238 | A remote filename is given as machinename:filename
|
|---|
| 239 | If remote filenames contain wildcards, they will be globbed on the remote
|
|---|
| 240 | machine. Make sure they are quoted when $name is invoked.
|
|---|
| 241 | If the invoking user's .netrc file (see ftp(TC)) contains an entry for the
|
|---|
| 242 | remote system with a login and password supplied, $name will log in using
|
|---|
| 243 | the given login and password. If not, $name will login in as user
|
|---|
| 244 | anonymous and with the user@localsystem as the password.
|
|---|
| 245 | Options:
|
|---|
| 246 | -c: check: do not overwrite files.
|
|---|
| 247 | -d: create directories as needed.
|
|---|
| 248 | -f: force: overwrite files (default).
|
|---|
| 249 | -h: print this help.
|
|---|
| 250 | -l: fail if there is no entry with login and password for the remote system,
|
|---|
| 251 | instead of logging in as anonymous.
|
|---|
| 252 | -n: log in as anonymous even if there is an entry for the remote system in
|
|---|
| 253 | the user's .netrc file.
|
|---|
| 254 | -r: read source/dest filename pairs from the standard input,
|
|---|
| 255 | one pair per line, and copy files accordingly."
|
|---|
| 256 | exit 0
|
|---|
| 257 | fi
|
|---|
| 258 |
|
|---|
| 259 | typeset -i check=0 createdirs=0 readinput=0 anon=0 noanon=0
|
|---|
| 260 |
|
|---|
| 261 | while getopts :cdflnr Option
|
|---|
| 262 | do
|
|---|
| 263 | case "$Option" in
|
|---|
| 264 | c) check=1;;
|
|---|
| 265 | d) createdirs=1;;
|
|---|
| 266 | f) check=0;;
|
|---|
| 267 | l) noanon=1;;
|
|---|
| 268 | n) anon=1;;
|
|---|
| 269 | r) readinput=1;;
|
|---|
| 270 | \?) echo "$OPTARG: invalid option."; exit 1;;
|
|---|
| 271 | esac
|
|---|
| 272 | done
|
|---|
| 273 |
|
|---|
| 274 | shift $((OPTIND-1))
|
|---|
| 275 |
|
|---|
| 276 | LocalMach=`hostname`
|
|---|
| 277 |
|
|---|
| 278 | if istrue $readinput; then
|
|---|
| 279 | while read line; do
|
|---|
| 280 | CopyFiles $line
|
|---|
| 281 | done | $FTP -nv
|
|---|
| 282 | else
|
|---|
| 283 | if [ $# -lt 2 ]; then
|
|---|
| 284 | echo "$name: Not enough arguments. Use -h for help." 1>&2
|
|---|
| 285 | exit
|
|---|
| 286 | fi
|
|---|
| 287 | CopyFiles "$@" | $FTP -nv
|
|---|
| 288 | fi
|
|---|
