1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
use DBIx::Profile;
use Template;
use lib qw(lib);
use strict;
use DBI;
use CGI::FormBuilder::Template::TT2;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
warningsToBrowser(1);
$|=1; # Autoflush..
print "Content-type: text/html\n\n";
my $file = '../html/accueil.html';
my @fields = qw(OLA LALA);
my $form = CGI::FormBuilder::Template::TT2->new(
fields => \@fields,
template => {
type => 'TT2',
template => 'accueil.html',
variable => 'form',
}
);
my $template = Template->new(RELATIVE =>1,);
$template->process($file, '') || die "Template process failed: ", $template->error(), "\n"; |
