#!/usr/bin/perl

use File::Basename;

$grhome =$ENV{GR_HOME};
$grhome ="/usr/X11R6/lib/X11/xmgr" if "$grhome" eq "";
$bin = "$grhome" . "/bin/xmgr";
$basename = basename($0);
if (-x "$bin") {
    exec $bin $basename, @ARGV;
} else {
    die "ERROR: Can't find any xmgr executable in $grhome/bin\n";
}
