#!/home/aimsds/utils/perl64/bin/perl -I/home/aimsds/utils/perl64/html/site/lib

my $year = $ARGV[0];
my $yday = $ARGV[1];
my $yearday = ($year * 1000 ) + $yday;
# Create PANS and scp files to Hampton
my $command = "idl -e 'create_l2_pans, yd2ad( $yearday )'";
print "$command\n";
system( $command );
$command = "idl -e 'create_l3_pans, yd2ad( $yearday )'";
print "$command\n";
system( $command );

# Run remote script at Hampton to actually send the PANS
$command = "/aim/sds/cips/scripts/send_pans_to_hampton.sh $year $yday";
print "$command\n";
system( $command );
exit;