Return to uuto CVS log

Up to [Research Unix] / researchv10no / cmd / uucp

Annotation of researchv10no/cmd/uucp/uuto, revision 1.1

1.1     ! root        1: #      @(#)uuto        1.5
        !             2: a=""
        !             3: f=""
        !             4: d=""
        !             5: sub=""
        !             6: mysys=`uuname -l`
        !             7: mesg="Usage: $0 [-m -p] files remote!user"
        !             8: if test  $# -lt 1
        !             9:        then
        !            10:                echo $mesg
        !            11:                exit
        !            12: fi
        !            13: trap "trap '' 0; exit" 0 1 2 13 15
        !            14: copy=0
        !            15: #      get options
        !            16: while true
        !            17: do
        !            18:        case $1 in
        !            19:         -m)    a="$a $1" sub="$sub -m" ;;
        !            20:         -p)    copy=1 sub="$sub -p" ;;
        !            21:         -*)    echo $mesg; exit;;
        !            22:         *)     break ;;
        !            23:        esac
        !            24:        shift
        !            25: done
        !            26: #      get file names
        !            27: while test $#  -gt 1
        !            28: do
        !            29:        if test -d "$1" -a {"$1" = "." -o "$1" = ".."}
        !            30:                then shift; continue
        !            31:        elif test -r "$1" -a -f "$1"
        !            32:                then f="$f $1"
        !            33:        elif test -r "$1" -a -d "$1"
        !            34:                then d="$d $1"
        !            35:        elif test "$UUP" = ""
        !            36:                then echo "$1: file/directory not found"; exit
        !            37:        fi
        !            38:        shift
        !            39: done
        !            40: #      the recipient arg: remote!user
        !            41: remote=`expr $1 : '\(.*\)!'`
        !            42: user=`expr $1 : '.*!\(.*\)' \| $1`
        !            43: if test 1 -eq "$copy"
        !            44:        then a="$a -C"
        !            45: fi
        !            46:        a="$a -d -n$user"
        !            47: error=1
        !            48: if test -n "$d" -a -n "$user"
        !            49: then
        !            50:        for i in $d
        !            51:        do
        !            52:                ( cd $i; UUP="$UUP/$i"
        !            53:                for j in `ls -a`
        !            54:                do
        !            55:                        if test "$j" = "." -o "$j" = ".."; then continue;
        !            56:                        else
        !            57:                        FILES="$FILES $j"
        !            58:                        fi
        !            59:                done
        !            60:                if test "$FILES"; then
        !            61:                uuto $sub $FILES $1;fi)
        !            62:        error=0
        !            63:        done
        !            64: fi
        !            65: if test -n "$f" -a -n "$user"
        !            66: then
        !            67:        uucp $a $f $remote!~/receive/$user/$mysys$UUP/
        !            68:        error=0
        !            69: fi
        !            70: if test $error = 1
        !            71: then 
        !            72:        echo $mesg
        !            73:        exit 2
        !            74: fi

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.