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] ) {
	system split ' ', "git pull origin $ARGV[2]"
		if ( $ARGV[2] && !( $ARGV[3] ) );
	system split ' ', "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');
	system split ' ', '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;
system split ' ', $cmd;