lib/Blog.pm

   1 package Blog;
   2
   3 use strict;
   4
   5 use Catalyst::Runtime '5.70';
   6
   7 use Catalyst::Authentication::Store::Minimal;
   8
   9 use Blog::NewDB;
  10 use Common::Unicode;
  11
  12 use Catalyst qw/
  13     Unicode
  14
  15     ConfigLoader
  16
  17     Static::Simple
  18
  19     Session
  20     Session::Store::FastMmap
  21     Session::State::Cookie
  22
  23     Authentication
  24     +Common::Plugin::Authorization::ACL::Paranoid
  25
  26     I18N
  27
  28     CustomErrorMessage
  29
  30     Singleton
  31     Assets
  32
  33     +CatalystX::Plugin::I18N::URI
  34   /;
  35
  36 our $VERSION = '0.04';
  37
  38 __PACKAGE__->dispatcher_class( 'Common::Dispatcher::LangDetect' );
  39
  40 __PACKAGE__->config(
  41     name             => 'Blog',
  42     style            => 'default',
  43     'Plugin::Assets' => {
  44         path        => '/static',
  45         output_path => 'built/',
  46         minify      => 1
  47     }
  48 );
  49
  50 __PACKAGE__->setup;
  51
  52 __PACKAGE__->acl(
  53     rules => {
  54         '/index' => 1,
  55
  56         '/user/login'        => sub { !shift->user_exists() },
  57         '/user/login_openid' => sub { !shift->user_exists() },
  58         '/user/logout'       => sub { shift->user_exists() },
  59
  60         '/post/list'         => 1,
  61         '/post/view'         => 1,
  62         '/post/feed'         => 1,
  63         '/post/archive'      => 1,
  64         '/post/archive_list' => 1,
  65
  66         '/page/view'         => 1,
  67
  68         '/tag/list' => 1,
  69         '/tag/view' => 1,
  70
  71         '/comment/add'  => 1,
  72         '/comment/feed' => 1,
  73
  74         '*' => sub { shift->user_in_realm( 'admins' ) }
  75     }
  76 );
  77
  78 __PACKAGE__->log->disable( 'debug' ) if !__PACKAGE__->debug;
  79
  80 =head1 NAME
  81
  82 Blog - Catalyst based application
  83
  84 =head1 AUTHOR
  85
  86 vti
  87
  88 =head1 LICENSE
  89
  90 This library is free software, you can redistribute it and/or modify
  91 it under the same terms as Perl itself.
  92
  93 =cut
  94
  95 1;