pro allpks_html, infile=infile

;+
;NAME:
;	allpks_html
;PURPOSE:
;	To create single html files that contain all the individual peak
;	plots for file infile (or all files found)
;CALLING SEQUENCE:
;	allpks_html,infile=infile
;HISTORY:
;	Written 4-Mar-97 S.Qwan
;	24-Nov-98 TDT  infile option, new web paths
;-

title = 'Indivisual Peak Plots'

if (keyword_set(infile)) then ff=infile else $
ff=file_list('/data14/jitter','*.genx', file=file)	;finding all the genx files

for n=0, n_elements(ff)-1 do begin

	break_file, ff(n),dks_log, dir,filnam,ext 
        print, filnam
	ff_sub_x=file_list('$path_http/cal/jitter', filnam + '_x_pksub*.gif')
	ff_sub_y=file_list('$path_http/cal/jitter', filnam + '_y_pksub*.gif')	;getting indiv pk plots

    if (ff_sub_x(0) ne '') then begin 
	out_nam= filnam + '_x_allpks.html'
	outfil ='$path_http/cal/jitter/'+ out_nam

	get_lun, lun
	openw, lun, outfil 				;writing html tags 

	printf, lun, '<HTML>'
	printf, lun, '<HEAD>'
	printf, lun, '<BASE HREF=http://www.lmsal.com/MDI/>'
	printf, lun, '<TITLE>', title,'</TITLE>'
	printf, lun, '</HEAD>'
	printf, lun, '<BODY>
	printf, lun, '<hr>'
	printf, lun, '    '
	printf, lun, '<pre>'

	n_x=n_elements(ff_sub_x)
		
	  for i=0, n_x-1 do begin			;writing all x erorr peak gif files
							; to html file
;		nam=ff_sub_x(i)
;		nam= strmid(nam, 13, 42)
;		printf, lun, '<IMG SRC="',nam,'">'
		break_file, ff_sub_x(i),dks_log_sub, dir_sub,nam_sub,ext 
		printf, lun, '<IMG SRC="cal/jitter/',nam_sub,'.gif">'
		end

	  printf, lun, '</pre>
	  printf, lun, '<hr>'
	  printf, lun, '</BODY>
	  printf, lun, '</HTML>
	  close, lun
	  free_lun, lun
     end

 if (ff_sub_y(0) ne '') then begin 
	out_nam= filnam + '_y_allpks.html'
	outfil = '$path_http/cal/jitter/'+ out_nam

	get_lun, lun
	openw, lun, outfil				;writing html tags for y error

	printf, lun, '<HTML>'
	printf, lun, '<HEAD>'
	printf, lun, '<BASE HREF=http://www.lmsal.com/MDI/>'
	printf, lun, '<TITLE>', title,'</TITLE>'
	printf, lun, '</HEAD>'
	printf, lun, '<BODY>
	printf, lun, '<hr>'
	printf, lun, '    '
	printf, lun, '<pre>'

	n_y=n_elements(ff_sub_y)
		
	  for i=0, n_y-1 do begin			;writing all y error peak gif files 
							;into html file
;		nam=ff_sub_y(i)
;		nam= strmid(nam, 13, 42)
;		printf, lun, '<IMG SRC="',nam,'">'
		break_file, ff_sub_y(i),dks_log_sub, dir_sub,nam_sub,ext 
		printf, lun, '<IMG SRC="cal/jitter/',nam_sub,'.gif">'
                end

	  printf, lun, '</pre>
	  printf, lun, '<hr>'
	  printf, lun, '</BODY>
	  printf, lun, '</HTML>
	  close, lun
	  free_lun, lun
    end
end
end