lib/SGN/Controller/Help.pm

   1
   2 package SGN::Controller::Help;
   3
   4 use Moose;
   5
   6 BEGIN { extends "Catalyst::Controller"; }
   7
   8 sub about: Path('/about') Args(0) {
   9     my $self = shift;
  10
  11     $self->help(@_);
  12 }
  13
  14 sub help : Path('/help') Args(0) {
  15     my $self = shift;
  16     my $c = shift;
  17
  18     $c->stash->{template} = '/help/index.mas';
  19 }
  20
  21 sub help_section : Path('/help') Args(1) {
  22     my $self = shift;
  23     my $c = shift;
  24     my $section = shift;
  25     $section =~ s/\.\.//g; # prevent shenanigans
  26
  27
  28     my $component = '/help/'.$section.".mas";
  29     if ($c->view("Mason")->interp->comp_exists($component)) {
  30         $c->stash->{basepath} = $c->config->{basepath};
  31         $c->stash->{documents_subdir} = $c->config->{documents_subdir};
  32         $c->stash->{template} = '/help/'.$section.".mas";
  33
  34
  35     }
  36     else {
  37         $c->stash->{template} = '/generic_message.mas';
  38         $c->stash->{message}  = 'The requested page could not be found. <br /><a href="/help">Help page</a>';
  39     }
  40 }
  41
  42 1;