Add check mode for address verification onlyHEADmaster

1 files changed, 17 insertions, 0 deletions

diff --git a/Spline/Srs.pm b/Spline/Srs.pm
index ed83bac..915f1fb 100644
--- a/Spline/Srs.pm
+++ b/Spline/Srs.pm
@@ -121,6 +121,23 @@ sub handle($$) {
     elsif ($map eq 'reverse') {
         $result = $self->reverse($key);
     }
+    elsif ($map eq 'check') {
+        eval {
+            $self->reverse($key);
+        };
+
+        my $err = $@;
+        if ($err) {
+            if ($err =~ m/(Invalid hash|Invalid timestamp)/) {
+                return 'REJECT Invalid SRS';
+            }
+
+            return 'DUNNO';
+        }
+        else {
+            return 'OK';
+        }
+    }
     else {
         die 'Invalid request';
     }