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 (
$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
: '05:00'
);
@ -6022,7 +6022,7 @@ sub getTimeUpLate {
}
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
: '08:30'
);
@ -6037,7 +6037,7 @@ sub getTimeDownEarly {
}
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
: '16:00'
);
@ -6052,7 +6052,7 @@ sub getTimeDownLate {
}
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
: '22:00'
);
@ -6068,7 +6068,7 @@ sub getTimeUpWeHoliday {
}
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
: '08:00'
);
@ -7780,7 +7780,7 @@ sub getblockAscDrivesAfterManual {
],
"release_status": "under develop",
"license": "GPL_2",
"version": "v0.8.3",
"version": "v0.8.4",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"
],