#!/usr/bin/env perl
use strict;
use warnings;
use CGI;

my $query = CGI->new;

print $query->header('text/plain');
open my $fh, '>', '/tmp/coderepos-last-commit' or exit;
my $yaml = $query->param('yaml');
exit if length $yaml > 10000;
print $fh $yaml;
close $fh;