; PC version
; This procedure can be run from the Test Log directory

Print,'Pick which Log you want to evaluate"
Log=dialog_pickfile(/directory,path='c:\')
Output=t_mkdir(Log+'post')
Output=t_mkdir(Log+'post\anal_results')
Output=t_mkdir(Log+'post\timelist')
Output=t_mkdir(Log+'PS')



;;spawn,'whoami',who
;;if who(0) ne 'gse' then begin & print,'Sorry, you must be gse to run ptest' &$
 ;;stop & endif

;;if strpos(!path,'/users/csee/idl_programs') eq -1 then $
 ;;@path.csee


.run c:\idl_programs\csee\ptest\idx_check.pro
.run c:\idl_programs\csee\ptest\telem_packet_checker.pro
.run c:\idl_programs\csee\ptest\sort_by_mission_time.pro
.run c:\idl_programs\csee\ptest\plot_rate.pro
.run c:\idl_programs\csee\ptest\check_times.pro
;.run c:\idl_programs\csee\ptest\ds_summary.pro
.run c:\idl_programs\csee\ptest\ds_summary3.pro
.run c:\idl_programs\csee\ptest\count_DB_files.pro
.run c:\idl_programs\csee\ptest\resource.pro
.run c:\idl_programs\csee\ptest\ccdstat.pro
.run c:\idl_programs\csee\hkeeping\lamplist.pro
.run c:\idl_programs\csee\hkeeping\lamplist3.pro
.run c:\idl_programs\csee\hkeeping\lampdetail.pro
.run c:\idl_programs\csee\hkeeping\rd_lst.pro
.run c:\idl_programs\csee\hkeeping\plot_temps.pro
.run c:\idl_programs\csee\hkeeping\tolist.pro
.run c:\idl_programs\csee\ptest\cycles.pro
.run c:\idl_programs\csee\util\print.pro
.run c:\idl_programs\csee\ptest\plot_spin.pro
.run c:\idl_programs\csee\ptest\oplot_spin.pro
.run c:\idl_programs\csee\ptest\plot_alt.pro
.run c:\idl_programs\csee\ptest\oplot_alt.pro
.run c:\idl_programs\csee\data\sun_sensor.pro
.run c:\idl_programs\csee\ptest\plot_drift.pro
.run c:\idl_programs\csee\ptest\thumbnails.pro
.run c:\idl_programs\csee\hkeeping\plot_tolist.pro
.run c:\idl_programs\csee\ptest\cycle_type_vs_alt_plot.pro
.run c:\idl_programs\csee\ptest\sun_sensor_history.pro
.run c:\idl_programs\csee\ptest\sun_lamp_history.pro


cd,'',current=cdir & cd,cdir	    ;establishes cdir as current directory
close,/all

;make sure that this is a Test Log...
files=findfile(Log+'idx', count = nfiles1)
if nfiles1 eq 0 then begin &$
 print,string(10B),string(7B),"**This is not a Log directory (no idx file):",Log &$
  pwd & stop & endif
;files=findfile(Log+'idx2', count = nfiles2)
;if nfiles1+nfiles2 eq 0 then begin &$
 ;print,string(10B),string(7B),"**This is not a Log directory (no idx or idx2 file):",Log &$
  ;pwd & stop & endif

print,'_________________________________________________'
print,'***Do you wish to run the idx Packet Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then idx_check,Log
retall

cd,Log
print,'___________________________________________________'
print,'***Do you wish to run Telemetry Packet Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & telem_packet_checker,log &$
 spawn,'notepad telem_packet_ck.out' & endif
retall

cd,Log
print,'_________________________________________________'
print,'***Do you wish to run Telemetry Rate Plotter for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then plot_rate,Log
retall

cd,Log
print,'___________________________________________________'
print,'***Do you wish to run Data Set Summary Creator for:'
print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then ds_summary_mb,Log
cd,Log
retall

cd,Log
print,'_________________________________________________'
print,'***Do you wish to run Time Data Base Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & check_times,Log &$
 spawn,'more -e time_checker.out' & endif
retall

cd,Log
print,'__________________________________________________'
print,'***Do you wish to run Data Base Files Counter for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then count_DB_files,Log
retall

cd,Log
print,'_____________________________________________________'
print,'***Do you wish to run the Resource Usage Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then resource,Log
retall

cd,Log
print,'_______________________________________________'
print,'***Do you wish to run the CCD flag Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then ccdstat &$
 spawn,'notepad post/anal_results/ccdstat' &$
endif
retall

cd,Log
print,'__________________________________________________________'
print,'***Do you wish to run the Lamp ON-time list generator for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then lamplist
retall

cd,Log
print,'___________________________________________'
print,'***Do you want to see the Lamp details for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then lampdetail
retall

cd,Log
print,'_________________________________________'
print,'***Do you want the Lamp descent info for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then lamplist3
retall

cd,Log
print,'___________________________________________________'
print,'***Do you want to run the Temperature Plotter for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then begin &$
  files=findfile('\post\timelist\*', count = nfiles) &$
  if nfiles eq 0 then begin &$
   print,'' &$
   print,'***Do you want me to create the time-ordered lists for you:' &$
   ans='' &$
   read,'(y or n): ',ans &$
    if ans eq 'y' then tolist &$
   endif &$
  plot_temps &$
  read,'***Do you want to plot the temperatures again (y or n): ',ans &$
  if ans eq 'y' then plot_temps &$
  read,'***One More Time... (y or n)?: ',ans &$
  if ans eq 'y' then plot_temps else print,'...OK, fine...' &$
 endif
retall

cd,Log
print,'_______________________________________________________________'
print,'***Do you wish to run the Cycle Information list generator for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then cycles
retall

wdelete,0

cd,Log
print,'___________________________________________________________'
print,'***Do you want to plot the (Sci Sum) spin rate profile for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & plot_spin &$
print,'___________________________________________________' &$
ans='' &$
read,'***Do you want to compare with IST3 data (y or n)?: ',ans     &$
if ans eq 'y' then oplot_spin,'/mdf3/10Jun97/Log/IST3_co1_10Jun97' &$
retall & endif

cd,Log
print,'__________________________________________________________'
print,'***Do you want to plot the (Sci Sum) altitude profile for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & plot_alt &$
print,'___________________________________________________' &$
ans='' &$
read,'***Do you want to compare with IST3 data (y or n)?: ',ans    &$
if ans eq 'y' then oplot_alt,'/mdf3/10Jun97/Log/IST3_co1_10Jun97' &$
retall & endif

print,'__________________________________________________________'
ans=''
read,'***Do you want print-outs of spin & altitude data (y or n)?: ',ans
if ans eq 'y' then begin & pland & plot_alt,Log &$
 oplot_alt,'/mdf3/10Jun97/Log/IST3_co1_10Jun97' & plot_spin,Log &$
 oplot_spin,'/mdf3/10Jun97/Log/IST3_co1_10Jun97' & pend & endif

cd,Log
print,'______________________________________________'
print,'***Do you want to Plot the Sun Sensor data for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then begin &$
   sun_sensor &$
   cd,Log &$
 endif
retall

cd,Log
print,'___________________________________________'
print,'***Do you want to Plot the Clock Drift for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then plot_drift,Log
retall

cd,Log
print,'_________________________________________________'
print,'***Do you want to Plot the DDB & DISR clocks for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then plot_time,Log
retall

cd,Log
print,'_______________________________________'
print,'***Do you want to print Thumbnails for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then thumbnails,Log
retall

cd,Log
print,'______________________________________________________'
print,'***Do you want to plot the Time-Ordered List data for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then plot_tolist,Log
retall
cd,Log

cd,Log
print,'_________________________________________________'
print,'***Do you want to run cycle_type_vs_alt_plot for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then cycle_type_vs_alt_plot,Log
retall
cd,Log

cd,Log
print,'_____________________________________________________________'
print,'***Do you want to run the protoflight sun_sensor_history now?  '
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then read,'Are you Sure? (y or n): ',ans
 if ans eq 'y' then sun_sensor_history,"/mdisr2_cal"
retall
cd,Log

cd,Log
print,'_________________________________________________'
print,'***Do you want to run the flight sun_sensor_history now?  '
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then sun_sensor_history,"/mdf3"
retall
cd,Log

cd,Log
print,'_____________________________________________________________'
print,'***Do you want to run the protoflight sun_lamp_history now?  '
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then read,'Are you Sure? (y or n): ',ans
 if ans eq 'y' then sun_lamp_history,"/mdisr2_cal"
retall
cd,Log

cd,Log
print,'_________________________________________________'
print,'***Do you want to run the flight sun_lamp_history now?  '
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then sun_lamp_history,"/mdf3"
retall
cd,Log


cd,Log
print,'_________________________________________________'
print,'***Do you want to run the Descent Errors program now?  '
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then descent_errors
print,'** The result is in the Log file as descent_errors.out **'


!p.ticklen=.02		;returns to no grid
!x.gridstyle=0		;solid gridlines
!y.gridstyle=0		;solid gridlines
!p.multi=[0,1,1]
!X.range=[0,0]
!Y.range=[0,0]
retall
!y.title = ''
!x.title = ''
!p.title = ''
!p.color=255		;tv data 8 bits (0 to 255)
!p.background=0		;background is black
close,/all
set_plot,'WIN'
cd,cdir
print,''
pwd
print,''
print,"TTha TTha TTha That's all folks!"