trunk/bin/server-mojo.pl

#!/usr/bin/perl

# Copyright (C) 2008, Sebastian Riedel.

use strict;
use warnings;

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.

EOF
    exit;
}

# Start the script system
my $scripts = Mojolicious::Scripts->new;
$scripts->run(@ARGV);
1	dpavlin	267	#!/usr/bin/perl
2
3			# Copyright (C) 2008, Sebastian Riedel.
4
5			use strict;
6			use warnings;
7
8			use FindBin;
9
10			use lib "$FindBin::Bin/lib";
11			use lib "$FindBin::Bin/../lib";
12			use lib "$FindBin::Bin/../../lib";
13
14			$ENV{MOJO_APP} = 'Frey::Mojo';
15
16			# Check if Mojo is installed
17			eval 'use Mojolicious::Scripts';
18			if ($@) {
19			print <<EOF;
20			It looks like you don't have the Mojo Framework installed.
21			Please visit http://getmojo.kraih.com for detailed installation instructions.
22
23			EOF
24			exit;
25			}
26
27			# Start the script system
28			my $scripts = Mojolicious::Scripts->new;
29			$scripts->run(@ARGV);