examples/g.cgi

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