ksh@cbosgd.UUCP (Karen Summers-Horton) (08/07/84)
As most of you have probably noticed, the UUCP map is being posted
to net.news.map. We are having a few problems, so the schedule posted
may be off a little. The entire map will get posted, so please be
patient. The map is posted in portable ar format. The awk scripts
to expand and compress this information are enclosed in this message.
Also, we will be posting a copy of pathalias to net.sources after the
map settles down. All corrections and additions to the map should
be sent directly to cbosgd!uucpmap and NOT the person posting the map.
Comments and suggestions only should be sent directly to me, cbosgd!ksh.
Thanks for your help and patience.
Karen Summers-Horton
--- compress.awk
# see compress
BEGIN { f1=""; f2=""; f3=""; f4=""; f5=""; f6=""; f7=""; f8=""; \
f9=""; f10=""; f11=""; printed= 0; }
/^=Nam/ {f1=substr($0, index($0,":")+1); next;}
/^=Org/ {f2=substr($0, index($0,":")+1); next;}
/^=Con/ {f3=substr($0, index($0,":")+1); next;}
/^=Pho/ {f4=substr($0, index($0,":")+1); next;}
/^=Pos/ {f5=substr($0, index($0,":")+1); next;}
/^=Ele/ {f6=substr($0, index($0,":")+1); next;}
/^=Com/ {f7=substr($0, index($0,":")+1); next;}
/^=Lon/ {f8=substr($0, index($0,":")+1); next;}
/^=Edi/ {f9=substr($0, index($0,":")+1); next;}
/^=Mac/ {f10=substr($0, index($0,":")+1); next;}
END { \
printf("# %s%%%s%%%s%%%s%%%s%%%s%%%s%%%s%%%s%%%s%%\n", \
f1, f2, f3, f4, f5, f6, f7, f8, f9, f10); \
}
--- expand.awk
BEGIN {FS="%"}
NR==1 { print \
"=Name: ", substr ($1, 3), \
"\n=Machine Type/OS:", $10, \
"\n=Organization: ", $2, \
"\n=Contact Person: ", $3, \
"\n=Electronic-Addr:", $6, \
"\n=Phone: ", $4, \
"\n=Postal-Address: ", $5, \
"\n=Long/Lat Coors: ", $8, \
"\n=Comments: ", $7, \
"\n=Editor: ", $9, \
"\n=", \
"\n=================================================="; \
next; \
}
NR>1 { print $0; }
--- end