diff options
-rw-r--r-- | Spline/Srs.pm | 17 |
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'; } |