Don't allow silly timezones like GMT+31421858231489.

master
GlitchMr 2012-09-28 10:30:28 +02:00
parent c8ef5a9529
commit 4bfcb5fa14
1 changed files with 3 additions and 2 deletions

View File

@ -75,6 +75,7 @@ sub to_time(_) {
}
handle query => sub {
my $timezone = qr/(\w+(?:\s*[+-]0*[0-9]{1,5}(?::[0-5][0-9])?)?)?/;
my (
# Time
$hour, $minutes, $seconds, $pm,
@ -102,7 +103,7 @@ handle query => sub {
# Spaces between tokens
\s* \b
# Optional input timezone
(\w+ (?: \s* [+-]\d+ (?: : \d\d )? )? )?
$timezone
# Spaces
\s+
# in keywords
@ -110,7 +111,7 @@ handle query => sub {
# Spaces
\s+
# Output timezone
(\w+ (?: \s* [+-]\d+ (?: : \d\d )? )? )?
$timezone
\s* \z
}x or return;