Parent Directory | Revision Log
use FREY_PORT from enviroment to run on port different than 14000
1 | dpavlin | 164 | #!/usr/bin/perl -w |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | use lib 'lib'; | ||
6 | |||
7 | use Data::Dump qw/dump/; | ||
8 | |||
9 | use HTTP::Engine; | ||
10 | use YAML; | ||
11 | use Module::Refresh; | ||
12 | use Frey::Designer; | ||
13 | |||
14 | my $designer = Frey::Designer->new( uri => 'http://www.carnet.hr' ); | ||
15 | |||
16 | dpavlin | 165 | my $port = $ENV{FREY_PORT} || 14000; |
17 | |||
18 | dpavlin | 164 | my $engine = HTTP::Engine->new(YAML::Load(qq{ |
19 | interface: | ||
20 | module: ServerSimple | ||
21 | args: | ||
22 | dpavlin | 165 | port: $port |
23 | dpavlin | 164 | request_handler: main::handler |
24 | })); | ||
25 | $engine->run; | ||
26 | |||
27 | sub handler { | ||
28 | my $c = shift; | ||
29 | Module::Refresh->refresh; | ||
30 | $designer->handler( $c ); | ||
31 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |