[sdlgit/SDL_perl.git] / tools / smokeNsend.pl

#!perl
#
die "Usage: username password [git-branch] [extra options for smolder_smoke_signal]. \n Found @ARGV args" if $#ARGV < 1;
system( 'perl',  'Build.PL');
system( 'perl', 'Build');
system split ' ', "git pull origin $ARGV[2]" if $ARGV[2];
system split ' ', 'prove -l -b --merge --archive sdl.tar.gz';
system split ' ', "perl tools/smolder_smoke_signal --server sdlperl.ath.cx:8080  --username $ARGV[0] --password $ARGV[1] --file sdl.tar.gz --project SDL --architecture $] --platform $^O $ARGV[3]";
Commit	Line	Data
6c315353	1	#!perl
6c315353	2	#
220633db	3	die "Usage: username password [git-branch] [extra options for smolder_smoke_signal]. \n Found @ARGV args" if $#ARGV < 1;
062699fa	4	system( 'perl', 'Build.PL');
062699fa	5	system( 'perl', 'Build');
220633db	6	system split ' ', "git pull origin $ARGV[2]" if $ARGV[2];
220633db	7	system split ' ', 'prove -l -b --merge --archive sdl.tar.gz';
991130f6	8	system split ' ', "perl tools/smolder_smoke_signal --server sdlperl.ath.cx:8080 --username $ARGV[0] --password $ARGV[1] --file sdl.tar.gz --project SDL --architecture $] --platform $^O $ARGV[3]";