+#!/usr/local/bin/perl
+use URI::Escape;
+use JSON;
+
+# Read in the POST data and URL-decode it.
+$data="";
+while (<>) {
+ $data .= $_;
+}
+$data = uri_unescape($data);
+$data =~ s/.*?=//; # JSON::decode_json doesn't like the 'payload=' prefix.
+
+# Save for debugging.
+open (MYFILE, '>./postdata.txt');
+print MYFILE $data;
+close (MYFILE);
+
+# Parse the JSON
+$perl_scalar = decode_json $data;
+$id=$perl_scalar->{'after'};
+die unless $id =~ /^[0-9][a-f]*$/;
+print "Id: $id\n";
+
+# Run the actual commit hook.
+system("./commit.sh $id");