PRO eis_rebuild_pm_timeline_db

CD    , '$HOME/eis_pm_db/timeline_db'

SPAWN , "rm eis_timeline_db.dbf eis_timeline_db.dbh eis_timeline_db.dbx"
SPAWN , "rm eis_science_db.dbf  eis_science_db.dbh  eis_science_db.dbx"
SPAWN , "rm eis_science2_db.dbf eis_science2_db.dbh eis_science2_db.dbx"

;replace call to astrolib
defsysv,'!DEBUG', 0
defsysv,'!TEXTUNIT', 0
defsysv,'!PRIV', 3
defsysv,'!TEXTOUT', EXIST = EXIST

dbcreate , 'eis_timeline_db' , 1 , 1 , 500000 , /EXTERNAL
dbcreate , 'eis_science_db'  , 1 , 1 , 500000 , /EXTERNAL
dbcreate , 'eis_science2_db' , 1 , 1 , 500000 , /EXTERNAL

FOR i = 0, 6 DO BEGIN

    ; Create a timeline entry
    tl = {eis_timeline_entry}

    ; Do time component
    tl.time_component.sequence_id = LONG(i+1)
    tl.time_component.start_time  = anytim2tai('1-Jan-2000 00:00:00')
    tl.time_component.end_time    = anytim2tai('1-Jan-2000 00:00:00')
    tl.time_component.entry_type  = "E"
    tl.time_component.st_id       = 1

    ; Do science component
    tl.science_component.sequence_id = LONG(i+1)
    tl.science_component.study_id    = LONG(1)
    tl.science_component.nRasters    = 1

    tl.science_component.studyRasters[0].ra_id = 1


    ; Print message
    print,STRJOIN(['Saving new entry as seq_id = ',                     $
                                 STRCOMPRESS(i+1,/REMOVE)],/SINGLE)

    status = eis_write_science_component_database_table(tl.science_component)
    status = eis_write_time_component_database_table(tl.time_component)

ENDFOR

END