From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sun, 10 Jan 2010 00:39:52 +0000 (-0500)
Subject: add noop operation similar to the ruby version
X-Git-Tag: msva-perl/0.1~32^2~2^2
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=bddd1298462642ad04c5cfc0f3b0d062e2e2806c;p=monkeysphere-validation-agent.git

add noop operation similar to the ruby version
---

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;