lib/SGN.pm

   1
   2 =head1 NAME
   3
   4 SGN - Catalyst-based application to run the SGN website.
   5
   6 =head1 SYNOPSIS
   7
   8     script/sgn_server.pl
   9
  10 =head1 DESCRIPTION
  11
  12 This is the main class for the Sol Genomics Network main website.
  13
  14 =cut
  15
  16 package SGN;
  17 use Moose;
  18 use namespace::autoclean;
  19
  20 BEGIN {
  21     $ENV{WEB_PROJECT_NAME} = $ENV{PROJECT_NAME} = __PACKAGE__;
  22 }
  23
  24 use SGN::Exception;
  25
  26 use Catalyst::Runtime 5.80;
  27
  28 =head1 ROLES
  29
  30 Does the roles L<SGN::Role::Site::Config>,
  31 L<SGN::Role::Site::DBConnector>, L<SGN::Role::Site::DBIC>,
  32 L<SGN::Role::Site::Exceptions>, L<SGN::Role::Site::Files>,
  33 L<SGN::Role::Site::Mason>, L<SGN::Role::Site::SiteFeatures>,
  34 L<SGN::Role::Site::TestMode>
  35
  36 =cut
  37
  38 use Catalyst qw/
  39      ConfigLoader
  40      Static::Simple
  41      SmartURI
  42      Authentication
  43      Assets
  44      +SGN::Authentication::Store
  45      Authorization::Roles
  46      +SGN::Role::Site::Config
  47      +SGN::Role::Site::DBConnector
  48      +SGN::Role::Site::DBIC
  49      +SGN::Role::Site::Exceptions
  50      +SGN::Role::Site::Files
  51      +SGN::Role::Site::Mason
  52      +SGN::Role::Site::SiteFeatures
  53      +SGN::Role::Site::TestMode
  54  /;
  55
  56 extends 'Catalyst';
  57
  58 =head1 METHODS
  59
  60 =cut
  61
  62 # configure catalyst-related things.  in general, things should not be
  63 # added here.  add them to SGN.conf, with comments.
  64 __PACKAGE__->config(
  65
  66     name => 'SGN',
  67     root => 'static',
  68
  69     disable_component_resolution_regex_fallback => 1,
  70
  71     default_view => 'Mason',
  72
  73     # Static::Simple configuration
  74     'Plugin::Static::Simple' => {
  75         dirs => [qw[ css s static img documents static_content data ]],
  76     },
  77
  78     'Plugin::ConfigLoader' => {
  79         substitutions => {
  80             UID       => sub { $> },
  81             USERNAME  => sub { (getpwuid($>))[0] },
  82             GID       => sub { $) },
  83             GROUPNAME => sub { (getgrgid($)))[0] },
  84            },
  85        },
  86
  87     # configure SGN::Role::Site::TestMode.  These are the
  88     # configuration keys that it will change so that they point into
  89     # t/data
  90     'Plugin::TestMode' => {
  91         test_data_dir => __PACKAGE__->path_to('t','data'),
  92         reroot_conf   =>
  93             [qw(
  94
  95                 blast_db_path
  96                 cluster_shared_tempdir
  97                 ftpsite_root
  98                 image_path
  99                 genefamily_dir
 100                 homepage_files_dir
 101                 intron_finder_database
 102                 solqtl
 103                 static_content_path
 104                 static_datasets_path
 105                 trace_path
 106
 107                )],
 108        },
 109
 110     'Plugin::Cache'=>{
 111         backend => {
 112             store =>"FastMmap",
 113         },
 114     },
 115
 116
 117
 118     'Plugin::Authentication' => {
 119         default_realm => 'default',
 120         realms => {
 121             default => {
 122                 credential => {
 123                     class => '+SGN::Authentication::Credentials',
 124                 },
 125
 126                 store => {
 127                     class => "+SGN::Authentication::Store",
 128                     user_class => "+SGN::Authentication::User",
 129 ###                 role_column => 'roles',
 130                 },
 131             },
 132         },
 133     },
 134
 135     ( $ENV{SGN_TEST_MODE} ? ( test_mode => 1 ) : () ),
 136 );
 137
 138
 139 # on startup, do some dynamic configuration
 140 after 'setup_finalize' => sub {
 141     my $self = shift;
 142
 143     $self->config->{basepath} = $self->config->{home};
 144
 145     # all files written by web server should be group-writable
 146     umask 000002;
 147
 148     # update the symlinks used to serve static files
 149     $self->_update_static_symlinks;
 150 };
 151
 152 __PACKAGE__->setup;
 153
 154 sub _update_static_symlinks {
 155     my $self = shift;
 156
 157     # symlink the static_datasets and
 158     # static_content in the root dir so that
 159     # Catalyst::Plugin::Static::Simple can serve them.  in production,
 160     # these will be served directly by Apache
 161
 162     # make symlinks for static_content and static_datasets
 163     my @links =
 164         map [ $self->config->{$_.'_path'} =>
 165                $self->path_to( $self->config->{root}, $self->config->{$_.'_url'} )
 166             ],
 167         qw( static_content static_datasets );
 168
 169     for my $link (@links) {
 170         if( $self->debug ) {
 171             my $l1_rel = $link->[1]->relative( $self->path_to );
 172             $self->log->debug("symlinking static dir '$link->[0]' -> '$l1_rel'") if $self->debug;
 173         }
 174         unlink $link->[1];
 175         symlink( $link->[0], $link->[1] )
 176             or die "$! symlinking $link->[0] => $link->[1]";
 177     }
 178 }
 179
 180 =head1 SEE ALSO
 181
 182 L<SGN::Controller::Root>, L<Catalyst>
 183
 184 =head1 AUTHOR
 185
 186 The SGN team
 187
 188 =head1 LICENSE
 189
 190 This library is free software. You can redistribute it and/or modify
 191 it under the same terms as Perl itself.
 192
 193 =cut
 194
 195 1;