move version number to separate variable

diff --git a/msva-perl b/msva-perl
index 3ace79f5b0a24ac88d28800c8f0ca29da7f61c46..ad8faaaf4236bcc9f6d31db4c84c30e4a51e146e 100755 (executable)
--- a/msva-perl
+++ b/msva-perl
@@ -34,6 +34,8 @@ use strict;
   use JSON;
   use POSIX qw(strftime);
 
+  my $version = '0.1';
+
   my %dispatch = (
                   '/' => { handler => \&noop,
                            methods => { 'GET' => 1 },
@@ -125,7 +127,7 @@ use strict;
     my $cgi = shift;
     return '200 OK', { available => JSON::true,
                        protoversion => 1,
-                       server => "MSVA-Perl 0.1" };
+                       server => "MSVA-Perl ".$version };
   }
 
   # returns an empty list if bad key found.