;
; generate html code for movies
;
; inserted after html intro line for the campagain.
; use the expinfo() routine
; addpath,'/share/megs/phil/x101/hf/hf1811/'
; .compile expinfo
nl=string(10b)
file='movietbl.out'
openw,lunout,file,/get_lun
nexp=expinfo(expI)
a=stregex(expI.tit," *([^:]*):([^ ]*) *(.*)",/subex,/ext)
ldateAr=reform(a[1,*])
lprojAr=reform(a[2,*])
lusrAr=reform(a[3,*])
lyymm='1811'
linstall='05dec18'
movPath='"http://www.naic.edu/%7Ephil/aeron/clp/movie/limAccess/'
for i=0,nexp-1 do begin
	    lnum=((i+1) lt 10)?string(format='(i1)',i+1):string(format='(i2)',i+1)
        movNm=strlowcase(string(format='("20",i06,"_",a,"_usrp")',expI[i].yymmdd1,lprojAr[i]))
        movNmHr=strlowcase(string(format='("20",i06,"_",a,"_hr_usrp")',expI[i].yymmdd1,lprojAr[i]))
		lmmdd1=string(format='(i04)',expI[i].yymmdd1 mod 10000l)
		lmmdd2=string(format='(i04)',expI[i].yymmdd2 mod 10000l)
		lhhmm1=string(format='(i02,":",i02)',(expI[i].hhmmss1/10000), (expI[i].hhmmss1/100l)  mod 100l)
		lhhmm2=string(format='(i02,":",i02)',(expI[i].hhmmss2/10000), (expI[i].hhmmss2/100l)  mod 100l)
	printf,lunout,'<tr>'
    l='  <td valign="top"><b> <a name="' + lyymm + '_exp' + lnum + '"></a> ' + lnum + '. usrp&nbsp; </b><br>'
	printf,lunout,l
    l='    <b> <a href=' + movPath + movNm + '.avi">' + movNm + '.avi</a><br>'
	printf,lunout,l
    l='    <b> <a href=' + movPath + movNm + '.mov">' + movNm + '.mov</a><br>'
	printf,lunout,l
    l='    <b> Hires usrp</b><br>'
	printf,lunout,l
    l='    <b> <a href=' + movPath + movNmHr + '.avi">' + movNmHr + '.avi</a><br>'
	printf,lunout,l
    l='    <b> <a href=' + movPath + movNmHr + '.mov">' + movNmHr + '.mov</a><br>'
	printf,lunout,l
    l='  <td valign="top">sb<br> gr </td>'
	printf,lunout,l
    l='  <td valign="top">' + lprojAr[i] + ' </td>'
    printf,lunout,l
    l='  <td valign="top"><br> <br> <br> <br> <br> <br> </td>' ; num jpegs
    printf,lunout,l
    l='  <td valign="top"><br> <br> <br> <br> <br> <br> </td>' ; jpegs size
    printf,lunout,l
    l='  <td valign="top">'
    printf,lunout,l
    l='  <ul>'
    printf,lunout,l
	l='     <li>' + lprojAr[i] + '</li>'
    printf,lunout,l
    l='     <li>az=225 zagr=1.06 </li>'
    printf,lunout,l
	l='     <li>data:' + lmmdd1 + ',' + lhhmm1 + ' to ' + lhhmm2 + '</li>'
    printf,lunout,l
    l='  <li><a href="http://www.naic.edu/%7Ephil/hardware/xmiterhf/hfcampaign_1811/hfcampaign_1811.html#exp' +lnum + $
      '">more info</a></li>'
    printf,lunout,l
    l='  </ul>'
    printf,lunout,l
    l='  </td>'
    printf,lunout,l
    l='  <td valign="top">' + linstall + '</td>'
    printf,lunout,l
    printf,lunout,'</tr>'
endfor
free_lun,lunout
end