#! perl -w
die "specify prefix: e.g. 'firebird' " unless $ARGV[0];
die "specify arch: e.g. i386_linux24" unless $ARGV[1];
$sys=$ARGV[1];
#die "unknown system" unless $sys eq "sgi_65" or $sys eq "sun4x_58" or $sys eq "i386_linux24";
print << "EOF";
#! /bin/sh
EOF
if ($ARGV[2]){
print STDERR "placing informational message $ARGV[2]\n";
print << "EOF";
cat >&2 $ARGV[2]
cat $ARGV[2] | zwrite \$USER > /dev/null
EOF
}
print << "EOF";
attach  -n -q infoagents

MOZILLA_FIVE_HOME=/afs/sipb.mit.edu/project/mozilla/.build.$ARGV[1]/installations/$ARGV[0]/mozilla
export MOZILLA_FIVE_HOME
EOF
if ($sys eq "sun4x_58" or $sys eq "sgi_65"){
print << 'EOF';
LD_LIBRARY_PATH=/usr/athena/lib${LD_LIBRARY_PATH+":$LD_LIBRARY_PATH"}
export LD_LIBRARY_PATH
EOF
}
print << 'EOF';
#PATH="/afs/sipb.mit.edu/project/mozilla/arch/@sys/RealPlayer8:/afs/sipb.mit.edu/project/mozilla/arch/@sys/jre/bin:$PATH"
#export PATH
mozname=$MOZILLA_FIVE_HOME/mozilla
exec $mozname "$@"
EOF