#! /usr/bin/perl


use Data::Dumper;
use IO::File;
use IO::Handle;

my $csv_path;
my $csv_fh;
my $ice_headers;
my $line;

# , OWNER, GROUP, FREQ, NAME, MODE, STEP, OFFSET_DIRECTION, REPEATER_OFFSET, TONE_MODE, TONE_VALUE, RF_POWER, RX_FILTER_LOW, RX_FILTER_HIGH,HIGHLIGHT, HIGHLIGHT_COLOR, SQUELCH, SQUELCH_LEVEL, RTTY_MARK, RTTY_SHIFT, DIGL_OFFSET, DIGU_OFFSET

$ssdr_headers =
[
  "col_1",
  "OWNER",
  "GROUP",
  "FREQ",
  "NAME",
  "MODE",
  "STEP",
  "OFFSET_DIRECTION",
  "REPEATER_OFFSET",
  "TONE_MODE",
  "TONE_VALUE",
  "RF_POWER",
  "RX_FILTER_LOW",
  "RX_FILTER_HIGH",
  "HIGHLIGHT",
  "HIGHLIGHT_COLOR",
  "SQUELCH",
  "SQUELCH_LEVEL",
  "RTTY_MARK",
  "RTTY_SHIFT",
  "DIGL_OFFSET",
  "DIGU_OFFSET"
];

$ice_to_ssdr_header_translations =
{
  'Ch'                            => "",
  'RX Freq'                       => "FREQ",
  'TX Freq'                       => "",
  '+/-'                           => "OFFSET_DIRECTION",
  'Offset'                        => "REPEATER_OFFSET",
  'TX PL'                         => "TONE_VALUE",
  'RX PL'                         => "",
  'DCARA / ARES I.C.E.'           => "",
  'NAME'                          => "NAME",
  'LONG NAME'                     => "",
  'col_11'                        => "",
  'Updated 3/22/17'               => "",
  'col_13'                        => "",
  'col_14'                        => "",
  'col_15'                        => "",
};

$ssdr_to_ice_header_translations =
{
  ""                              => "",
  "OWNER"                         => "",
  "GROUP"                         => "",
  "FREQ"                          => "RX Freq",
  "NAME"                          => "NAME",
  "MODE"                          => "",
  "STEP"                          => "",
  "OFFSET_DIRECTION"              => "+/-",
  "REPEATER_OFFSET"               => "Offset",
  "TONE_MODE"                     => "",
  "TONE_VALUE"                    => "TX PL",
  "RF_POWER"                      => "",
  "RX_FILTER_LOW"                 => "",
  "RX_FILTER_HIGH"                => "",
  "HIGHLIGHT"                     => "",
  "HIGHLIGHT_COLOR"               => "",
  "SQUELCH"                       => "",
  "SQUELCH_LEVEL"                 => "",
  "RTTY_MARK"                     => "",
  "RTTY_SHIFT"                    => "",
  "DIGL_OFFSET"                   => "",
  "DIGU_OFFSET"                   => "",
};

$csv_path = "DCARA_ICE_PLAN_60_RTSystems.csv";
$csv_fh   = IO::File -> new ( );
$csv_fh -> open ( $csv_path, "r" );

$line = $csv_fh -> getline ( );
@$ice_headers = split /,/, $line;
print Dumper $ice_headers;
exit;


while ( $line = $csv_fh -> getline ( ) )
{
  print $line;
}