Changeset 74
- Timestamp:
- 09/20/09 15:32:37 (6 months ago)
- Files:
-
- trunk/Blogsum/Config.pm.dist (modified) (1 diff)
- trunk/admin.cgi (modified) (2 diffs)
- trunk/index.cgi (modified) (2 diffs)
- trunk/themes/default/admin.tmpl (moved) (moved from trunk/templates/admin.html)
- trunk/themes/default/index.tmpl (moved) (moved from trunk/templates/index.html)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/Blogsum/Config.pm.dist
r70 r74 16 16 ########################### 17 17 our $database = 'data/site.db'; 18 our $tmplfile_index = 'templates/index.html';19 our $tmplfile_admin = 'templates/admin.html';20 18 our $blog_theme = 'default'; 21 19 our $blog_title = 'example.com'; trunk/admin.cgi
r68 r74 10 10 use Blogsum::Config; 11 11 my $database = $Blogsum::Config::database; 12 my $tmplfile_admin = $Blogsum::Config::tmplfile_admin;13 12 my $blog_theme = $Blogsum::Config::blog_theme; 14 13 my $blog_title = $Blogsum::Config::blog_title; … … 20 19 my $cgi = CGI->new; 21 20 my $dbh = DBI->connect("DBI:SQLite:dbname=$database", '', '', { RaiseError => 1 }) || die $DBI::errstr; 22 my $template = HTML::Template->new(filename => $tmplfile_admin, die_on_bad_params => 0);21 my $template = HTML::Template->new(filename => "themes/${blog_theme}/admin.tmpl", die_on_bad_params => 0); 23 22 $template->param( theme => $blog_theme ); 24 23 my $view; trunk/index.cgi
r73 r74 11 11 use Blogsum::Config; 12 12 my $database = $Blogsum::Config::database; 13 my $tmplfile_index = $Blogsum::Config::tmplfile_index;14 13 my $blog_theme = $Blogsum::Config::blog_theme; 15 14 my $blog_title = $Blogsum::Config::blog_title; … … 35 34 my $cgi = CGI->new; 36 35 my $dbh = DBI->connect("DBI:SQLite:dbname=$database", '', '', { RaiseError => 1 }) || die $DBI::errstr; 37 my $template = HTML::Template->new(filename => $tmplfile_index, die_on_bad_params => 0);36 my $template = HTML::Template->new(filename => "themes/${blog_theme}/index.tmpl", die_on_bad_params => 0); 38 37 if ($cgi->param('rss')) { 39 38 output_rss();
