BEGIN {FS=",";oldcat="0";oldType="O";oldsec="O";one=1;
    misfile="missing_files_"strftime("%Y-%m-%d_%H_%M")".txt"
    print "Missing files "strftime("%Y-%m-%d %H:%M:S") > misfile
# Generate Google Earth KML files for water quality data points.
# Generate text HTML files for accessing the same data.
# Normally data should be sorted by type, then tertiary|wma, then feature id.
# 2007-06-11 Michael Silberbauer major changes from previous versions (icons, dynamic variables in awk)
# 2007-08-31 Select better map icons
# 2007-09-01 Timespan (see http://nsidc.org/data/virtual_globes/timelines.html)
# 2007-09-03 Exclude all boreholes from surface report, not just those with < 10 samples
# 2007-09-07 Arrange folders more logically
# 2008-05-15 Check if files exist... adds an extra layer of complexity... only works for file-based system
# 2008-08-04 Cumulative minor modifications to text for missing data in balloons and HTML tables

#Usage
# for primary drainage region grouping (WMA_on=0):
# gawk -v WMA_on=0 -v bor=0 -v mau=0 -v disk=0 -f C:\data\Program\awk\kml_WMS_mnpts_html.awk C:\Data_Large\av\nms_wms_dat_pri.txt
# 84960,'A1H002','A1H002 DINOKANA AT DAM','',-25.448056,25.878889,'A10',0,0,'1899-12-30','1899-12-30','Dinokana at Dam','A10_0000084960',3,'A10A','A1','A'
#
# for WMA grouping (WMA_on=1):
# gawk -v WMA_on=1 -v bor=0 -v mau=0 -v disk=0 -f C:\data\Program\awk\kml_WMS_mnpts_html.awk C:\Data_Large\av\nms_wms_dat_wma.txt
# 90174,'A2H027Q01','A2H027Q01 PIENAARS RIVER AT BAVIAANSPOORT','Rivers',-25.662500,28.351389,'A23',1,4287,'1967-02-08','2008-02-25','Pienaars River at Baviaanspoort','A23_0000090174',3,'A23A','A2','A'
# 
# borehole and WMA switches are set in C:\data\Program\awk\kml_WMS.bat using -v variable setting for gawk
# Choose boreholes or no boreholes (many of the sites are boreholes with one sample, which clutter the view):
    #bor=0# use batch file with: gawk -v bor=0 -v WMA_on=0 ...
    if(bor)borf="_boreh"
        else borf="_nobor"
    if(bor)bfold=" boreholes"
        else bfold=" surface"
# switch WMA mode off (0) or on (1, only for data sorted by WMA, then tertiary, then type, then feature id):
    #WMA_on=0# use batch file with: gawk -v bor=1 -v WMA_on=1 ...
# choose whether to use Maucha symbols as point markers (use -v mauc=1):
    if(mau) msym=1
        else msym=0
    if(mau) bfold=bfold" Maucha"
# set the disk to the local disk (for testing) or "" for online (now set in calling routine):
    #disk=""
    #disk="c:"
# set the address root (hrfc="file:///" or "http://") 
    hrfc="file:///"
    isdisk=1
# set the address path (dpath="/data_large/wms_graphs_2006/" or "www.dwaf.gov.za/iwqs/wms/data/")
    dpath="/data_large/wms_graphs_2006/"
    if (disk==""||disk==0) {
        hrfc="http://"
        disk=""
        isdisk=0
        dpath="www.dwaf.gov.za/iwqs/wms/data/"
    }
    #print "Disk="disk", isdisk="isdisk
    dospath=dpath
    gsub("/","\\",dospath)
    if (isdisk) dpath="www.dwaf.gov.za/iwqs/wms/data/"
# set the search path to check if files exist, when creating the web version
    srchpath="Q:\\wms\\data\\"
    #srchpath="C:\\data_large\\wms_graphs_2008\\"
# set Water Management Area numbers and names:    
WMA[00]="sites outside borders"
WMA[01]="Limpopo"
WMA[02]="Luvuvhu and Letaba"
WMA[03]="Crocodile West and Marico"
WMA[04]="Olifants"
WMA[05]="Inkomati"
WMA[06]="Usutu to Mhlatuze"
WMA[07]="Thukela"
WMA[08]="Upper Vaal"
WMA[09]="Middle Vaal"
WMA[10]="Lower Vaal"
WMA[11]="Mvoti to Umzimkulu"
WMA[12]="Mzimvubu to Keiskamma"
WMA[13]="Upper Orange"
WMA[14]="Lower Orange"
WMA[15]="Fish to Tsitsikamma"
WMA[16]="Gouritz"
WMA[17]="Olifants-Doorn"
WMA[18]="Breede"
WMA[19]="Berg"
#for(i=1;i<=19;i++) print i,WMA[i]
# set marker names and files:
ico[1]="normalPlacemark"	;nic[1]="http://maps.google.com/mapfiles/kml/paddle/wht-circle-lv.png"
ico[2]="unknownPlacemark"	;nic[2]="http://maps.google.com/mapfiles/kml/paddle/wht-blank-lv.png"
ico[3]="boreholePlacemark"	;nic[3]="http://maps.google.com/mapfiles/kml/paddle/B-lv.png"
ico[4]="borehole00Placemark"	;nic[4]="http://maps.google.com/mapfiles/kml/paddle/O-lv.png"
ico[5]="borehole01Placemark"	;nic[5]="http://maps.google.com/mapfiles/kml/paddle/1-lv.png"
ico[6]="borehole02Placemark"	;nic[6]="http://maps.google.com/mapfiles/kml/paddle/2-lv.png"
ico[7]="borehole03Placemark"	;nic[7]="http://maps.google.com/mapfiles/kml/paddle/3-lv.png"
ico[8]="borehole04Placemark"	;nic[8]="http://maps.google.com/mapfiles/kml/paddle/4-lv.png"
ico[9]="borehole05Placemark"	;nic[9]="http://maps.google.com/mapfiles/kml/paddle/5-lv.png"
ico[10]="borehole06Placemark"	;nic[10]="http://maps.google.com/mapfiles/kml/paddle/6-lv.png"
ico[11]="borehole07Placemark"	;nic[11]="http://maps.google.com/mapfiles/kml/paddle/7-lv.png"
ico[12]="borehole08Placemark"	;nic[12]="http://maps.google.com/mapfiles/kml/paddle/8-lv.png"
ico[13]="borehole09Placemark"	;nic[13]="http://maps.google.com/mapfiles/kml/paddle/9-lv.png"
ico[14]="borehole10Placemark"	;nic[14]="http://maps.google.com/mapfiles/kml/paddle/10-lv.png"
ico[15]="canalPlacemark"	;nic[15]="http://maps.google.com/mapfiles/kml/pal5/icon50l.png"
ico[16]="potablePlacemark"	;nic[16]="http://maps.google.com/mapfiles/kml/paddle/blu-blank-lv.png"
ico[17]="industryPlacemark"	;nic[17]="http://maps.google.com/mapfiles/kml/pal2/icon10.png"
#ico[18]="hydroPlacemark"	;nic[18]="http://maps.google.com/mapfiles/kml/shapes/water.png"
ico[18]="hydroPlacemark"	;nic[18]="http://maps.google.com/mapfiles/kml/paddle/blu-circle-lv.png"
#ico[19]="lakePlacemark"	;nic[19]="http://www.dwaf.gov.za/iwqs/wms/img/dam.png"
ico[19]="lakePlacemark"	;nic[19]="http://maps.google.com/mapfiles/kml/paddle/ltblu-blank-lv.png"
ico[20]="marinePlacemark"	;nic[20]="http://maps.google.com/mapfiles/kml/paddle/grn-stars-lv.png"
ico[21]="municipalPlacemark"	;nic[21]="http://maps.google.com/mapfiles/kml/pal3/icon21.png"
ico[22]="pipelinePlacemark"	;nic[22]="http://maps.google.com/mapfiles/kml/shapes/target.png"
ico[23]="sewagePlacemark"	;nic[23]="http://maps.google.com/mapfiles/kml/paddle/ylw-blank.png"
#ico[24]="tunnelPlacemark"	;nic[24]="http://maps.google.com/mapfiles/kml/pal4/icon25.png"
ico[24]="tunnelPlacemark"	;nic[24]="http://maps.google.com/mapfiles/kml/shapes/donut.png"
ico[25]="wetlandPlacemark"	;nic[25]="http://maps.google.com/mapfiles/kml/paddle/grn-blank-lv.png"
ico[26]="groundPlacemark"	;nic[26]="http://maps.google.com/mapfiles/kml/paddle/g-lv.png"
ico[27]="panPlacemark"	;nic[27]="http://maps.google.com/mapfiles/kml/paddle/ylw-blank-lv.png"
}
{
    gsub( "&", " and ", $0 )
    #gsub( "'", "", $0 ) # single quotes are an artefact of the ArcInfo Tables UNLOAD command in wms2nms.aml
    #for( i=1;i<17;i++ ) print i,$i
    for( i=1;i<17;i++ ) gsub( "'", "", $i) # single quotes are an artefact of the ArcInfo Tables UNLOAD command in wms2nms.aml
    ptnwms=$1       # Monitoring_point_id
    ptstn =$2       #station code
    pttype=$3       # Located_on_type
    pntlat=$4       # Latitude
    pntlon=$5       # Longitude
    catcht=$6       # Tertiary ... quat is $15
    ptactv=$7       # Active point flag
    nsmpls=$8       # Number_of_samples
    dtsmp1=$9       # First_sample_date
    dtsmpn=$10      # Last_sample_date
    ptname=$11      # Monitoring_point_name
    pntsrt=$12      # PRI_Sort (tertiary plus WMS code, stuffed with zeros e.g. D16_0000157611
    wmanum=$13      # WMA number
    qat   =$14      # Quaternary drainage region
    sec   =$15      # Secondary drainage region
    primry=$16      # Primary drainage region or WMA number ... now just primary
    
    catcht=substr( qat,1,3 ) # Warning: the WMS and GIS tertiaries differ for some sites!
    cat=substr( catcht,1,1 )
    wma="WMA"wmanum
    if(wmanum<10) wma="WMA0"wmanum #insert leading zero to tidy up file name
    #if(wmanum>=10 && wmanum<100) 
    # here's a switch to group by WMAs 
    if(WMA_on) cat=wma
    ter=tolower(substr(catcht,1,3))
    sec=tolower(substr(catcht,1,2))
    pri=tolower(substr(catcht,1,1))
    #print "Catchment "cat
    if( cat!=oldcat )
    {
        if (one)
        {
            one=0 # the first time here we skip the lines to close a file
        }
        else
        {
            # we've come to the end of a section
            print "  </Folder>" >> catfile # for secondary catchment
            print "</Folder>" >> catfile # for Type
            print "</Document>" >> catfile # for primary catchment or WMA
            print "</kml>" >> catfile
            close (catfile)
            #print "Closing "oldcat " and opening "cat
            print "</table>" >> htmfile
            print "<small>"strftime("%Y-%m-%d %H:%M") >> htmfile
            print "|<a href=\"000key.htm\">WMS water quality sites home</a>" >> htmfile
            print "</small>" >> htmfile
            print "<!-- Google Analytics page tracker -->" >> htmfile
            print "<script type=\"text/javascript\">" >> htmfile
            print "var gaJsHost = ((\"https:\" == document.location.protocol) ? \"https://ssl.\" : \"http://www.\");" >> htmfile
            print "document.write(unescape(\"%3Cscript src='\" + gaJsHost + \"google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E\"));" >> htmfile
            print "</script>" >> htmfile
            print "<script type=\"text/javascript\">" >> htmfile
            print "var pageTracker = _gat._getTracker(\"UA-2572820-1\");" >> htmfile
            print "pageTracker._initData();" >> htmfile
            print "pageTracker._trackPageview();" >> htmfile
            print "</script>" >> htmfile
            print "</body>" >> htmfile
            print "</html>" >> htmfile
            close (htmfile)
        }
        oldcat=cat
        oldType="O"
        oldsec="O"
        cathead=toupper(cat)"_reg_WMS"borf
        htmfile=cathead".htm" #the HTML files for maucha are the same as for non-Maucha -only the KML differs
        if(msym)cathead=cathead"_m"
#        catfold=toupper(cat)" region"bfold
        catfold=toupper(cat)" "bfold
        catfile=cathead".kml"
        secfold=toupper(sec)
        print strftime("%Y-%m-%d %H:%M:%S")" "catfile,NR"+"
        
        # write the header for this grouping (primary catchment or WMA)
        print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">" > htmfile
        print "<html>" >> htmfile
        print "<head>" >> htmfile
        print "<title>" >> htmfile
        if(WMA_on) print WMA[wmanum]" WMA "strftime("%Y-%m-%d %H:%M") borf", RQS WMS water quality data Department of Water Affairs and Forestry</title>" >> htmfile
            else print toupper(cat)" region " strftime("%Y-%m-%d %H:%M") borf", RQS WMS water quality data Department of Water Affairs and Forestry</title>" >> htmfile
        print "</head>" >> htmfile
        print "<table summary=\"heading\" cellpadding=\"5\"  width=\"100%\">" >> htmfile
        print "<tr>" >> htmfile
        print "<td><img src=\"http://www.dwaf.gov.za/iwqs/images/dwaf_logo_tiny.jpg\" alt=\"DWAF logo\"></td>" >> htmfile
        if(WMA_on) print "<td align=\"center\"><h3>Resource Quality Services water quality data for "WMA[wmanum]" WMA.</h3></td>" >> htmfile
            else print "<td align=\"center\"><h3>Resource Quality Services water quality data for region "toupper(cat)".</h3></td>" >> htmfile
        print "<td><img src=\"http://www.dwaf.gov.za/iwqs/wms/wms_t.jpg\" alt=\"WMS logo\"></td>" >> htmfile
        print "</tr>" >> htmfile
        print "</table>" >> htmfile
        print "<hr>" >> htmfile
        print "<small><a href=\"000key.htm\">WMS water quality sites home</a></small>" >> htmfile
        print "<hr>" >> htmfile
        print "<h4>" >> htmfile
        if(bor) print "List of boreholes only" >> htmfile
            else  print "List of sites (other than boreholes)" >> htmfile
        if(WMA_on) print "for "WMA[wmanum]" WMA." >> htmfile
            else print "for region "toupper(cat)"." >> htmfile
        print "</h4>" >> htmfile
        print "<ul>" >> htmfile
        print "<li><b>|graph|</b> The pre-generated water quality PDF graphs " >> htmfile
        print "show the median and 90<sup>th</sup> percentile statistics to minimise the effect of outliers." >> htmfile
        print "<li><b>|data|</b> The pre-generated water quality data files are comma-delimited and zipped (missing data code = -9)." >> htmfile
        print "(Obtain the latest data from <a href=\"http://www.dwaf.gov.za/iwqs/report.htm\">RQS</a>.)" >> htmfile
        print "<li>Site <b>description</b>s are verbatim from the database:" >> htmfile
        print "<a href=\"mailto:MaricaE@dwaf.gov.za?CC=SilberbauerM@dwaf.gov.za&amp;Subject=Errors_on_RQS_WMS_dataPage\">" >> htmfile
        print "please report errors</a>." >> htmfile
        print "<li><b>Type</b> is the database classification and the primary sort field for this table." >> htmfile
        print "<li><b>First date</b>, <b>last date</b> and <b>n</b>umber of samples shown here are not current, though more up to date than in the pre-generated graphs and data." >> htmfile
        print "<li><b>Flow data</b> (where available) are presented courtesy of DWAF's <a href=\"http://www.dwaf.gov.za/Hydrology/\">Hydrological Services</a>." >> htmfile
        print "<li>Hints: <ul>" >> htmfile
        print "<li>To zoom to a particular point on Google Earth, highlight the <b>Lat</b>itude and <b>Lon</b>gitude and copy" >> htmfile
        print "and paste them into Google Earth's \"Fly to\" search box." >> htmfile
        print "<li>The <a href=\"http://www.dwaf.gov.za/iwqs/wq_guide/index.html\">Water Quality Guidelines</a> may help in interpreting water quality data." >> htmfile
        print "</ul></ul>" >> htmfile

        print "<table summary=\"RQS WMS "toupper(cat)" region\" border>" >> htmfile
        print "<tr><th>Water quality</th><th>Description</th><th>Type</th>" >> htmfile
        print "<th>n</th><th>First<br />date</th><th>Last<br />date</th><th>Flow,<br />if any</th>" >> htmfile
        print "<th>Lat</th><th>Lon</th></tr>" >> htmfile
               
        print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"  > catfile
        print "<kml xmlns=\"http://earth.google.com/kml/2.2\">" >> catfile
        print "<Document>" >> catfile
#        if(WMA_on) print "<name>"WMA[primry]"</name>" >> catfile
#            else print "<name>WMS inventory "toupper(cat)"</name>" >> catfile
        if(WMA_on) print "<name>"catfold" "WMA[wmanum]"</name>" >> catfile
            else print "<name>"catfold"</name>" >> catfile
        print "<Style id=\"wmsPlacemark\">" >> catfile
        print "<ListStyle>" >> catfile
        print "<ItemIcon>" >> catfile
        print "    <href>http://www.dwaf.gov.za/iwqs/wms/data/wms_m.jpg</href>" >> catfile
        print "</ItemIcon>" >> catfile
        print "</ListStyle>" >> catfile
        print "</Style>" >> catfile
        print "<styleUrl>#wmsPlacemark</styleUrl>" >> catfile

        
        for (ic in ico) 
        {
            print "<Style id=\""ico[ic]"\">" >> catfile
            print "  <IconStyle><scale>0.4</scale>" >> catfile
            print "    <Icon>" >> catfile
            print "      <href>"nic[ic]"</href>" >> catfile
            print "    </Icon>" >> catfile
            print "  </IconStyle>" >> catfile
            print "  <BalloonStyle>" >> catfile
            print "  <text>$[description]</text>" >> catfile
            print "  <bgColor>ffffffff</bgColor>" >> catfile
            print "  </BalloonStyle>" >> catfile
            print "</Style>" >> catfile
        }
        for (ic in ico) 
        {
            print "<Style id=\""ico[ic]"L\">" >> catfile
            print "  <ListStyle>" >> catfile
            print "    <ItemIcon>" >> catfile
            print "      <href>"nic[ic]"</href>" >> catfile
            print "    </ItemIcon>" >> catfile
            print "  </ListStyle>" >> catfile
            print "</Style>" >> catfile
        }


#        markname="S_"toupper(cat)"_SSDDSDDS"
        print "<open>1</open>" >> catfile
#        item1="Monitoring_Point_ID"
        
#        print "<Schema parent=\"Placemark\"  name=\""markname"\">" >> catfile
#        print "<SimpleField type=\"wstring\" name=\""item1"\"></SimpleField>" >> catfile
#        print "</Schema>" >> catfile
        }
        # this else if comes from way further up... here we decide whether to exclude boreholes and sites with no data:
        else if( nsmpls>0 && ((pttype=="Borehole" && bor) || (pttype!="Borehole" && !bor)) )
        {
                
        split(ptname,stn," ")
        #st=stn[1]
        st=substr( ptstn,1,9 )
        #check for pattern of embedded hydro station code in description e.g. A2R027Q01
        # check for pattern of hydro station code in monitoring point name - WMS no longer uses the Q01 suffix consistently
        his=0
        #print cat" "NR": "ptnwms"("st") n="nsmpls
        if( (st ~ /[A-Z][1-9][A-Z][0-9][0-9][0-9]/ ) || (st ~ /[A-Z][1-9][A-Z][0-9][0-9][0-9][Q][0-9][0-9]/) ) his=1
        
        if( his ) stas=substr(st,1,6)
        if( his && substr(st,3,1)=="R" )
            {
                stas=substr(st,1,3)1*substr(st,4,3)
                if( substr(st,7,1)=="Q" ) stas=substr(st,1,3)1*substr(st,4,3)"."1*substr(st,8,2)
            }
        if( his && substr(st,3,1)=="H" ) stas=substr(st,1,3)1*substr(st,4,3)
        if( !his ) 
        {
            stas=ptnwms
            if( substr(ptnwms,1,1)>0 && substr(ptnwms,1,1)<=9 && substr(ptnwms,2,4)=="0000" ) # remove some 0s
            {
                stas=substr(ptnwms,1,1)"-"1*substr(ptnwms,2,length(ptnwms))
            }
        }
                       
        ist = "#normalPlacemark"
        if( pttype == "Class pending") ist = "#unknownPlacemark"
        if( pttype == "Other Ground Fractures")          ist = "#groundPlacemark"
        if( pttype == "Canal")                           ist = "#canalPlacemark"
        if( pttype == "Pipeline")                        ist = "#pipelinePlacemark"
        if( pttype == "Pump Station")                    ist = "#pipelinePlacemark"
        if( pttype == "Tunnel")                          ist = "#tunnelPlacemark"
        if( pttype == "Unknown Transfer Feature Type")   ist = "#tunnelPlacemark"
        if( pttype == "Potable Water Purification Works")ist = "#potablePlacemark"
        if( pttype == "Excavation - Quarry")             ist = "#industryPlacemark"
        if( pttype == "Industrial Property")             ist = "#industryPlacemark"
        if( pttype == "Mine Property")                   ist = "#industryPlacemark"
        if( pttype == "Mine Shaft")                      ist = "#industryPlacemark"
        if( pttype == "Mineral Process Plant/Area")      ist = "#industryPlacemark"
        if( pttype == "Municipal Area")                  ist = "#industryPlacemark"
        if( pttype == "Slime/Slurry Dam")                ist = "#industryPlacemark"
        if( pttype == "Containment/Emergency/Return Water Dam") ist = "#lakePlacemark"
        if( pttype == "Dam / Barrage")                   ist = "#lakePlacemark"
        if( pttype == "Evaporation Dam")                 ist = "#lakePlacemark"
        if( pttype == "Lake")                            ist = "#lakePlacemark"
        if( pttype == "Pan")                             ist = "#panPlacemark"
        if( pttype == "Reservoir")                       ist = "#lakePlacemark"
        if( pttype == "Spring/Eye")                      ist = "#groundPlacemark"
        if( pttype == "Wetland")                         ist = "#wetlandPlacemark"
        if( pttype == "Estuary/Lagoon")                  ist = "#marinePlacemark"
        if( pttype == "Ocean / Bay")                     ist = "#marinePlacemark"
        if( pttype == "Monitoring Points")               ist = "#hydroPlacemark"
        if( pttype == "Rivers")                          ist = "#hydroPlacemark"
        if( pttype == "Sewage Works")                    ist = "#sewagePlacemark"
        if( pttype == "Solid Waste Site")                ist = "#sewagePlacemark"
        if( pttype == "Storm Water System")              ist = "#sewagePlacemark"
        if( pttype == "Water/Effluent Treatment Plant")  ist = "#sewagePlacemark"
        istl=ist
        if( pttype == "Borehole")
        {
          ist = "#boreholePlacemark"
          istl = "#boreholePlacemark"
          if(nsmpls>0 && nsmpls<10) ist = "#borehole0"nsmpls"Placemark"
          if( nsmpls == 10 )    ist = "#borehole10Placemark"
          if( nsmpls >= 10 )    ist = "#boreholePlacemark"
        }

        if(pttype!=oldType)
        {
            if(oldType!="O") print "</Folder></Folder>" >> catfile
            print "<Folder>" >> catfile
            print "  <name>"pttype"</name>" >> catfile
            print "  <styleUrl>"istl"L</styleUrl>" >> catfile
            print "  <open>0</open>" >> catfile
            oldType=pttype
            oldsec="O"
        }
        if(sec!=oldsec)
        {
            if(oldsec!="O") print "</Folder>" >> catfile
            print "<Folder>" >> catfile
            print "  <name>"toupper(sec)"</name>" >> catfile
            print "  <open>0</open>" >> catfile
            oldsec=sec
        }

        hstm = srchpath""ter"/"ter"_"ptnwms
        fstm = hrfc""disk""dpath""ter"/"ter"_"ptnwms
        hpdf = hstm".pdf"
        fpdf = fstm".pdf"
        hjpg = hstm".jpg"
        fjpg = fstm".jpg"
        hzip = hstm".zip"
        fzip = fstm".zip"
        #print "hpdf="hpdf;print "fpdf="fpdf

#        print "<"markname">" >> catfile
        print "<Placemark>" >> catfile
        print "<name>"stas"</name>" >> catfile
        print "<Snippet maxLines=\"1\">"ptname"</Snippet>" >> catfile
        print "<description><![CDATA[" >> catfile
        if(!isdisk&&exists(hjpg) ) print "<img src=\""fjpg"\" align=\"right\" />" >> catfile
        if( isdisk&&exists(fjpg) ) print "<img src=\""fjpg"\" align=\"right\" />" >> catfile
        print "<b>WMS "toupper(catcht)"_"ptnwms"</b><br />" >> catfile
        #if(his) print substr(st,1,6)"<br />" >> catfile
        print ptstn "<br />" >> catfile
        print ptname"<br />" >> catfile
        print "<i>"pttype"</i> samples: <b>"nsmpls"</b><br />" >> catfile
        if(nsmpls==1) print dtsmp1"<br />" >> catfile
          else print dtsmp1" to "dtsmpn"<br />" >> catfile
          
        #Exclude latitude and longitude: superfluous information in a spatial viewer...

        if(!isdisk&&exists(hpdf) ) print "<a href=\""fpdf"\">graph</a>|" >> catfile
        if(!isdisk&&!exists(hpdf)) {
            print "No "fpdf >> misfile
            print "<i>data not found</i>|" >> catfile
        }
        if( isdisk&&exists(fpdf) ) print "<a href=\""fpdf"\">graph</a>|" >> catfile
        
        # linking directly to a ZIP file seems to be forbidden in Google Earth:
        #print "<a href=\"file:///"disk":"dpath""ter"/"ter"_"ptnwms".zip\">data</a>|" >> catfile
        # so instead link to the station record in the region's HTML page:
        if(!isdisk&&exists(hzip) ) print "<a href=\""hrfc""disk""dpath""htmfile"#"ptnwms"\">data</a>|" >> catfile
        if( isdisk&&exists(fzip) ) print "<a href=\""hrfc""disk""dpath""htmfile"#"ptnwms"\">data</a>|" >> catfile
        if(his) print "<a href=\"http://www.dwaf.gov.za/hydrology/cgi-bin/his/cgihis.exe/StationInfo?Station="substr(st,1,6)"\">flow</a>|" >> catfile
        print "<a href=\"http://www.dwaf.gov.za/iwqs/wms/data/000key.htm\">home</a>|" >> catfile
        if(!isdisk&&exists(hjpg) ) print "<a href=\"http://www.dwaf.gov.za/iwqs/gis_apps/maucha.pdf\">Maucha key</a>|" >> catfile              
        if( isdisk&&exists(fjpg) ) print "<a href=\"http://www.dwaf.gov.za/iwqs/gis_apps/maucha.pdf\">Maucha key</a>|" >> catfile
        #print "<a href=\"mailto:SilberbauerM@dwaf.gov.za?Subject=Inventory_error_"toupper(catcht)"_"ptnwms"\">" >> catfile
        #print "report error</a>" >> catfile
    	print "]]></description>" >> catfile
        
        print "<tr><td><a name=\""ptnwms"\"></a>" >> htmfile
        print "<small><b>"toupper(catcht)"_"ptnwms"</b>|" >> htmfile
        if(!isdisk&&exists(hpdf) ) print "<a href=\""fpdf"\">graph</a>|" >> htmfile
        if(!isdisk&&!exists(hpdf)) print "<i>data not found</i>|" >> htmfile
        if( isdisk&&exists(fpdf) ) print "<a href=\""fpdf"\">graph</a>|" >> htmfile
        if(!isdisk&&exists(hzip) ) print "<a href=\""hrfc""disk""dpath""ter"/"ter"_"ptnwms".zip\">data</a>|" >> htmfile
        if( isdisk&&exists(fzip) ) print "<a href=\""hrfc""disk""dpath""ter"/"ter"_"ptnwms".zip\">data</a>|" >> htmfile
        print "</small></td><td><small>"ptname"</small></td><td><small>"pttype"</small></td>" >> htmfile
        print "<td align=\"right\"><small>"nsmpls"</small></td><td><small>"dtsmp1"</small></td><td><small>"dtsmpn"</small></td>" >> htmfile
        if(his) print "<td><small><a href=\"http://www.dwaf.gov.za/hydrology/cgi-bin/his/cgihis.exe/StationInfo?Station="substr(st,1,6)"\">"substr(st,1,6)"</a></small></td>" >> htmfile
          else print "<td align=\"center\"><small>n/a</small></td>" >> htmfile
        print "<td><small>" >> htmfile
        printf "%10.5f",1*pntlat >> htmfile
        print "</small></td><td><small>" >> htmfile
        printf "%9.5f",1*pntlon >> htmfile
        print "</small></td></tr>" >> htmfile       
        
        if(msym)
        {
            print "<Style id=\""stas"\"><IconStyle><scale>0.67</scale>" >> catfile
            if(disk=="") print "  <Icon>"hrfc""disk""dpath""ter"/"ter"_"ptnwms".jpg</Icon>" >> catfile
              else print "  <Icon><href>"disk""dpath""ter"/"ter"_"ptnwms".jpg</href></Icon>" >> catfile
            print "</IconStyle></Style>" >> catfile
            print "<styleUrl>#"stas"</styleUrl>" >> catfile
        }
            else print "<styleUrl>"ist"</styleUrl>" >> catfile
        if(nsmpls==1)
        {   
          print "<TimeStamp id=\"ID\">" >> catfile
          print "<when>"dtsmp1"</when>" >> catfile
          print "</TimeStamp>" >> catfile
        }
        else
        {
          print "<TimeSpan id=\"ID\">" >> catfile
          print "  <begin>"dtsmp1"</begin>" >> catfile
          print "  <end>"dtsmpn"</end>" >> catfile
          print "</TimeSpan>" >> catfile
        }
        print "<Point>" >> catfile
        print "  <coordinates>"pntlon","pntlat",0</coordinates>" >> catfile
        print "</Point>" >> catfile
#        print "<"item1">"ptnwms"</"item1">" >> catfile
        print "</Placemark>" >> catfile
#        print "</"markname">" >> catfile        
        }
}
 function exists(file, dummy, ret) { # Tim Menzies , tim@menzies.us, http://menzies.us
   ret=0;
   if ( (getline dummy < file) >=0 ) {ret = 1; close(file)};
   return ret;
}

