#!/usr/bin/perl

use strict;

my ($filename, $contact_info, $institution_desc, $institution_url, $institution_id, $platform_id, $package_id, $latitude, $longitude, $data_url, $filename_search, $file_row_start, $file_row_comment, $file_field_separator, $file_field_missing_value, $column_time, $measurement_time_zone, $column_number_obs_1, $column_obs_1, $units_obs_1, $z_obs_1, $column_number_obs_2, $column_obs_2, $units_obs_2, $z_obs_2, $column_number_obs_3, $column_obs_3, $units_obs_3, $z_obs_3, $column_number_obs_4, $column_obs_4, $units_obs_4, $z_obs_4, $dods_url, $comment) = @ARGV;

if ($measurement_time_zone >= 0) {
	$measurement_time_zone = sprintf("+%02d", $measurement_time_zone);
}
else {
	$measurement_time_zone = sprintf("-%02d", -($measurement_time_zone));
}

#$measurement_time_zone = 'test';

open (XML_FILE, ">/tmp/ms_tmp/$filename");
my $content = `cat seacoos_xml_template.txt`;

$content =~ s/<CONTACT_INFO>/$contact_info/g;

#platform information

$content =~ s/<INSTITUTION_DESC>/$institution_desc/g;
$content =~ s/<INSTITUTION_URL>/$institution_url/g;

$content =~ s/<INSTITUTION_ID>/$institution_id/g;
$content =~ s/<PLATFORM_ID>/$platform_id/g;
$content =~ s/<PACKAGE_ID>/$package_id/g;

$content =~ s/<LATITUDE>/$latitude/g;
$content =~ s/<LONGITUDE>/$longitude/g;

#file information

$content =~ s/<DATA_URL>/$data_url/g;
$content =~ s/<FILENAME_SEARCH>/$filename_search/g;
$content =~ s/<FILE_ROW_START>/$file_row_start/g;
$content =~ s/<FILE_ROW_COMMENT>/$file_row_comment/g;
$content =~ s/<FILE_FIELD_SEPARATOR>/$file_field_separator/g;
$content =~ s/<FILE_FIELD_MISSING_VALUE>/$file_field_missing_value/g;

$content =~ s/<COLUMN_TIME>/$column_time/g;
$content =~ s/<MEASUREMENT_TIME_ZONE>/$measurement_time_zone/g;

#column information

$content =~ s/<COLUMN_NUMBER_OBS_1>/$column_number_obs_1/g;
$content =~ s/<COLUMN_OBS_1>/$column_obs_1/g;
$content =~ s/<UNITS_OBS_1>/$units_obs_1/g;
$content =~ s/<Z_OBS_1>/$z_obs_1/g;

$content =~ s/<COLUMN_NUMBER_OBS_2>/$column_number_obs_2/g;
$content =~ s/<COLUMN_OBS_2>/$column_obs_2/g;
$content =~ s/<UNITS_OBS_2>/$units_obs_2/g;
$content =~ s/<Z_OBS_2>/$z_obs_2/g;

$content =~ s/<COLUMN_NUMBER_OBS_3>/$column_number_obs_3/g;
$content =~ s/<COLUMN_OBS_3>/$column_obs_3/g;
$content =~ s/<UNITS_OBS_3>/$units_obs_3/g;
$content =~ s/<Z_OBS_3>/$z_obs_3/g;

$content =~ s/<COLUMN_NUMBER_OBS_4>/$column_number_obs_4/g;
$content =~ s/<COLUMN_OBS_4>/$column_obs_4/g;
$content =~ s/<UNITS_OBS_4>/$units_obs_4/g;
$content =~ s/<Z_OBS_4>/$z_obs_4/g;

#other  information

$content =~ s/<DODS_URL>/$dods_url/g;
$content =~ s/<COMMENT>/$comment/g;

print XML_FILE $content;

close (XML_FILE);

exit 0;