#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use Astro::Time;

my $mtu = 9000;
my $net_port = 9999;
my $protocol = 'udpsnor';
my $exper = 'junk';
my $antenna  = 'Pa';
my $mode = 'VDIFC_8000-16-1-2';
my $help = 0;
my $nscan = 4;
my $dur = 60;
my $gap = 10;
my $startOffset = 0;

GetOptions('mtu=i'=>\$mtu, 'net_port=i'=>\$net_port, 'port=i'=>\$net_port, 'help'=>\$help,
           'protocol=s'=>\$protocol, 'antenna=s'=>\$antenna, 'exper=s'=>\$exper, 'mode=s'=>\$mode,
	   'nscan=i'=>\$nscan, 'duration=i'=>\$dur, 'gap=i'=>\$gap, 'offset=i'=>\$startOffset);

print<<EOF;
mtu $mtu
net_port $net_port
mode $mode
net_protocol $protocol
exper $exper
antenna $antenna
EOF


my $start = now2mjd();
$start += $startOffset/(24.0*60.0*60.0);
$dur /= 24.0*60.0*60.0;
$gap /= 24.0*60.0*60.0;

for (my $i=0; $i<$nscan; $i++) {
  my $m1 = $start + $dur*$i;
  my $m2 = $m1+$dur-$gap;
  
  my ($dayno1, $year1, $ut1) = mjd2dayno($m1);
  my ($dayno2, $year2, $ut2) = mjd2dayno($m2);
  
  printf("No%04d %03d/%s %03d/%s\n", $i+1, $dayno1, turn2str($ut1,'H',0), $dayno2, turn2str($ut2,'H',0));
}