#!/usr/bin/env perl

use strict;
use warnings;
use Inca::Reporter::Version;

my $reporter = new Inca::Reporter::Version(
  name => 'cluster.admin.ant.version',
  version => 4,
  description => 'Reports the version of Apache Ant',
  package_name => 'ant'
);
$reporter->processArgv(@ARGV);

my $ant = $reporter->loggedCommand( "ant -version" );
if ( $? ) {
  $reporter->failPrintAndExit("ant -version failed: $ant $!");
}
my($pre,$ver,$post) = undef;
if ( $ant =~ "Apache Ant version")  {
  ($pre, $ver, $post) = $ant =~ m/(Apache Ant version )(.[^\s]*)(.*)/;
}
if  (!defined($ver)) {
  $reporter->failPrintAndExit("Could not get version information");
}
$reporter->setPackageVersion($ver);
$reporter->print( );
exit;

Click here to see help information for the cluster.admin.ant.version reporter.