/ 
HTML-FormFu-2.07
/ HTML::FormFu::Inflator::CompoundDateTime
Security Advisories (1)
CVE-2026-19873 (2026-08-31)

HTML::FormFu versions through 2.08 for Perl allow resource exhaustion via an unbounded repeat count from the query string in Repeatable elements. When a Repeatable element has counter_name set, its process method reads the repeat count from the named query string parameter, checks only that it is a positive integer, and passes it to repeat, which deep-clones the element's child subtree once per iteration. Nothing caps the value, and no attribute lets an application impose a limit. The count is read on every request, before the form decides whether it was submitted, so a plain GET reaches the clone loop with no credentials, no session and no request body. Nesting multiplies: a Repeatable inside a Repeatable takes a counter at each level, so an outer and an inner value of 100 build 10,000 clones. Once the form is submitted, each cloned field's constraints scan the whole element tree in _find_field_value, so cost grows faster than linearly with the count. A single request exhausts memory and CPU. The latest release on CPAN is 2.07, from 2018. Version 2.08 exists only in the git repository.

NAME

HTML::FormFu::Inflator::CompoundDateTime - CompoundDateTime inflator

VERSION

version 2.07

SYNOPSIS

---
element:
  - type: Multi
    name: date

    elements:
      - name: day
      - name: month
      - name: year

    inflator:
      - type: CompoundDateTime

# get the submitted value as a DateTime object

my $date = $form->param_value('date');

DESCRIPTION

For use with a HTML::FormFu::Element::Multi group of fields.

Changes the input from several fields into a single DateTime value.

By default, expects the field names to be any of the following:

year
month
day
hour
minute
second
nanosecond
time_zone

METHODS

field_order

Arguments: \@order

If your field names doesn't follow the convention listed above, you must provide an arrayref containing the above names, in the order they correspond with your own fields.

---
element:
  - type: Multi
    name: date

    elements:
      - name: m
      - name: d
      - name: y

    inflator:
      - type: CompoundDateTime
        field_order:
          - month
          - day
          - year

strptime

Arguments: \%args

Arguments: $string

Optional. Define the format that should be used if the DateTime object is stringified.

Accepts a hashref of arguments to be passed to "new" in DateTime::Format::Strptime. Alternatively, accepts a single string argument, suitable for passing to DateTime::Format::Strptime->new( pattern => $string ).

---
inflator:
  - type: CompoundDateTime
    strptime:
      pattern: '%d-%b-%Y'
      locale: de

---
inflator:
  - type: CompoundDateTime
    strptime: '%d-%m-%Y'

AUTHOR

Carl Franks

LICENSE

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Carl Franks <cpan@fireartist.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by Carl Franks.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.