#!/usr/bin/env perl
#
# file to queue chipRuns for the MD09 exposures from April 1 - June 25 2009
# md09 fields
my @dates = qw(
 2009-06-03     
 2009-06-04     
 2009-06-09     
 2009-06-16     
);

my $field = 'MD09';

foreach my $date (@dates) {

    my $tag = $date;
    $tag =~ s/\-//g;

    my $block = substr($date, 0, 7);
    $block =~ s/\-//g;
    $label = "$field.$block.v0";

    my $command = "chiptool -pretend -dbname gpc1 -definebyquery -set_label $label -dateobs_begin ${date}T00:00:00 -dateobs_end ${date}T23:59:59 -comment \'$field%\' -set_workdir neb://\@HOST\@.0/gpc1/$tag.stdsci.v0 -set_end_stage warp -set_tess_id $field -set_reduction STDSCIENCE_V0";

    print "$command\n";
}

