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'); |