package MCT;

use Mojo::Base 'Mojolicious';

our $VERSION = '0.01';

use Mojo::Pg; use MCT::Model; use MCT::Model::Countries;

has pg => sub { Mojo::Pg->new(shift->config->{db}) };

sub migrations { my $app = shift; $app->pg->migrations->from_file($app->home->rel_file('mct.sql')); }

sub startup { my $app = shift;

$app->plugin('Config' => file => $ENV{MOJO_CONFIG} || $app->home->rel_file('mct.conf')); $app->sessions->default_expiration(3600 * 24);

$app->_setup_database;

$app->_setup_secrets; $app->_setup_stripe; $app->_setup_validation;

$app->helper('model.db' => sub { $[0]->stash->{'mct.db'} ||= $[0]->app->pg->db }); $app->helper('model.conference' => sub { MCT::Model->newobject(Conference => db => shift->model->db, @) }); $app->helper('model.identity' => sub { MCT::Model->newobject(Identity => db => shift->model->db, @) }); $app->helper('model.presentation' => sub { MCT::Model->newobject(Presentation => db => shift->model->db, @) }); $app->helper('model.user' => sub { MCT::Model->newobject(User => db => shift->model->db, @) }); $app->helper('form_row' => \&_form_row);

$app->plugin('MCT::Plugin::Auth'); $app->plugin('AssetPack'); $app->_assets; $app->_routes; $app->migrations->migrate unless $ENV{MCT_SKIP_MIGRATION}; }

sub _assets { my $app = shift;

$app->asset->preprocessors->add( css => sub { my ($assetpack, $text, $file) = @_;

  if ($file =~ /font.*awesome/) {
    $$text =~ s!url\(["']../([^']+)["']\)!url(https://maxcdn.bootstrapcdn.com/font-awesome/4.3.0/$1)!g;
  }
},

);

$app->asset('mojoconf.js' => ( 'http://code.jquery.com/jquery-1.11.2.min.js', 'https://raw.githubusercontent.com/stripe/jquery.payment/master/lib/jquery.payment.js', '/js/main.js', '/js/stripe.js', ));

$app->asset('mojoconf.css' => ( 'http://cdnjs.cloudflare.com/ajax/libs/pure/0.6.0/pure-min.css', 'https://fonts.googleapis.com/css?family=Oswald:400,300,700', 'https://fonts.googleapis.com/css?family=PT+Sans+Narrow', 'https://maxcdn.bootstrapcdn.com/font-awesome/4.3.0/css/font-awesome.min.css', '/sass/mct.scss', )); }

sub _formrow { my ($c, $name, $model, $label, $field) = @;

return $c->tag(div => class => 'form-row', sub { return join('', $c->tag(label => for => "form_$name", sub { $label }), $field || $c->textfield($name, $model ? $model->$name : '', id => "form$name"), ); }); }

sub _routes { my $app = shift;

back compat

$app->plugin('MCT::Plugin::ACT' => {alias => ['/mojo2014'], path => '/2014', url => 'http://act.yapc.eu/mojo2014/'}); $app->routes->any('/*whatever' => {whatever => ''})->to(template => 'cancelled'); }

sub _setup_database { my $app = shift; my $migrations;

unless ($app->config->{db} ||= $ENV{MCT_DATABASEDSN}) { my $db = sprintf 'postgresql://%s@/mct%s', (getpwuid $<)[0] || 'postgresql', $app->mode; $app->config->{db} = $db; $app->log->warn("Using default database '$db'. (Neither MCT_DATABASE_DSN or config file was set up)"); } }

sub _setup_secrets { my $app = shift; my $secrets = $app->config('secrets') || [];

unless (@$secrets) { my $unsafe = join ':', $app->config('db'), $<, $(, $^X, $^O, $app->home; $app->log->warn('Using default (unsafe) session secrets. (Config file was not set up)'); $secrets = [Mojo::Util::md5_sum($unsafe)]; }

$app->secrets($secrets); }

sub _setup_stripe { my $app = shift; my $stripe = $app->config('stripe');

$stripe->{auto_capture} = 0; $stripe->{mocked} //= $ENV{MCT_MOCK}; $app->plugin('StripePayment' => $stripe); }

sub _setup_validation { my $app = shift; $app->validator->addcheck(country => sub { my ($validation, $name, $value) = @; MCT::Model::Countries->name_from_code($value) ? undef : ['country']; }); }

1;

=head1 NAME

MCT - Mojo conference toolkit

=head1 DESCRIPTION

L is a L based web application for running conferences.

THIS PROJECT IS UNDER HEAVY DEVELOPMENT. ANY CHANGES CAN HAPPEN.

=head2 Features

The features below are ideas for what might be implemented:

=over 4

=item * Single sign on with OAuth2

We do not want to store user passwords, so instead we should use L to connect existing systems to L.

=item * Talk admin

All conference users can post talks. Conference admins can move talks into a schedule by accepting or rejecting talks.

=item * News

A very simple L based editor for news items and generation of an L<atom news feed|XML::Atom::Feed>.

=item * User management

Simple user groups need to be implemented: Admin and regular users.

=item * Wiki

A very simple L based editor for wiki pages.

=back

=head1 REQUIREMENTS

=over 4

=item * A PostgreSQL database.

Conference data, user information and talks are stored in the local database.

=back

=head1 SYNOPSIS

=head2 Create databases

Below is how you would create the databases in Ubuntu/Debian:

$ sudo -u postgres createuser $USER $ sudo -u postgres createdb -O $USER mct_development $ sudo -u postgres createdb -O $USER mct_production $ sudo -u postgres createdb -O $USER mct_test

Below is a nifty command that is usefule while developing. This command will drop all the tables in a database:

$ psql -c 'drop schema public cascade;create schema public' mct_test

=head2 Production

To use the default settings, simply start the application with L<hypnotoad|Mojo::Server::Hypnotoad>:

$ hypnotoad /path/to/mct/script/mct;

=head2 Development

To start developing, it's suggested to start mct with these options:

MCT_MOCK: Mock interaction with GitHub and other third parties

-w: Watch the directories for changes in case AssetPack need

to rebuild the static files.

$ MCT_MOCK=1 morbo script/mct -w public/sass -w public/js -w lib

=head1 AUTHOR

Glen Hinkle Elt>tempire@cpan.org<gt

Jan Henning Thorsen, Elt>jhthorsen@cpan.orgE<gt

Joel Berger, Elt>joel.a.berger@gmail.comE<gt

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2012-2014 by Joel Berger

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

=cut