From 3c291a79d0b41d030ce431394c2309cf62d303cb Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Mon, 8 Aug 2016 21:03:08 +0200 Subject: Add check mode for address verification only --- Spline/Srs.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) 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'; } -- cgit v1.2.3-1-g7c22