From bddd1298462642ad04c5cfc0f3b0d062e2e2806c Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sat, 9 Jan 2010 19:39:52 -0500
Subject: [PATCH] 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;
-- 
2.26.2