From: mike castleman Date: Sat, 9 Jan 2010 20:53:47 +0000 (-0500) Subject: move FIXME to the place where the fixing of me is needed X-Git-Tag: msva-perl/0.1~37^2~2 X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=948c6a0d8d344ff79d8555ca879c1a1c41fa95c7;p=monkeysphere-validation-agent.git move FIXME to the place where the fixing of me is needed --- diff --git a/msva b/msva index d1a2281..a6adb9f 100755 --- a/msva +++ b/msva @@ -25,9 +25,10 @@ use strict; my $path = $cgi->path_info(); my $handler = $dispatch{$path}; - # FIXME: ensure that this is a POST if (ref($handler) eq "CODE") { + # FIXME: ensure that this actually is a POST printf STDERR ("Got POST %s\n", $path); + my ($status, $object) = $handler->($cgi); printf("HTTP/1.0 %s\r\nContent-Type: application/json\r\n\r\n%s", $status, to_json ($object));