It was only a template toolkit test (the former coder used to code a lot of things in tt2 since it was annoying our boss...), the actual code is indeed done in Perl with Date::Calc and given to Template Toolkit.