===================================================================
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 = ""
|