File: [local] / www / Attic / support.awk (download)
Revision 1.5, Thu Sep 30 18:43:33 1999 UTC (24 years, 7 months ago) by ian
Branch: MAIN
Changes since 1.4: +12 -12 lines
Fix minor awk typo that put spurious spaces into html in groups.awk and
support.awk. Fix URL typo in groups.dat. Update support entry for ITWorks.
|
#!/usr/bin/nawk -f
# used by support.bld to generate the table in support.html
# convert data like this (order doesn't matter except 0 at front)
# 0
# C Canada
# P Ontario
# T Palgrave
# A R R # 1
# Z L0N 1P0
# O Consultant
# I Ian F. Darwin
# M ian@darwinsys.com
# U http://www.darwinsys.com
# N Author of lots of kool stuff.
# into HTML to make nice neat tables.
$1 ~ /^#/ { next; }
$1 == "0" {
if (FNR != 1)
dump();
reset();
next;
}
$1 == "C" { country = substr($0, 3);
if (country != oldCountry) {
print "<TR><TD BGCOLOR=\"#FFFF00\" COLSPAN=2 ALIGN=CENTER><B>" country "</B>"
}
oldCountry = country
next
}
$1 == "P" { prov = substr($0, 3); next }
$1 == "T" { city = substr($0, 3); next }
$1 == "A" { addr = substr($0, 3); next }
$1 == "Z" { zip = substr($0, 3); next }
$1 == "O" { org = substr($0, 3); next }
$1 == "I" { indv = substr($0, 3); next }
$1 == "B" { phone = substr($0, 3); next }
$1 == "F" { fax = substr($0, 3); next }
$1 == "M" { email = substr($0, 3); next }
$1 == "U" { url = substr($0, 3); next }
$1 == "N" { note = substr($0, 3); next }
# left over - must be part of note?
{
note = note "\n" $0
next
}
function dump() {
print "<TR>"
print "<TD>"
if (indv != "")
print "Name: " indv "<BR>"
if (org != "")
print "Organization: " org "<BR>"
if (addr != "")
print "Address: " addr "<BR>"
if (city != "") {
print "City: " city
if (prov != "")
print ", " prov
if (zip != "")
print " " zip
print "<BR>"
}
if (phone != "")
print "Phone: " phone "<BR>"
if (fax != "")
print "FAX: " fax "<BR>"
if (email != "")
print "Email: <A HREF=\"mailto:" email "\">" email "</A>" "<BR>"
if (url != "")
print "URL: <A HREF=\"" url "\">" url "</A>"
print " <TD>" note
}
function reset() {
prov = ""
city = ""
addr = ""
zip = ""
org = ""
indv = ""
email = ""
phone = ""
fax = ""
url = ""
note = ""
}
END {
dump(); # don't forget the last guy!
}