Introduction into SPIP - Simple Presentations In Perl

Templates 3

On the code side the use of HTML::Template looks like this:

• Create the template object:

      my $template = HTML::Template->new(
          filename => $dir . '/templates/spip_css.tmpl'
      );

• Fill in the parameters:

      $template->param(PAGEBACKGROUND => $config->{css}->{pagebackground});
      $template->param(TEXTCOLOR      => $config->{css}->{textcolor}     );
      $template->param(TEXTFONT       => $config->{css}->{textfont}      );
      $template->param(FONTSIZE       => $config->{css}->{fontsize}      );
      ...

• Write out the file:

      {
          my $css = new IO::File '>' . $cssfile
              or die "Can't open '$cssfile': $!";
          print $css $template->output();
      }