#!/usr/athena/bin/perl

$LOCKER = "sunsoft";
$LOCKERNAME = "sunsoft.new";

if (! -d ("/mit/$MOUNTNAME")) {
	system("attach ${LOCKERNAME} > /dev/null");
}

$sunbase="/mit/sunsoft/sunwspro";

$ENV{"LD_LIBRARY_PATH"} = "${sunbase}/lib:/usr/openwin/lib";
$ENV{"LM_LICENSE_FILE"} = "${sunbase}/SunTech_License/license.dat";
$ENV{"SUNPRO_SB_EX_FILE_NAME"} = "${sunbase}/SC3.0.1/lib/sun_source_brower.ex";

$pos = rindex ($0, "/") + 1;
$prog = substr ($0, $pos);

exec ("/afs/sipb/user/jhawk/dbx/dbx", @ARGV) || 
    die "Can't run ${sunbase}/bin/$prog: $!\n";