history: validate year and month
This commit is contained in:
parent
b0397e50b4
commit
59c677ba12
1 changed files with 12 additions and 2 deletions
|
@ -360,7 +360,10 @@ sub yearly_history {
|
||||||
my @journeys;
|
my @journeys;
|
||||||
my $stats;
|
my $stats;
|
||||||
|
|
||||||
if ( not $year =~ m{ ^ [0-9]{4} $ }x ) {
|
# DateTime is very slow when looking far into the future due to DST changes
|
||||||
|
# -> Limit time range to avoid accidental DoS.
|
||||||
|
if ( not( $year =~ m{ ^ [0-9]{4} $ }x and $year > 1990 and $year < 2100 ) )
|
||||||
|
{
|
||||||
@journeys = $self->get_user_travels;
|
@journeys = $self->get_user_travels;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
|
@ -409,7 +412,14 @@ sub monthly_history {
|
||||||
qw(Januar Februar März April Mai Juni Juli August September Oktober November Dezember)
|
qw(Januar Februar März April Mai Juni Juli August September Oktober November Dezember)
|
||||||
);
|
);
|
||||||
|
|
||||||
if ( not( $year =~ m{ ^ [0-9]{4} $ }x and $month =~ m{ ^ [0-9]{1,2} $ }x ) )
|
if (
|
||||||
|
not( $year =~ m{ ^ [0-9]{4} $ }x
|
||||||
|
and $year > 1990
|
||||||
|
and $year < 2100
|
||||||
|
and $month =~ m{ ^ [0-9]{1,2} $ }x
|
||||||
|
and $month > 0
|
||||||
|
and $month < 13 )
|
||||||
|
)
|
||||||
{
|
{
|
||||||
@journeys = $self->get_user_travels;
|
@journeys = $self->get_user_travels;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue