examples/g.cgi

   1 #!/usr/bin/perl
   2
   3 use locale;
   4 use POSIX qw (locale_h);
   5 #setlocale(LC_ALL, 'es_ES');
   6
   7 use Gruta;
   8
   9 #sub BEGIN { $ENV{'DISPLAY'} = ":0.0"; } #!/usr/bin/perl -d:ptkdb
  10
  11 use Gruta::CGI;
  12 use Gruta::Source::DBI;
  13 use Gruta::Renderer::Grutatxt;
  14 use Gruta::Renderer::HTML;
  15 use Gruta::Template::Artemus;
  16
  17 my $base = '/var/www/gruta';
  18
  19 my $g = Gruta->new(
  20         sources         => [
  21                 Gruta::Source::DBI->new( string => "dbi:SQLite:$base/gruta.db" ),
  22         ],
  23         renderers       => [
  24                 Gruta::Renderer::Grutatxt->new(),
  25                 Gruta::Renderer::HTML->new(),
  26                 Gruta::Renderer::HTML->new( valid_tags => undef ),
  27         ],
  28         template        => Gruta::Template::Artemus->new( path =>
  29                 "${base}/templates" .
  30                 ':/usr/share/gruta/templates/artemus/ALL' .
  31                 ':/usr/share/gruta/templates/artemus/es'
  32         ),
  33         cgi             => Gruta::CGI->new()
  34 );
  35
  36 $g->run();