fix RegEx for Time format check

This commit is contained in:
Marko Oldenburg 2019-11-27 10:28:05 +01:00
parent a7519695f6
commit f654d4f8a5

View File

@ -6007,7 +6007,7 @@ sub getTimeUpEarly {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '05:00' : '05:00'
); );
@ -6022,7 +6022,7 @@ sub getTimeUpLate {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '08:30' : '08:30'
); );
@ -6037,7 +6037,7 @@ sub getTimeDownEarly {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '16:00' : '16:00'
); );
@ -6052,7 +6052,7 @@ sub getTimeDownLate {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '22:00' : '22:00'
); );
@ -6068,7 +6068,7 @@ sub getTimeUpWeHoliday {
} }
return ( return (
$val =~ /^(?:[01]\d|2[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/ $val =~ /^(?:[01]\d|2?[0-3]):(?:[0-5]\d)(:(?:[0-5]\d))?$/
? $val ? $val
: '08:00' : '08:00'
); );
@ -7780,7 +7780,7 @@ sub getblockAscDrivesAfterManual {
], ],
"release_status": "under develop", "release_status": "under develop",
"license": "GPL_2", "license": "GPL_2",
"version": "v0.8.3", "version": "v0.8.4",
"author": [ "author": [
"Marko Oldenburg <leongaultier@gmail.com>" "Marko Oldenburg <leongaultier@gmail.com>"
], ],