function str_sqlseg,instr,cmdstr,verbose=verbose

bstr = '<'+cmdstr+'>'
estr = '</'+cmdstr+'>'

;print,instr
if keyword_set(verbose) then print,bstr,estr
out = strmid(instr,strpos(instr,bstr)+strlen(bstr), $
		strpos(instr,estr)-strpos(instr,bstr)-strlen(bstr))

if keyword_set(verbose) then print,out
return,out
end

 
function form_sfc_query, time_range, $
	template_file=template_file, $
	arplage=arplage, filament=filament, sunspot=sunspot

if not keyword_set(template_file) then begin
  file = 'template_arplage.sql'
;  if keyword_set(arplage) then file = 'template_arplage.sql'
  if keyword_set(filament) then file = 'template_filament.sql'
  if keyword_set(sunspot) then file = 'template_sunspot.sql'
  rq_file = concat_dir('$EGSO_DTB',file)
endif else begin
  rq_file = template_file
endelse
print,''
print, 'Using template: ',rq_file

qq=rd_tfile(rq_file)
qqx=arr2str(qq,delim='')
;print,qqx

sql_select = str_sqlseg(qqx,'SELECT')
sql_from = str_sqlseg(qqx,'FROM')
sql_where = str_sqlseg(qqx,'WHERE')

;  make sure time is correct format for Bradford database...
timerange = str_replace(utc2str(str2utc(time_range),/ecs,/trun),'/','-')

if (n_elements(time_range) eq 2) then begin
  tstart = '"'+timerange(0)+'"'
  tend   = '"'+timerange(1)+'"'
endif else begin
  tstart = '"2002-07-16 00:00:00"'
  tend = '"2002-07-16 22:00:00"'
endelse

trange = 'date_obs BETWEEN '+tstart+' AND '+tend
sql_w1 = str_replace(sql_where,'$TIMERANGE',trange)

cmd = 'SELECT '+sql_select+' FROM '+sql_from
;help,sql_where
if strtrim(sql_where,2) ne '' then cmd = cmd +' WHERE '+sql_w1
;print,cmd

return,cmd
end