mirror of
https://github.com/ChronosX88/FreePastry.git
synced 2024-12-04 23:32:18 +00:00
66 lines
2.0 KiB
Perl
66 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Copyright 2001,2003-2004 The Apache Software Foundation
|
|
#
|
|
# Licensed under the Apache License, Version 2.0 (the "License");
|
|
# you may not use this file except in compliance with the License.
|
|
# You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
#
|
|
#######################################################################
|
|
#
|
|
# antRun.pl
|
|
#
|
|
# wrapper script for invoking commands on a platform with Perl installed
|
|
# this is akin to antRun.bat, and antRun the SH script
|
|
#
|
|
# created: 2001-10-18
|
|
# author: Jeff Tulley jtulley@novell.com
|
|
#######################################################################
|
|
#be fussy about variables
|
|
use strict;
|
|
|
|
#turn warnings on during dev; generates a few spurious uninitialised var access warnings
|
|
#use warnings;
|
|
|
|
#and set $debug to 1 to turn on trace info (currently unused)
|
|
my $debug=1;
|
|
|
|
#######################################################################
|
|
# change drive and directory to "%1"
|
|
my $ANT_RUN_CMD = @ARGV[0];
|
|
|
|
# assign current run command to "%2"
|
|
chdir (@ARGV[0]) || die "Can't cd to $ARGV[0]: $!\n";
|
|
if ($^O eq "NetWare") {
|
|
# There is a bug in Perl 5 on NetWare, where chdir does not
|
|
# do anything. On NetWare, the following path-prefixed form should
|
|
# always work. (afaict)
|
|
$ANT_RUN_CMD .= "/".@ARGV[1];
|
|
}
|
|
else {
|
|
$ANT_RUN_CMD = @ARGV[1];
|
|
}
|
|
|
|
# dispose of the first two arguments, leaving only the command's args.
|
|
shift;
|
|
shift;
|
|
|
|
# run the command
|
|
my $returnValue = system $ANT_RUN_CMD, @ARGV;
|
|
if ($returnValue eq 0) {
|
|
exit 0;
|
|
}
|
|
else {
|
|
# only 0 and 1 are widely recognized as exit values
|
|
# so change the exit value to 1
|
|
exit 1;
|
|
}
|