Debugging postpush.pl

This commit is contained in:
David Brown 2016-06-27 17:49:22 +01:00
parent 71e5e38d89
commit dff410e5b5

View file

@ -20,24 +20,24 @@ sub writelog {
writelog "Postpush."; writelog "Postpush.";
my $postdata = from_json(param('POSTDATA')); # my $postdata = from_json(param('POSTDATA'));
#
my $url = $postdata->{'repository'}->{'url'}; # my $url = $postdata->{'repository'}->{'url'};
my $ref = $postdata->{'ref'}; # my $ref = $postdata->{'ref'};
my $name = $postdata->{'head_commit'}->{'author'}->{'name'}; # my $name = $postdata->{'head_commit'}->{'author'}->{'name'};
#
my $branch = $ref; $branch =~ s'^.*\/''; # my $branch = $ref; $branch =~ s'^.*\/'';
my $repo = $url; $repo =~ s'^.*\/''; # my $repo = $url; $repo =~ s'^.*\/'';
#
#my $repo="repo"; my $branch="branch"; my $name="name"; # #my $repo="repo"; my $branch="branch"; my $name="name";
#
writelog "Repository $repo, branch $branch, name $name."; # writelog "Repository $repo, branch $branch, name $name.";
#
print header(), # print header(),
start_html("Vishap Oberon github post push web hook."), # start_html("Vishap Oberon github post push web hook."),
p("Repository $repo, branch $branch, name $name."), # p("Repository $repo, branch $branch, name $name."),
end_html(); # end_html();
#
system 'ssh root@oberon perl vishap/voc/src/tools/testcoordinator/buildall.pl >/tmp/buildall.log &'; # system 'ssh root@oberon perl vishap/voc/src/tools/testcoordinator/buildall.pl >/tmp/buildall.log &';
#
writelog "Buildall triggered." # writelog "Buildall triggered."