From 18657f9d2a8c6783930a4ffa2f566710f22a8347 Mon Sep 17 00:00:00 2001 From: Angel Ortega Date: Mon, 15 Sep 2008 11:37:21 +0200 Subject: [PATCH] Improved g.cgi example. --- examples/g.cgi | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/examples/g.cgi b/examples/g.cgi index 698b924..0528962 100755 --- a/examples/g.cgi +++ b/examples/g.cgi @@ -1,13 +1,13 @@ #!/usr/bin/perl +#!/usr/bin/perl -d:ptkdb +#sub BEGIN { $ENV{'DISPLAY'} = ":0.0"; } + use locale; use POSIX qw (locale_h); -#setlocale(LC_ALL, 'es_ES'); +#setlocale(LC_ALL, 'es_ES.UTF-8'); use Gruta; - -#sub BEGIN { $ENV{'DISPLAY'} = ":0.0"; } #!/usr/bin/perl -d:ptkdb - use Gruta::CGI; use Gruta::Source::DBI; use Gruta::Renderer::Grutatxt; @@ -19,6 +19,7 @@ my $base = '/var/www/gruta'; my $g = Gruta->new( sources => [ Gruta::Source::DBI->new( string => "dbi:SQLite:$base/gruta.db" ), +# Gruta::Source::FS->new( path => "${base}/var" ), ], renderers => [ Gruta::Renderer::Grutatxt->new(), @@ -26,11 +27,14 @@ my $g = Gruta->new( Gruta::Renderer::HTML->new( valid_tags => undef ), ], template => Gruta::Template::Artemus->new( path => - "${base}/templates" . + "${base}/var/templates" . ':/usr/share/gruta/templates/artemus/ALL' . ':/usr/share/gruta/templates/artemus/es' ), - cgi => Gruta::CGI->new() + cgi => Gruta::CGI->new( + upload_dirs => [ "${base}/img" ], + ), + base_url => 'http://example.com', ); $g->run(); -- 2.11.4.GIT