#!/usr/bin/perl

use strict;

use Env qw(JR_HOME);

my $jrc;
my $jrrun;

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

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

$jrc = "perl \"".$JR_HOME."/bin/jrc\"";
$jrrun = "perl \"".$JR_HOME."/bin/jrrun\"";

## list JR version number
system("$jrc -version");
if ( $? ) {
    die "$0: problem getting version from $jrc\n";
}

##system("$jrrun -version");
##if ( $? ) {
##    die "$0: problem getting version from $jrrun\n";
##}
## above is old code, but wanted to line up jrc and jrrun version info, so:
my $v = `$jrrun -version`;
if ( $? ) {
    die "$0: problem getting version from $jrrun\n";
}
$v =~ s/version/     version/;
print "$v";