END {
print "  </Folder>" >> catfile
print "</Folder>" >> catfile
print "</Document>" >> catfile
print "</kml>" >> catfile
close (catfile)
#print "</table>" >> htmf
#print "<small>"strftime("%Y-%m-%d %H:%M") >> htmf
#print "</small></body>" >> htmf
#print "</html>" >> htmf
#close (htmf)
print "</table>" >> htmfile
print "<small>"strftime("%Y-%m-%d %H:%M") >> htmfile
print "</small>" >> htmfile
print "<!-- Google Analytics page tracker -->" >> htmfile
print "<script type=\"text/javascript\">" >> htmfile
print "var gaJsHost = ((\"https:\" == document.location.protocol) ? \"https://ssl.\" : \"http://www.\");" >> htmfile
print "document.write(unescape(\"%3Cscript src='\" + gaJsHost + \"google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E\"));" >> htmfile
print "</script>" >> htmfile
print "<script type=\"text/javascript\">" >> htmfile
print "var pageTracker = _gat._getTracker(\"UA-2572820-1\");" >> htmfile
print "pageTracker._initData();" >> htmfile
print "pageTracker._trackPageview();" >> htmfile
print "</script>" >> htmfile
print "</body>" >> htmfile
print "</html>" >> htmfile
close (htmfile)
}