Return to mkuid.sh CVS log

Up to [Research Unix] / researchv10no / ipc / mgrs / ns / mkdb

Annotation of researchv10no/ipc/mgrs/ns/mkdb/mkuid.sh, revision 1.1

1.1     ! root        1: echo "add unique id" 1>&2
        !             2: cat $* | awk '
        !             3: #
        !             4: #      unique is an array that associates a numeric id with each
        !             5: #      symbolic one
        !             6: #
        !             7: BEGIN {
        !             8:        nextid=1;
        !             9: }
        !            10: #
        !            11: #      add com/att to the front of a dk string to make a unique id
        !            12: #
        !            13: $1=="uucp" {
        !            14:        line = $2 " " $2 ".att.com";    # uucp host name
        !            15:        for (i=3; i<=NF; i++)
        !            16:                if(match($i, "/")){
        !            17:                        n = split($i,a,"/");
        !            18:                        uid = a[n];
        !            19:                        for(j=n-1; j>=1; j--)
        !            20:                                uid = uid "." a[j];
        !            21:                        line = line " DK," $i " DOMAIN," uid ".att.com"
        !            22:                } else
        !            23:                        line = line " " $i
        !            24:        print line
        !            25:        next;
        !            26: }
        !            27: #
        !            28: #      invert order of domain components       to make a unique id
        !            29: #
        !            30: $1=="hosts" {
        !            31:        line = $2;      # inet number
        !            32:        for (i=3; i<=NF; i++)
        !            33:                if(match($i, ".att.com")){
        !            34:                        line = line " DOMAIN," $i
        !            35:                } else
        !            36:                        line = line " " $i
        !            37:        print line
        !            38:        next;
        !            39: }
        !            40: ' | rmdups.sh

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