/[Frey]/trunk/bin/server-mojo.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/bin/server-mojo.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 633 - (hide annotations)
Sun Nov 30 01:46:13 2008 UTC (15 years, 4 months ago) by dpavlin
File MIME type: text/plain
File size: 797 byte(s)
work on Mojo server which is now partially supported
(form post doesn't seem to work yet)

This implementation is based on Mojo instead of Mojolicious
removing bunch of code and complications, so it will probably
become default once fixed
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');

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26