1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283 |
- package Theme;
- use strict;
- use warnings;
- no warnings 'experimental';
- use feature qw{signatures};
- use File::Basename qw{basename};
- use lib 'lib';
- use Trog::Routes::HTML;
- our $default_title = 'Houston Perl Mongers';
- our $show_madeby = 1;
- our %routes = (
- '/about.html' => {
- method => 'GET',
- callback => sub {Trog::Routes::HTML::redirect_permanent('/about') },
- },
- '/meetings.html' => {
- method => 'GET',
- callback => \&Trog::Routes::HTML::series,
- data => { id => 1609008204, in_series => 1 },
- },
- '/announce_meeting.html' => {
- method => 'GET',
- callback => \&Trog::Routes::HTML::series,
- data => { id => 1609008204, in_series => 1, limit => 1 },
- },
- '/sponsors.html' => {
- method => 'GET',
- callback => \&sponsors,
- },
- '/faqs.html' => {
- method => 'GET',
- callback => \&faq,
- },
- '/projects/index.html' => {
- method => 'GET',
- callback => \&Trog::Routes::HTML::series,
- data => { id => 1608661217, in_series => 1 },
- },
- '/talks/mostrecent.html' => {
- method => 'GET',
- callback => \&Trog::Routes::HTML::series,
- data => { id => 1608661368, in_series => 1, limit => 1 },
- },
- '/talks/index.html' => {
- method => 'GET',
- callback => \&Trog::Routes::HTML::series,
- data => { id => 1608661368, in_series => 1 },
- },
- '/styles/houston.css' => {
- method => 'GET',
- callback => sub {Trog::Routes::HTML::redirect_permanent('/themes/houston.pm/styles/houston.css') },
- },
- '/talks/(\d.*)' => {
- method => 'GET',
- callback => sub {
- my ($query) = @_;
- Trog::Routes::HTML::redirect_permanent("/assets/talks/$query->{fragment}")
- },
- captures => ['fragment'],
- },
- );
- my $processor = Text::Xslate->new(
- path => 'www/themes/houston.pm/templates',
- );
- sub sponsors ($args, $render_cb) {
- my $out = $processor->render('sponsors.tx');
- return Trog::Routes::HTML::index($args,$render_cb, $out);
- }
- sub faq ($args, $render_cb) {
- my $out = $processor->render('faq.tx');
- return Trog::Routes::HTML::index($args,$render_cb, $out);
- }
- 1;
|