1use File::Basename; 2use Cwd 'abs_path'; 3 4my $REGDIR = abs_path(dirname($0)); 5my $RASTERDIR = abs_path($REGDIR . "/../raster/test/regress"); 6my $FILERASTER = $RASTERDIR . "/loader/testraster.tif"; 7 8link "loader/testraster.tif", "loader/BasicOutDB.tif"; 9 10open(OPTS, '>', 'loader/BasicOutDB.opts'); 11print OPTS "-F -C -R \"$FILERASTER\"\n"; 12close(OPTS); 13