lib/SGN/Controller/GPCP.pm

   1
   2 package SGN::Controller::GPCP;
   3
   4 use Moose;
   5 use Catalyst::Controller;
   6 use URI::FromHash 'uri';
   7
   8 BEGIN { extends 'Catalyst::Controller'; }
   9
  10 sub gpcp_input :Path('/tools/gcpc') Args(0) {
  11     my $self = shift;
  12     my $c = shift;
  13
  14     if (!$c->user) {
  15         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  16         return;
  17     }
  18     $c->stash->{template} = '/tools/gcpc/index.mas';
  19 }
  20
  21 1;