pro mk_smthy_movy,year ;,month

;+
; NAME
;	mk_smthy_movy
; PURPOS
;	Create Javascript movie.
; CALLING SEQUENCE
;	mk_snthy_movy,year,month
; INPUTS
;	year, e.g., 1992
;	month, e.g., 6, ['09','10','11','12'], indgen(12)+1
; OUTPUT
;	Javascript movie in .html format.
;	Names TBD
; HISTORY
;	17-Nay-2016 LWA  Taken from Aki's mov_1992_01.pro.
;	19-May-2016 LWA  Cleaned up to make year-long movies.
;-
	
;------------
;mm=strtrim(month,2)
;nz=where(fix(mm) lt 10,nnz)
;if nnz gt 0 then begin
;   for i=0,nnz-1 do begin
;      mm(nz(i))= '0'+mm(nz(i))
;   endfor
;endif
;------------
yyyy=strtrim(year,2)
;for i=0,n_elements(mm)-1 do begin
   file0=file_search('/yla/smoothy/smthy_jpg/'+yyyy+'/p*.jpg')
   file=file_break(file0)
   outdir='/yla/smoothy/smthy_mov/'
   outfile='smthy'+yyyy
   movfiles=file
   jsmovfile=outdir+outfile+'.html'
   jsmovie,jsmovfile,movfiles,url='/yla/smoothy/smthy_jpg/'+yyyy 
;
;endfor

end