Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 32 lines (26 sloc) 0.95 kB
#!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;
Jump to Line
Something went wrong with that request. Please try again.