[Pkg-privacy-commits] [msva-perl] 05/356: do some logging on each request

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit 29356da8032a96d5d78953e4f2d644d1700b1ad5
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Tue Jan 5 21:33:26 2010 -0500

    do some logging on each request
---
 msva | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/msva b/msva
index 738d4c2..af5b657 100755
--- a/msva
+++ b/msva
@@ -25,7 +25,9 @@ use strict;
     my $path = $cgi->path_info();
     my $handler = $dispatch{$path};
 
+    # FIXME: ensure that this is a POST
     if (ref($handler) eq "CODE") {
+      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));
 
@@ -38,6 +40,7 @@ use strict;
     my $cgi  = shift;   # CGI.pm object
     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');

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git