Return to dup1 CVS log

Up to [Research Unix] / researchv10dc / man / adm

Annotation of researchv10dc/man/adm/dup1, revision 1.1.1.1

1.1       root        1: {print "!!!" $0}
                      2: function install(){lastf=$NF; last=$0; split($0,b,"\"")}
                      3: $NF!=lastf {if(last!="") print last; install()}
                      4: $NF==lastf {split($0,a,"\"")
                      5:        if(a[6]~/\\-|^[^ ]*,/||a[6]~/\(mi/) {
                      6:                 if(b[6]!~/\\-|^[^ ]*,/||b[6]!~/\(mi/)
                      7:                        install()
                      8:        }
                      9: }
                     10: END {print last}

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