summaryrefslogtreecommitdiff
path: root/LedgerSMB/Template/TXT.pm
blob: a950335ff9ec961969a57f0a2c455c5e64da760e (plain)
  1. =head1 NAME
  2. LedgerSMB::Template::TXT Template support module for LedgerSMB
  3. =head1 METHODS
  4. =over
  5. =item get_template ($name)
  6. Returns the appropriate template filename for this format.
  7. =item preprocess ($vars)
  8. Returns $vars.
  9. =item process ($parent, $cleanvars)
  10. Processes the template for text.
  11. =item postprocess ($parent)
  12. Returns the output filename.
  13. =back
  14. =head1 Copyright (C) 2007, The LedgerSMB core team.
  15. This work contains copyrighted information from a number of sources all used
  16. with permission.
  17. It is released under the GNU General Public License Version 2 or, at your
  18. option, any later version. See COPYRIGHT file for details. For a full list
  19. including contact information of contributors, maintainers, and copyright
  20. holders, see the CONTRIBUTORS file.
  21. =cut
  22. package LedgerSMB::Template::TXT;
  23. use Error qw(:try);
  24. use Template;
  25. use LedgerSMB::Template::TTI18N;
  26. sub get_template {
  27. my $name = shift;
  28. return "${name}.txt";
  29. }
  30. sub preprocess {
  31. my $rawvars = shift;
  32. return $rawvars;
  33. }
  34. sub process {
  35. my $parent = shift;
  36. my $cleanvars = shift;
  37. my $template;
  38. $template = Template->new({
  39. INCLUDE_PATH => $parent->{include_path},
  40. START_TAG => quotemeta('<?lsmb'),
  41. END_TAG => quotemeta('?>'),
  42. DELIMITER => ';',
  43. }) || throw Error::Simple Template->error();
  44. if (not $template->process(
  45. get_template($parent->{template}),
  46. {%$cleanvars, %$LedgerSMB::Template::TTI18N::ttfuncs,
  47. 'escape' => \&preprocess},
  48. "$parent->{outputfile}.txt", binmode => ':utf8')) {
  49. throw Error::Simple $template->error();
  50. }
  51. $parent->{mimetype} = 'text/plain';
  52. }
  53. sub postprocess {
  54. my $parent = shift;
  55. $parent->{rendered} = "$parent->{outputfile}.txt";
  56. return "$parent->{outputfile}.txt";
  57. }
  58. 1;