#!/usr/bin/perl

use strict;

use Env qw(RJ_HOME);

my $rjrun;

# Check to see if RJ_HOME has been defined
if ( !$RJ_HOME ) {
    $! = 1;
    die "$0 requires environment variable RJ_HOME\n" .
        "to be set to the absolute pathname of RJ's home\n";
}

# Make sure directory that RJ_HOME refers to exists and is readable
if ( (-e $RJ_HOME) != 1 || (-r $RJ_HOME )!=1 ) {
    $! = 1;
    die "$0: environment variable RJ_HOME set to " .
        $RJ_HOME .
        "\nbut that directory does not exist or is not readable\n";
}

$rjrun = "perl \"".$RJ_HOME."/tools/bin/rjrun\"";

## list RJ version number
my $v = `$rjrun -version`;
if ( $? ) {
    die "$0: problem getting version from $rjrun\n";
}
$v =~ s/version/     version/;
print "$v";
