#!/usr/bin/env perl
use Mojolicious::Lite;
# Documentation browser under "/perldoc"
plugin 'PODRenderer';
sub validate {
my $input=shift;
$input =~ s/\W/_/g;
return $input;
};
get '/' => sub {
my $c = shift;
$c->render('index');
};
get '/view/:ticket' => sub {
my $c = shift;
my $ticket = validate($c->param('ticket'));
$c->render(
'ticketing',
ticket => $ticket,
);
};
app->start;
__DATA__
@@ index.html.ep
% layout 'default';
% title 'Welcome';
Welcome to the Mojolicious real-time web framework!
@@ layouts/default.html.ep
<%= title %>
<%= content %>
@@ ticketing.html.ep
% layout 'default';
% title 'Ticket Viewing';
This is where the business happens for <%= $ticket %>