Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 3/23/84; site cbosgd.UUCP
Path: utzoo!linus!philabs!cbosgd!ksh@cbosgd.UUCP (Karen Summers-Horton)
From: ksh@cbosgd.UUCP (Karen Summers-Horton)
Newsgroups: net.announce
Subject: UUCP map posted to net.news.map
Message-ID: <213@cbosgd.UUCP>
Date: Mon, 6-Aug-84 22:46:41 EDT
Article-I.D.: cbosgd.213
Posted: Mon Aug  6 22:46:41 1984
Date-Received: Wed, 8-Aug-84 00:13:21 EDT
Sender: mark@cbosgd.UUCP
Organization: AT&T Bell Laboratories, Columbus
Lines: 51
Approved: mark@cbosgd.UUCP

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