pro mk_lfft_db_web, tandcnum, datedir, title, photodir0, skip_copy=skip_copy
;NAME:
; tandc_db_web_maker
;PURPOSE:
; To generate TandC database web pages
;HISTORY:
; Written 03-Aug-00 by J. Covington
; 7-Jun-01 (MDM) - Modified to copy all files and then move them around
; - Added /SKIP_COPY keyword
; 18-Jan-02 (MDM) - Added go driver routine
;
;INPUTS: title : webpage title
; datedir : location of ps and gif files and .usr files
; tandc : TandC designated number
; photodir : location of photos for this test
; : none = no photos available
;
;Sample Calling Sequence:
; tandc_db_web_maker, '401','000705.173714', 'SXI Engineering Model Telescope Shock Test', '/SXI/Pics/MMorrison/'
; (see go_mk_lfft_db_web.pro)
;
;
; /sxi35/log/lfft/ $SXI_LFFT_DIR
if (keyword_set(skip_copy)) then goto, skip
cmd = 'mkdir /sxi01/html/TandC/DB/' + tandcnum & print,cmd & spawn,cmd
cmd = 'mkdir /sxi01/html/TandC/DB/' + tandcnum + '/Part1/' & print,cmd & spawn,cmd
cmd = 'mkdir /sxi01/html/TandC/DB/' + tandcnum + '/Part1/' + 'GIF' & print,cmd & spawn,cmd
cmd = 'mkdir /sxi01/html/TandC/DB/' + tandcnum + '/Part1/' + 'PS' & print,cmd & spawn,cmd
;spawn, 'cp ' + datedir + '/*.gif /sxi01/html/TandC/DB/' + tandcnum + '/Part1/' + 'GIF'
;spawn, 'cp ' + datedir + '/*.ps /sxi01/html/TandC/DB/' + tandcnum + '/Part1/' + 'PS'
bdir = '/sxi01/html/TandC/DB/' + tandcnum + '/Part1/'
cmd = 'cp -p ' + datedir + '/* ' + bdir & print,cmd & spawn,cmd
cmd = 'mv ' + bdir+'*.gif ' + bdir+'GIF/.' & print,cmd & spawn,cmd
cmd = 'mv ' + bdir+'*.ps ' + bdir+'PS/.' & print,cmd & spawn,cmd
skip:
get_lun,u
;openw,u,'./test' + tandcnum + '.html'
openw,u,'/sxi01/html/TandC/DB/' + tandcnum + '/index.shtml'
spawn,'ls ' + datedir + '/*.usr',usrfiles
;usrfiles_stripped=strtrim(usrfiles,2)
break_file, usrfiles, dsk_log, dir, filnam, ext
usrfiles_stripped = filnam + ext
print,usrfiles_stripped
printf,u,''
printf,u,''
printf,u,''
printf,u,''
printf,u,''
printf,u,''
printf,u,''
printf,u,''+title+''
printf,u,' | '
printf,u,'
'
printf,u,'
'
printf,u,'
'
printf,u,' Plans and Procedures
'
printf,u,''
printf,u,' Data
'
printf,u,''
printf,u,' STOL User Log Files
'
printf,u,''
printf,u,usrfiles_stripped,format='(a)'
printf,u,'
'
printf,u,' Photographs of the Setup
'
printf,u,''
if (n_elements(photodir0) eq 0) then photodir0 = 'none'
photodir = photodir0
if (data_type(photodir) ne 7) then photodir = strtrim(photodir,2)
if (photodir eq 'none') then printf,u,'- No Photos Available'
if (photodir ne 'none') then printf,u,'
- Photographs'
printf,u,'
'
;printf,u,' Final Results and Reports
'
;printf,u,''
;printf,u,'- TBD'
;printf,u,'
'
printf,u,'
'
printf,u,'
'
printf,u,'
'
printf,u,'
printf,u,'Date last modified:
printf,u,''
printf,u,''
close,u
return
end
;--------------------------------------------------------
pro go_mk_lfft_db_web, skip_copy=skip_copy
input, 'Enter tandcnum (ie: 901)', tandcnum, '901
spawn, ['ls', getenv('SXI_LFFT_DIR')], /noshell
input, 'Enter date dir name (ie: 020115.173109)', datedir, '020115.173109'
input, 'Enter title', title, 'FM2 LFFT #1 Pre-Environmental Testing (15-Jan-02)'
input, 'Enter photo ID', photoid, '4075'
mk_lfft_db_web, tandcnum, concat_dir(getenv('SXI_LFFT_DIR'),datedir), title, photoid, skip_copy=skip_copy
end