/tools/smokeNsend.pl

http://github.com/PerlGameDev/SDL · Perl · 31 lines · 24 code · 5 blank · 2 comment · 6 complexity · 59ddbc67a4ddfb0cb11b75149922a0aa MD5 · raw file

  1. #!perl
  2. #
  3. die
  4. "Usage: username password [git-branch] [toggle for main repo] [extra options for smolder_smoke_signal]. \n Found @ARGV args"
  5. if $#ARGV < 1;
  6. my $revision = `git log --pretty='%h' -n 1`;
  7. if ( !$revision ) #Don't have pretty format supported in git so using regex
  8. {
  9. $revision = `git log -n 1`;
  10. $revision =~ /commit (\w{8})/;
  11. $revision = $1;
  12. }
  13. if ( !$ARGV[4] ) {
  14. system split ' ', "git pull origin $ARGV[2]"
  15. if ( $ARGV[2] && !( $ARGV[3] ) );
  16. system split ' ', "git pull git://github.com/kthakore/SDL_perl.git $ARGV[2]"
  17. if $ARGV[3];
  18. system( 'perl', 'Build.PL' );
  19. system( 'perl', 'Build' );
  20. unlink('sdl.tar.gz');
  21. system split ' ', 'prove -vlbm --archive sdl.tar.gz';
  22. }
  23. my $cmd =
  24. "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";
  25. warn $cmd;
  26. system split ' ', $cmd;