#!/usr/bin/perl -w
#

# This script processes an odsparm file (in Excel csv format) and creates individual parameter 
# description files for every defined parameter. The description files are used by the main
# ODS capture program in order to know how to handle and display each parameter.

my $dir = "/data/data065/nprovs/source/graphics/ods_capture/nucaps_ccr";

my $parmdef_dir = $dir . "/parm_defs";

my $odsparm_file = $dir . "/odsparm_nucaps_ccr.csv";


chdir $dir;


# Check for the existance of the parm_defs directory. If it doesn't exist then
# it will be created. If it does exist then everything in it will be deleted.

if (! -e $parmdef_dir)
  {
  printf("Creating the parm_def directory\n\n");
  mkdir $parmdef_dir;
  }
else
  {
  printf("Removing older parameter definition files from the parm_def directory\n");

  my @tempxmlfiles = glob $parmdef_dir . "/*.xml";

  foreach $file (@tempxmlfiles)
    {
    unlink $file;
    }
  }


# Run the program ConvertCSV which will do the conversion from the csv file
# to individual xml files for every parameter

symlink $parmdef_dir, "parmdefs.dir" or warn "Cannot link to parmdefs.dir";
symlink $odsparm_file, "fileparm.file" or warn "Cannot link to fileparm.file";

system "/data/data065/nprovs/source/graphics/ods_capture/shared/ConvertCSV.x";

unlink "parmdefs.dir" or warn "Cannot unlink parmdefs.dir";
unlink "fileparm.file" or warn "Cannot unlink fileparm.file";


# end of file
