;
; 	write html table entries for the 3 days
; added filenum
;
	cmd='ls -1 201408*.png'
	lnkdir='monaug14/'
	spawn,cmd,flist
	a=stregex(flist,"^([0-9]*)_([0-9]*)",/sub,/ext)
	yymmddAr=reform(long(a[1,*]))
	hhmmssAr=reform(long(a[2,*]))
	uyymmdd=yymmddAr[uniq(yymmddAr,sort(yymmddAr))]
	ndates=n_elements(uyymmdd)
	ncolDat=7
	lstyle="vertical-align: top; text-align: center;"
	spc='    '
	openw,lun,'tblout.html',/get_lun

	for iday=0,ndates-1 do begin
	    ii=where(yymmddAr eq uyymmdd[iday],nhrs)	
		nrows=nhrs / ncolDat  + 1
		if (nrows * ncolDat) lt nrows then nrows++
	    ldate=string(format='(i08)',uyymmdd[iday])
		print,"dbg1:",iday,nhrs
		for ihr=0,nhrs-1 do begin
			print,"  dbg2:",iday,ihr,ihr mod ncoldat
 		    lnrows=string(format='(i1)',nrows)
			hhmmss=hhmmssAr[ii[ihr]]
			jj=where(hhmmssar eq hhmmss)
			if (ihr mod ncolDat) eq 0 then begin
				print,"here, hhmmss:",hhmmss,format='(a,i06)'
	 			printf,lun,spc + '</tr>'
				printf,lun,spc + '<tr>'
				printf,lun,spc + '<td> ' + ldate + '</td>'
		    endif
			lhr=string(format='(i02,":",i02,":",i02)',hhmmss/10000L,hhmmss/100L mod 100L,hhmmss mod 100l)
			llink=lnkDir + flist[jj]  
			printf,lun,spc + '<td> <a href="' + llink + '">' + lhr + '</a></td>'
		endfor
	endfor
	free_lun,lun
end