runant.pl

一个用Java开发的Web邮局

#!/usr/local/bin/perl
#######################################################################
#
# runant.pl
#
# wrapper script for invoking ant in a platform with Perl installed
# this may include cgi-bin invocation, which is considered somewhat daft.
# (slo: that should be a separate file which can be derived from this
# and returns the XML formatted output)
#
# the code is not totally portable due to classpath and directory splitting
# issues. oops. (NB, use File::Spec::Functions  will help and the code is
# structured for the catfile() call, but because of perl version funnies
# the code is not included. 
#
# created:         2000-8-24
# last modified:   2000-8-24
# author:          Steve Loughran [e-mail]
#######################################################################
#
# Assumptions:
#
# - the "java" executable/script is on the command path
# - ANT_HOME has been set
# - target platform uses ":" as classpath separator or perl indicates it is dos/win32
# - target platform uses "/" as directory separator.

#be fussy about variables
use strict;

#platform specifics (disabled)
#use File::Spec::Functions;

#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
my $debug=0;

#######################################################################
#
# check to make sure environment is setup
#

my $HOME = $ENV{ANT_HOME};
if ($HOME eq "")
	{
    die "\n\nANT_HOME *MUST* be set!\n\n";
	}

my $JAVACMD = $ENV{JAVACMD};
$JAVACMD = "java" if $JAVACMD eq "";

#ISSUE: what java wants to split up classpath varies from platform to platform 
#and perl is not too hot at hinting which box it is on.
#here I assume ":" 'cept on win32 and dos. Add extra tests here as needed.
my $s=":";
if(($^O eq "MSWin32") || ($^O eq "dos"))
	{
	$s=";";
	}

#build up standard classpath
my $localpath=$ENV{CLASSPATH};
if ($localpath eq "")
	{
	print "warning: no initial classpath\n" if ($debug);
	$localpath="";
	}

#add jar files. I am sure there is a perl one liner to do this.
my $jarpattern="$HOME/lib/*.jar";
my @jarfiles =glob($jarpattern);
print "jarfiles=@jarfiles\n" if ($debug);
my $jar;
foreach $jar (@jarfiles )
	{
	$localpath.="$s$jar";
	}

#if Java home is defined, look for tools.jar & classes.zip and add to classpath
my $JAVA_HOME = $ENV{JAVA_HOME};
if ($JAVA_HOME ne "")
	{
	my $tools="$JAVA_HOME/lib/tools.jar";
	if (-e "$tools")
		{
		$localpath .= "$s$tools";
		}
	my $classes="$JAVA_HOME/lib/classes.zip";
	if (-e $classes)
		{
		$localpath .= "$s$classes";
		}
	}
else
	{
    print "\n\nWarning: JAVA_HOME environment variable is not set.\n".
		"If the build fails because sun.* classes could not be found\n".
		"you will need to set the JAVA_HOME environment variable\n".
		"to the installation directory of java\n";
	}

#jikes
my @ANT_OPTS=split $ENV{ANT_OPTS};
if($ENV{JIKESPATH} ne "")
	{
	push @ANT_OPTS, "-Djikes.class.path=$ENV{JIKESPATH}";
	}

#construct arguments to java

my @ARGS;
push @ARGS, "-classpath", "$localpath", "-Dant.home=$HOME";
push @ARGS, @ANT_OPTS;
push @ARGS, "org.apache.tools.ant.Main";
push @ARGS, @ARGV;

print "\n $JAVACMD @ARGS\n\n" if ($debug);
system $JAVACMD, @ARGS;