;+
;NAME:
;	go_exec_synop_msg
;PURPOSE:
;	To send out a reminder of what needs to be 
;	added to the campaign synopsis web page
;HISTORY:
;	Written 14-Jan-97 by M.Morrison
;-
;
rd_exec_synop_index, new_lst, new_struct, infil='$MDI_CAL_INFO/cam_list_synop.lst'
rd_exec_synop_index, old_lst, old_struct, infil='$MDI_CAL_INFO/cam_list_synop.tab'
nnew = n_elements(new_lst)
nold = n_elements(old_lst)
;
tim1 = old_struct(nold-2-2).sttim
x = int2secarr(new_struct.sttim, tim1)
ss = where(x gt 0, nss) + 2
;
new_lst(2:*) = '???' + new_lst(2:*)
new_lst = str_replace(new_lst, '???   ', '???')
if (nss ne 0) then new_lst(ss) = str_replace(new_lst(ss), '???   ', '???<<<')
;
msg = ['GO_EXEC_SYNOP_MSG  Ver 1.0  Program Run: ' + !stime, $
	'Master table file:    /mdisw/dbase/cal/info/cam_list_synop.tab', $
	'New Template file:    /mdisw/dbase/cal/info/cam_list_synop.lst', $
	'Re-gen Program:       .run go_gen_exec_synop', $
	'(run as user MDI)', $
	' ', $
	'Last 5 lines of master file:', $
	'------------------------------', $
	strmid( old_lst(nold-5:*), 0, 90), $
	' ', $
	' ', $
	'Last 15 lines of new campaign template file:', $
	'--------------------------------------------', $
	strmid( new_lst(nnew-15:*), 0, 90)]
prstr, msg, /nomore
users = 'morrison,tarbell'
if (keyword_set(qdebug)) then users = 'morrison'
mail, msg, users=users, subj='Executive Synopsis Updating'

;
end