#!/usr/bin/perl -w

# Fetches the latest script.drao and adapts it to the current directory.
# See <a href="http://www.drao.nrc.ca/~rreid/software/drao/rds">rds</a>.

use DRAORed;

$use = q {
Use: transurv script.drao
};

my ($stokes, $band) = get_stokesandbandfromdir();

if($ARGV[0]){
  $draoscript = $ARGV[0];
}
unless($draoscript){
  die $use;
}

my $survey = &survey();
my ($visibs, $vnr) = &latestviscode($stokes, $band);

#print "survey = $survey, visibs = $visibs\n";

my $remscript = "$ENV{HOME}/rdses/$draoscript";
unless(-f $remscript){
  $remscript = `ls -dt1 \`locate /$draoscript | egrep -v '^/backup/(home|daily)/' | grep -v .rds\` | head -1`;
  print "remscript = $remscript";
}

open(REMSCRIPT, $remscript) or
  die "Could not read $remscript: $!";
open(LOCSCRIPT, "> $draoscript") or
  die "Could not open $draoscript for writing:$!";
while(<REMSCRIPT>){
  if(/.*  #! Survey name \(2-4 characters\):/){
    print LOCSCRIPT "$survey  #! Survey name (2-4 characters):\n";
  }
  elsif(/.*  #! Enter 2-character code of inpu/){
    print LOCSCRIPT "$visibs  #! Enter 2-character code of inpu\n";
  }
  elsif(/.*  #! UV plane code \(2 characters\):/){
    print LOCSCRIPT "$visibs  #! UV plane code \(2 characters\):\n";
  }
  elsif(/.*  #! (.*)I,Q,U(.*)/){
    print LOCSCRIPT "$stokes  #! ${1}I,Q,U$2\n";
  }
  elsif(/.*  #! Bands to be (.*)/){
    print LOCSCRIPT "$band  #! Bands to be $1\n";
  }
  elsif($draoscript =~ /\.ptsrcs/ and /.*  #! +(File definition number.*)/){
    my $ccind = fileindex("cc${band}.m${stokes}21");
#    print "ccind = $ccind\n";
    print LOCSCRIPT "$ccind  #! $1\n";
  }
  else{
    print LOCSCRIPT "$_";
#    print LOCSCRIPT;
  }
}
close(REMSCRIPT) or warn "Could not close $remscript: $!\n";
close(LOCSCRIPT) or warn "Could not close $draoscript: $!\n";