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

Diff of /trunk/lib/Frey/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 624 by dpavlin, Sat Nov 29 15:19:43 2008 UTC revision 625 by dpavlin, Sat Nov 29 17:48:54 2008 UTC
# Line 2  package Frey::Server; Line 2  package Frey::Server;
2    
3  use Moose;  use Moose;
4  extends 'Frey';  extends 'Frey';
 with 'Frey::Web';  
5  with 'Frey::Config';  with 'Frey::Config';
6    
7  use Continuity;  use Continuity;
# Line 36  This is one of pissible server implement Line 35  This is one of pissible server implement
35  =cut  =cut
36    
37  our $editor = Frey::Editor->new;  our $editor = Frey::Editor->new;
38    our $port;
39    
40  sub run {  sub run {
41          my ( $self, $port ) = @_;          my ( $self ) = @_;
42    
43            $port = $ENV{FREY_PORT} || $self->config->{port} || 16001;
44    
45          $server = Continuity->new(          $server = Continuity->new(
46                  port => $port || $self->config->{port} || 16001,                  port => $port,
47                  path_session => 1,                  path_session => 1,
48                  cookie_session => 'sid',                  cookie_session => 'sid',
49                  callback => \&main,                  callback => \&main,
# Line 69  sub main { Line 72  sub main {
72    
73          my $path = $req->request->url->path;          my $path = $req->request->url->path;
74    
75          eval {  #       eval {
76            {
77    
78                  if ( $path =~ m{/reload(.*)} ) {                  if ( $path =~ m{/reload(.*)} ) {
79    
# Line 117  sub main { Line 121  sub main {
121                  # shared run params                  # shared run params
122                  my $run = {                  my $run = {
123                          request_url => $req->request->url,                          request_url => $req->request->url,
124                          debug => 1,  #                       debug => 1,
125                  };                  };
126    
127                  if (                  if (
# Line 141  sub main { Line 145  sub main {
145                          $run->{format} = $3 if $3;                          $run->{format} = $3 if $3;
146                          $params{request_url} = $req->request->url;                          $params{request_url} = $req->request->url;
147                          $req->print( "\r\n\r\n" ); # send something to browser so we don't time-out                          $req->print( "\r\n\r\n" ); # send something to browser so we don't time-out
148                          $f = Frey::Run->new( class => $class, params => \%params, run => $2, %$run );                          $run->{$_} = $params{$_} foreach keys %params;
149                            $f = Frey::Run->new( class => $class, params => $run, run => $2, request_url => $req->request->url );
150                  } elsif (                  } elsif (
151                          $path =~ m{/([^/]+)/?$}                          $path =~ m{/([^/]+)/?$}
152                  ) {                  ) {
153                          my $class = rest2class $1;                          my $class = rest2class $1;
154                          warn "# introspect $class";                          warn "# introspect $class";
155                          $f = Frey::Run->new( class => 'Frey::Introspect', params => { class => $class }, %$run );                          $run->{class} ||= $class;
156                            $f = Frey::Run->new( class => 'Frey::Introspect', params => $run, request_url => $req->request->url );
157                  } else {                  } else {
158                          $f = Frey::Run->new( class => 'Frey::ClassBrowser', %$run );                          $f = Frey::Run->new( class => 'Frey::ClassBrowser', params => $run, request_url => $req->request->url );
159                  }                  }
160    
161                  if ( $f ) {                  if ( $f ) {
Legend:
Removed from v.624  
changed lines
  Added in v.625
  ViewVC Help
Powered by ViewVC 1.1.26