Return to dist.sh CVS log

Up to [Research Unix] / researchv10no / cmd / odist / ape

Annotation of researchv10no/cmd/odist/ape/dist.sh, revision 1.1

1.1     ! root        1: #! /bin/sh -
        !             2: 
        !             3: umask 022
        !             4: 
        !             5: LDIR=%LDIR%
        !             6: SDIR=%SDIR%
        !             7: QPREFIX=Q.
        !             8: 
        !             9: PATH=$LDIR:/bin:/usr/bin:/usr/ucb:/usr/bsd
        !            10: export PATH
        !            11: 
        !            12: DEST=$LDIR/destinations
        !            13: 
        !            14: showq=0
        !            15: recv=0
        !            16: notify=0
        !            17: systems=
        !            18: usage='usage: dist [-q|-r] [system|-[Ff] file] [-n] [files...]'
        !            19: 
        !            20: while [ $# -gt 0 ]
        !            21: do
        !            22:        case "$1" in
        !            23:        -q)
        !            24:                showq=1
        !            25:                ;;
        !            26:        -r)
        !            27:                recv=1
        !            28:                ;;
        !            29:        -n)
        !            30:                notify=1
        !            31:                ;;
        !            32:        -[Ff])
        !            33:                if [ $# -lt 2 ]
        !            34:                then
        !            35:                        echo "$usage" 1>&2
        !            36:                        exit 1
        !            37:                fi
        !            38:                if [ x$1 = x-f -a -r "$2" ]
        !            39:                then
        !            40:                        systems=`cat "$2" 2>/dev/null`
        !            41:                elif [ -r $DEST/"$2" ]
        !            42:                then
        !            43:                        systems=`cat $DEST/"$2" 2>/dev/null`
        !            44:                else
        !            45:                        echo "dist: can't open '$2'" 1>&2
        !            46:                        exit 1
        !            47:                fi
        !            48:                shift
        !            49:                ;;
        !            50:        -*)
        !            51:                echo "dist: unknown flag '$1'" 1>&2
        !            52:                exit 1
        !            53:                ;;
        !            54:        *)
        !            55:                if [ "x$systems" != x ]
        !            56:                then
        !            57:                        break
        !            58:                fi
        !            59:                systems="$1"
        !            60:                ;;
        !            61:        esac
        !            62:        shift
        !            63: done
        !            64: 
        !            65: if [ $recv = 1 ]
        !            66: then
        !            67:        if [ x"$systems" = x ]
        !            68:        then
        !            69:                echo dist: no systems specified 1>&2
        !            70:                exit 1
        !            71:        else
        !            72:                for sys in $systems
        !            73:                do
        !            74:                        echo $sys:
        !            75:                        connect $sys transmit io receive || exit 1
        !            76:                done
        !            77:                exit 0
        !            78:        fi
        !            79: fi
        !            80: 
        !            81: if [ $showq = 1 ]
        !            82: then
        !            83:        if [ x"$systems" = x ]
        !            84:        then
        !            85:                showq
        !            86:                exit 0
        !            87:        else
        !            88:                for sys in $systems
        !            89:                do
        !            90:                        echo $sys:
        !            91:                        connect $sys showq i /bin/cat
        !            92:                done
        !            93:                exit 0
        !            94:        fi
        !            95: fi
        !            96: 
        !            97: if [ $# = 0 ]
        !            98: then
        !            99:        echo "$usage" 1>&2
        !           100:        exit 1
        !           101: fi
        !           102: 
        !           103: # construct spool directory
        !           104: for d in `echo $$ | awk '{for (i = 0; i < 1000; ++i) printf "%03d%d\n", i, $1}'`
        !           105: do
        !           106:        if [ ! -f $SDIR/$QPREFIX$d ]
        !           107:        then
        !           108:                dir=$QPREFIX$d
        !           109:                mkdir $SDIR/$dir && break
        !           110:                echo "dist: can't make spool directory" 1>&2
        !           111:                exit 1
        !           112:        fi
        !           113: done
        !           114: 
        !           115: data=$SDIR/$dir/data
        !           116: ctl=$SDIR/$dir/tempctl
        !           117: files=$SDIR/$dir/files
        !           118: 
        !           119: # use canonical system names.
        !           120: canon $systems | awk '{for (i = 1; i <= NF; ++i) printf "%d %s\n", ++n, $i}' > $ctl
        !           121: 
        !           122: mkpkg "$@" > $data
        !           123: 
        !           124: pwd=`pwd`
        !           125: for f in "$@"
        !           126: do
        !           127:        case "$f" in
        !           128:        -*)     # flag to mkpkg
        !           129:                ;;
        !           130:        /*)
        !           131:                echo "$f"
        !           132:                ;;
        !           133:        *)
        !           134:                echo "$pwd/$f"
        !           135:                ;;
        !           136:        esac
        !           137: done | sort > $files
        !           138: 
        !           139: # rename the ctl file to its real name; at this point the package
        !           140: # is now available for shipment.
        !           141: mv $ctl $SDIR/$dir/ctl
        !           142: 
        !           143: # supersede old jobs containing the same files
        !           144: cd $SDIR
        !           145: for d in $QPREFIX*
        !           146: do
        !           147:        test $d = $dir && continue
        !           148:        test -w $d || continue
        !           149:        if [ `comm -23 $d/files $dir/files | wc -c` = 0 ]
        !           150:        then
        !           151:                sort +1 $d/ctl $dir/ctl | uniq -d -2 |
        !           152:                while read num sys
        !           153:                do
        !           154:                        echo superseded by $dir > $d/$num.done
        !           155:                done
        !           156:        fi
        !           157: done
        !           158: 
        !           159: # clean up any jobs we completely superseded.
        !           160: cleanq

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