Cross Reference: /hets/utils/genRules

	genRules revision 2363f62e2f4f9e42bd99d5276f237093a7801f2d
#!/usr/local/bin/perl

use strict;
use File::Basename;

my $un=`uname`;
my $suf = 'unknown';

$un =~ m"^SunOS" && do {$suf = "solaris"};
$un =~ m"^Linux" && do {$suf = "linux"};

if($suf eq 'unknown') {
    print STDERR "Unknown system\nSupported systems: solaris (SunOS), Linux\n";
    exit 1;
}

if ($suf eq 'linux') {
    my $tmp = $ENV{'LD_LIBRARY_PATH'} if exists $ENV{'LD_LIBRARY_PATH'};
    if (defined $tmp) {
	$ENV{'LD_LIBRARY_PATH'} = "$tmp:/usr/local/lib";
    } else {
	$ENV{'LD_LIBRARY_PATH'} = "/usr/local/lib";
    }
}

exec("$0.$suf",@ARGV);
print STDERR 'couldn\'t exec "',"$0.$suf","\"\n";
exit 2;