Return to parsesys.sh CVS log

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

Annotation of researchv10no/ipc/mgrs/ns/mkdb/parsesys.sh, revision 1.1.1.1

1.1       root        1: cat /usr/lib/uucp/Systems.local /usr/lib/uucp/Systems.dk /usr/lib/uucp/Systems /usr/lib/uucp/Systems.gen /usr/lib/uucp/Systems.tcp | awk '
                      2: #
                      3: #  Parse systems files.  All lines with the same system name are output
                      4: #  with the same id number.  Output format is
                      5: #      <sysname> TEL,<telno>
                      6: #      <sysname> <dkname> DOMAIN,<domain name>
                      7: #
                      8: BEGIN {
                      9:        line = "";
                     10: }
                     11: #
                     12: #  ignore blank and comment lines
                     13: #
                     14: $0 ~ /^#/      {next;}
                     15: NF<3           {next;}
                     16: #
                     17: #      telephone access
                     18: #
                     19: $3 ~ /ACU/ {
                     20:        line = "TEL," $5
                     21: }
                     22: #
                     23: #      dk system
                     24: #
                     25: $3 ~ /DK/ {
                     26:        if(i = match($5,"\.uucp$"))
                     27:                dk = substr($5,1,i-1);
                     28:        else
                     29:                dk = $5;
                     30:        n = split(dk,a,"/");
                     31:        uid = a[n];
                     32:        for(j=n-1; j>=1; j--)
                     33:                uid = uid "." a[j];
                     34:        line = "DK," dk " DOMAIN," uid ".att.com"
                     35: }
                     36: #
                     37: #      systems that poll us
                     38: #
                     39: $2 ~ /[nN][Ee][Vv][Ee][Rr]/ {
                     40:        line = $1
                     41: }
                     42: #
                     43: #      output the line
                     44: #
                     45: {
                     46:        print $1 " " line " SERVICE,uucp"
                     47: }
                     48: ' | uniq

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