/tools/smokeNsend.pl
http://github.com/PerlGameDev/SDL · Perl · 31 lines · 24 code · 5 blank · 2 comment · 6 complexity · 59ddbc67a4ddfb0cb11b75149922a0aa MD5 · raw file
- #!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;