; PRO buidljob

; This program is run immediately after the shell script 'process'
; terminates.  It identifies the most recent tape extraction
; log created by process, and reads the log to identify the dates
; of the files extracted.  It builds another program for IDL
; to run non-interactively, in which the files are uncompressed,
; quick-look data files are generated and plotted, and temperature
; logs are plotted as well.

; Initialize OS-specific items
@isitdos

; Put the name of the latest tape extraction log into a file
cmd=lscmd
IF dos $
    THEN cmd=cmd+tapeinforoot+dd+'??????.set? /-d /o:-d /b > ' $
    ELSE cmd=cmd+' -1t '+tapeinforoot+dd+'??????.set*.all >! '
cmd=cmd+droot+dd+'latest'
SPAWN,cmd

; Read the name of the latest tape extraction log
tapelog=qgetfile(droot+dd+'latest')
tapelog=tapelog(0)

; Read the latest tape extraction log
lines=qgetfile(tapelog)

; Check whether the NovaStor tape file was completely read
ok=readright(lines)
IF NOT ok THEN EXIT

; Identify the lines that give dates of file creation
dates=WHERE(STRMID(lines,0,2) EQ '19')
filedates=lines(dates)

; Read each date line and extract the unique yr/mo/day combinations
gtfildat,filedates,n,year,month,day,fhour,fminute,fsecond

; Build another IDL program to uncompress the data for that day,
; create quick-look data files, plot the files, and store the log
; files appropriately
prjoblin,n,year,month,day,fhour,fminute,fsecond

; Compress all old tape extraction logs so there is only one pattern 
; match above
SPAWN,gzipcmd+tapeinforoot+dd+'??????.se*[0-9A-Za-y]'

EXIT