trunk/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';

# 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 = Mojolicious::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			# Check if Mojo is installed
23			eval 'use Mojolicious::Scripts';
24			if ($@) {
25			print <<EOF;
26			It looks like you don't have the Mojo Framework installed.
27	dpavlin	307	Please visit http://getmojo.kraih.com for detailed installation instructions
28			or try to run Fray with one of other supported servers.
29	dpavlin	267
30			EOF
31			exit;
32			}
33
34			# Start the script system
35			my $scripts = Mojolicious::Scripts->new;
36	dpavlin	307	$scripts->run(@ARGV \|\| 'daemon');