#!/usr/bin/perl #--------------------------------------------------------------------------- # runfg -- front end for setting up the FG_ROOT env variable and launching # the fg executable. # # Written by Curtis Olson, started September 1997. # # Copyright (C) 1997 Curtis L. Olson - curt@infoplane.com # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # $Id$ # (Log is kept at end of this file) #--------------------------------------------------------------------------- # Flight Gear Version $version_major = "0"; # name of Flight Gear executable $program = "fg" . $version_major; # see if we can find the executable if ( -x "./Main/$program" ) { $path = "./Main/$program"; } elsif ( -x "./$program" ) { $path = "./$program"; } else { die "Cannot locate $program\n"; } # set the FG_ROOT environment variable if it hasn't already been set. if ( $ENV{FG_ROOT} eq "" ) { # look for a file called fgtop as a place marker if ( -e "fgtop" ) { $ENV{FG_ROOT} = "."; } elsif ( -e "../fgtop" ) { $ENV{FG_ROOT} = ".."; } } # run Flight Gear print "Running $path\n"; exec($path); #--------------------------------------------------------------------------- # $Log$ # Revision 1.2 1998/01/27 00:47:43 curt # Incorporated Paul Bleisch's new debug message # system and commandline/config file processing code. # # Revision 1.1 1997/10/28 18:47:27 curt # Initial revision. #