;+
;
; AUTHOR:
;   David James  
;
; FILENAME:
;   prep_cde_pan.pro
;
; DATE:
;   04/17/2007
;
; PURPOSE: returns a list of metadata needed for the PDC after querying
;    the AIM_CDE_SCIENCE db
;
; NOTES: probably worth setting up the following environment vars:
;        $PDC_TMP
;
; INPUT PARAMETERS:
;    filename - basename of the file to create metadata for
;    data_product_desc - 'level1', 'level2', 'level3', or 'level4'
;
; OUTPUT PARAMETERS:
;
; RETURN VALUE:  argument list used by send_pan.pl to create and send xml
;    formatted email with metadata
;
; EXAMPLE USAGE:
;    pan_args = prep_pan(l2_base_filename, 'level2')
;
;------------------------------------------------------------------------------
function prep_cde_pan, filename, data_product_desc, input_param

   ; eventually, this will query the db for all of the following...
   ins = 'CDE'
   act = 'ADD'
   src = 'LASP'
   mission = 'AIM'
   url = 'ftp://laspftp.colorado.edu/pub/aimsds/data/cde/' + filename
   dp_version = '5.0'
   pf_version = '2.0'
   sw_version = '1.0'
   calib_version = '2.0'
   case data_product_desc of
      'level1' : begin
                     title = 'CDE Level 1'
                     dp_type = 'CDE Level1'
                     desc = 'CDE Level 1 file'
                     sw_name = 'CDE Level 1'
                  end
      'level2': begin
                     title = 'CDE Level 2'
                     dp_type = 'CDE Level2'
                     desc = 'CDE Level 2 file'
                     sw_name = 'CDE Level 2'
                  end
      'level3' : begin
                     title = 'CDE Level 3'
                     dp_type = 'CDE Level3'
                     desc = 'CDE Level 3 file'
                     sw_name = 'CDE Level 3'
                  end
  ;    'level4':begin
  ;                   title = 'CDE Level 4'
  ;                   dp_type = 'CDE Level4'
  ;                   desc = 'CDE Level 4 file'
  ;                   sw_name = 'CDE Level 4'
  ;                end
   endcase

   ; generation date (e.g. 2007-02-20)
   curr_time=systime(/seconds, /julian, /utc)
   la_time = jd2la(curr_time)
   year = (strsplit(la_time, '/', /extract))
   doy = (strsplit(year[1], '-', /extract))
   hms = (strsplit(doy[1], ':', /extract))
   gen_date = year[0] + doy[0] + hms[0] + hms[1] + hms[2]

   start_gps = input_param.start_time
   stop_gps = input_param.stop_time

   start_jd = gps2jd(start_gps)
   stop_jd = gps2jd(stop_gps)

   ; start time (e.g. 2006-01-03 01:30:45)
   la_time = jd2la(start_jd)
   year = (strsplit(la_time, '/', /extract))
   doy = (strsplit(year[1], '-', /extract))
   hms = (strsplit(doy[1], ':', /extract))
   start_time = year[0] + doy[0] + hms[0] + hms[1] + hms[2]
                     
   ; end time (e.g. 2006-01-03 01:30:45)
   la_time = jd2la(stop_jd)
   year = (strsplit(la_time, '/', /extract))
   doy = (strsplit(year[1], '-', /extract))
   hms = (strsplit(doy[1], ':', /extract))
   end_time = year[0] + doy[0] + hms[0] + hms[1] + hms[2]

;   history = 'This is the first version being produced.'
   history = 'This is currently Version 5 of CDE data. See ftp://laspftp.colorado.edu/pub/aimsds/data/cde/CDE_data_versions.pdf for details.' 
   lat = ' '
   lon = ' '
   alt = ' '
   comments = 'Please contact the CDE science team before using this data.'

   args = [ins, act, filename, title, src, mission, dp_type, url, dp_version, pf_version, sw_version, sw_name, $
           calib_version, desc, gen_date, history, start_time, end_time, lat, lon, alt, comments]

   arg_list = ''
   for i=0, (n_elements(args)-1) do begin
      arg_list = arg_list + "'" + args[i] + "' "
   endfor

   return, arg_list

end