=================================================================== RCS file: /cvsrepo/anoncvs/cvs/www/Attic/support.awk,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- www/Attic/support.awk 1999/09/20 14:30:53 1.3 +++ www/Attic/support.awk 1999/09/23 21:54:57 1.4 @@ -1,6 +1,6 @@ #!/usr/bin/nawk -f -# used both by support.bld and by groups.bld, since the formats are similar +# used by support.bld to generate the table in support.html # convert data like this (order doesn't matter except 0 at front) # 0 @@ -8,6 +8,7 @@ # P Ontario # T Palgrave # A R R # 1 +# Z L0N 1P0 # O Consultant # I Ian F. Darwin # M ian@darwinsys.com @@ -28,7 +29,7 @@ $1 == "C" { country = substr($0, 2); if (country != oldCountry) { - print "" country "" + print "" country "" } oldCountry = country next @@ -36,6 +37,7 @@ $1 == "P" { prov = substr($0, 2); next } $1 == "T" { city = substr($0, 2); next } $1 == "A" { addr = substr($0, 2); next } +$1 == "Z" { zip = substr($0, 2); next } $1 == "O" { org = substr($0, 2); next } $1 == "I" { indv = substr($0, 2); next } $1 == "B" { phone = substr($0, 2); next } @@ -54,17 +56,27 @@ print "" print "" if (indv != "") - print indv "
" - print org "
" addr - print " " city "
" prov - print " " + print "Name: " indv "
" + if (org != "") + print "Organization: " org "
" + if (addr != "") + print "Address: " addr "
" + if (city != "") { + print "City: " city + if (prov != "") + print ", " prov + if (zip != "") + print " " zip + print "
" + } if (phone != "") - print phone "
" - print fax - print " " + print "Phone: " phone "
" + if (fax != "") + print "FAX: " fax "
" if (email != "") - print "" email "" "
" - print "" url "" + print "Email: " email "" "
" + if (url != "") + print "URL: " url "" print " " note } @@ -72,6 +84,7 @@ prov = "" city = "" addr = "" + zip = "" org = "" indv = "" email = ""