#!/usr/bin/perl

use lib "/d3/projects/MET/MET_development/svn-met-dev.cgd.ucar.edu/trunk/test/lib";

use strict;
use warnings;

use VxUtil;

my $url_tmpl = "ftp://pftp.madis-data.noaa.gov/archive/{valid?fmt=%Y/%m/%d}/point/profiler/netcdf/{valid?fmt=%Y%m%d_%H}00.gz";

for my $valid (vx_date_build_list("20120409_00", "20120410_23", "01")){
  my $url = vx_file_tmpl_gen($url_tmpl, {valid => $valid});
  (my $nc = $url) =~ s|.+/(.+)|$1|;

  #print "wget $url\n";
  my @ret = qx/wget -q $url 2>&1/;
  $? and print "WARNING: wget returned non-zero exit status\n";

  #print "gunzip $nc\n";
  @ret = qx/gunzip $nc/;

  $nc =~ s/\.gz$//;
  #print "mv $nc profiler_$nc.nc\n";
  qx/mv $nc profiler_$nc.nc/;
  print "profiler_$nc.nc\n";
  
}