5 # Read in the POST data and URL-decode it.
10 $data = uri_unescape($data);
11 $data =~ s/.*?=//; # JSON::decode_json doesn't like the 'payload=' prefix.
14 open (MYFILE, '>./postdata.txt');
19 $perl_scalar = decode_json $data;
20 $id=$perl_scalar->{'after'};
21 die unless $id =~ /^[0-9][a-f]*$/;
24 # Run the actual commit hook.
25 system("./commit.sh $id");