[Pkg-privacy-commits] [msva-perl] 38/356: add noop operation similar to the ruby version

[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 bddd1298462642ad04c5cfc0f3b0d062e2e2806c
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Sat Jan 9 19:39:52 2010 -0500

    add noop operation similar to the ruby version
---
 msva | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/msva b/msva
index 09279bb..63930c8 100755
--- a/msva
+++ b/msva
@@ -16,6 +16,7 @@ use strict;
   use JSON;
 
   my %dispatch = (
+                  '/' => \&noop,
                   '/reviewcert' => \&reviewcert,
                   '/extracerts' => \&extracerts,
                  );
@@ -32,6 +33,14 @@ use strict;
     return $self;
   }
 
+  sub noop {
+    my $self = shift;
+    my $cgi = shift;
+    return '200 OK', { available => JSON::true,
+                       protoversion => 1,
+                       server => "MSVA-Perl 0.1" };
+  }
+
   sub handle_request {
     my $self = shift;
     my $cgi  = shift;

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