#!/usr/bin/perl 
use strict;

use LWP::Simple;

#print "debug\n";
my ($xml_source, $data_source, $file_longname_filter, $filter_type_1, $filter_args_1) = @ARGV;

my $url = "http://nautilus.baruch.sc.edu/services/seacoos_filter.php?xml_source=$xml_source&data_source=$data_source&filter=$filter_type_1&filter_args=$filter_args_1&file_ref=true";
#print "$url\n";

my $data_source_filtered_1 = get $url;

my $url = "http://nautilus.baruch.sc.edu/services/seacoos_xml_netcdf.php?xml_source=$xml_source&data_source=$data_source_filtered_1";
#print "$url\n";

getstore("$url","/home/scdata/scripts/netcdf_latest/$file_longname_filter\_latest.nc");

exit 0;