From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sat, 9 Jan 2010 21:26:58 +0000 (-0500)
Subject: parsing POSTed data
X-Git-Tag: msva-perl/0.1~41
X-Git-Url: http://git.tremily.us/gitweb.cgi?a=commitdiff_plain;h=57d56da62bb0599822e0ff81b0ebee86a6121397;p=monkeysphere-validation-agent.git

parsing POSTed data
---

diff --git a/msva b/msva
index d1a2281..9f7e5b7 100755
--- a/msva
+++ b/msva
@@ -41,11 +41,12 @@ use strict;
     return if !ref $cgi;
 
     # FIXME: these should be opening up a json blob instead of using CGI params.
-    my $uid = $cgi->param('uid');
-    my $pkc = $cgi->param('pkc');
-    my $context = $cgi->param('context');
+    my $data = from_json($cgi->param('POSTDATA'));
 
-    my $ret = { foo => 'bar' };
+    use Data::Dumper;
+    print STDERR Dumper($data);
+
+    my $ret = { valid => 'true' };
     # my $status = '404 no match found for the public key in this certificate';
     # or:
     my $status = '200 match found, authentication details to follow';