smokeNsend.pl

#!perl
#
die
"Usage: username password [git-branch] [toggle for main repo] [extra options for smolder_smoke_signal]. \n Found @ARGV args"
if$#ARGV < 1;
my$revision = `git log --pretty='%h' -n 1`;

if ( !$revision ) #Don't have pretty format supported in git so using regex
{
$revision = `git log -n 1`;

$revision =~ /commit (\w{8})/;

$revision = $1;
}

if ( !$ARGV[4] ) {
systemsplit'', "git pull origin $ARGV[2]"
if ( $ARGV[2] && !( $ARGV[3] ) );
systemsplit'', "git pull git://github.com/kthakore/SDL_perl.git $ARGV[2]"
if$ARGV[3];
system( 'perl', 'Build.PL' );
system( 'perl', 'Build' );
unlink('sdl.tar.gz');
systemsplit'', 'prove -vlbm --archive sdl.tar.gz';
}

my$cmd =
"perl tools/smolder_smoke_signal --server sdlperl.ath.cx --port 8080 --username $ARGV[0] --password $ARGV[1] --file sdl.tar.gz --project SDL --architecture $] --platform $^O $ARGV[3] --revision $revision";
warn$cmd;
systemsplit'', $cmd;