zimbardo/bin/server-mojo.pl

#!/usr/bin/perl

use strict;
use warnings;

# debug enviroment vars
$ENV{MOJO_TEMPLATE_DEBUG} = 1;
$ENV{MOJO_LOADER_DEBUG} = 1;
#$ENV{MOJO_BASE_DEBUG} = 1;
$ENV{MOJO_SERVER_DEBUG} = 1;
$ENV{MOJOX_ROUTES_DEBUG} = 1;
$ENV{MOJO_RELOAD} = 1;

use FindBin;

use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/../../lib";

$ENV{MOJO_APP} = 'Frey::Mojo';

use Frey::Bootstrap;

# Check if Mojo is installed
eval 'use Mojolicious::Scripts';
if ($@) {
    print <<EOF;
It looks like you don't have the Mojo Framework installed.
Please visit http://getmojo.kraih.com for detailed installation instructions
or try to run Fray with one of other supported servers.

EOF
    exit;
}

# Start the script system
my $scripts = Mojo::Scripts->new;
$scripts->run(@ARGV || 'daemon');
1	dpavlin	267	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6	dpavlin	307	# debug enviroment vars
7			$ENV{MOJO_TEMPLATE_DEBUG} = 1;
8			$ENV{MOJO_LOADER_DEBUG} = 1;
9			#$ENV{MOJO_BASE_DEBUG} = 1;
10			$ENV{MOJO_SERVER_DEBUG} = 1;
11			$ENV{MOJOX_ROUTES_DEBUG} = 1;
12			$ENV{MOJO_RELOAD} = 1;
13
14	dpavlin	267	use FindBin;
15
16			use lib "$FindBin::Bin/lib";
17			use lib "$FindBin::Bin/../lib";
18			use lib "$FindBin::Bin/../../lib";
19
20			$ENV{MOJO_APP} = 'Frey::Mojo';
21
22	dpavlin	633	use Frey::Bootstrap;
23
24	dpavlin	267	# Check if Mojo is installed
25			eval 'use Mojolicious::Scripts';
26			if ($@) {
27			print <<EOF;
28			It looks like you don't have the Mojo Framework installed.
29	dpavlin	307	Please visit http://getmojo.kraih.com for detailed installation instructions
30			or try to run Fray with one of other supported servers.
31	dpavlin	267
32			EOF
33			exit;
34			}
35
36			# Start the script system
37	dpavlin	633	my $scripts = Mojo::Scripts->new;
38	dpavlin	307	$scripts->run(@ARGV \|\| 'daemon');