#!/usr/bin/perl -w

# Link, in both madr and the filesystem, a file in a remote directory into the
# current directory.

#use Cwd;
use DRAORed;

my $use = "Use: lnrget rdir fn [newname]";

unless($#ARGV == 1 || $#ARGV == 2){
  die $use;
}

my ($rdir, $fn, $newname) = @ARGV;
$newname ||= $fn;                    # Default to keeping the same name.

#my $cwd  = getcwd();
##print "cwd is $cwd\n";
#
#chdir $rdir or die "Could not chdir to $rdir";

my $rind = rfileindex($fn, $rdir, 1); # The 1 forces an EXACT match to $fn.

#print "rdir: $rdir\n";
#print "fn: $fn\n";
#print "newname: $newname\n";
#print "rind: $rind\n";

#my $cwd2  = `pwd`;
#print "rind = $rind in $cwd2\n";

#chdir "../../u/c" or die "Could not cd /jcmtdual2/rreid/reduction/gps/f/f4c21/u/c: $!";

#print "cwd is $cwd\n";
#chdir "$cwd" or die "Could not cd back: $!";

lnrget($rdir, $rind, $fn, $newname);