#!/usr/bin/perl

use VxUtil;

%mon = map { $_ => 1+$i++ } qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);

$sta = 1;
while(<>){
  if( /Selected time period: (\d\d):(\d\d)Z(\d\d)(\w+)(\d{4}) \- (\d\d):(\d\d)Z(\d\d)(\w+)(\d{4})/ ){
    $t1  = sprintf("%d%02d%02d_%02d%02d00",  $5, $mon{$4}, $3, $1, $2);
    $t2  = sprintf("%d%02d%02d_%02d%02d00", $10, $mon{$9}, $8, $6, $7);
    $vld = vx_date_calc_add($t2, "013000");
    $acc = vx_date_format_lead( vx_date_parse_date($t2) - vx_date_parse_date($t1), "HH" );
    $acc =~ s/^0+//;
    #print "t1 = $t1  t2 = $t2  acc = $acc\n";
  }
  elsif( /Selected time period: (\d\d):(\d\d)Z(\d\d)(\w+)(\d{4})/ ) {
    $t1  = sprintf("%d%02d%02d_%02d%02d00", $5, $mon{$4}, $3, $1, $2);
    $t2  = vx_date_calc_add($t1, 3);
    $vld = vx_date_calc_add($t1, "013000");
    $acc = vx_date_format_lead( vx_date_parse_date($t2) - vx_date_parse_date($t1), "HH" );
    $acc =~ s/^0+//;
    #print "t1 = $t1  t2 = $t2  acc = $acc\n";
  }
  next unless /^\d/;
  printf "ADPSFC  %05d  ${vld}  %8.3f  %8.3f  0  61  $acc  0  NA %9.4f\n", $sta++, split();
}