/[Frey]/branches/zimbardo/lib/Frey/Mojo.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 /branches/zimbardo/lib/Frey/Mojo.pm

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

revision 636 by dpavlin, Sun Nov 30 14:42:43 2008 UTC revision 1148 by dpavlin, Wed Jul 1 17:46:35 2009 UTC
# Line 7  use base 'Mojo'; Line 7  use base 'Mojo';
7    
8  use MojoX::Dispatcher::Static;  use MojoX::Dispatcher::Static;
9    
10    use lib 'lib';
11  use Frey::Server;  use Frey::Server;
12    use Frey::CouchAPI;
13    
14  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
15    
# Line 25  sub new { Line 27  sub new {
27      $self->log->level('error');      $self->log->level('error');
28      $self->log->path(undef);      $self->log->path(undef);
29    
30          warn "# home ", $self->home;  #       warn "# home ", $self->home;
31    
32          $self->static->root( './' );          $self->static->root( './' );
33    
34      return $self;      return $self;
35  }  }
36    
37    
38  sub handler {  sub handler {
39          my ($self, $tx) = @_;          my ($self, $tx) = @_;
40    
41          if ( $self->static->dispatch($tx) ) {          # XXX fake app so static dispatcher won't die on us
42            {
43                    package Fake::App;
44                    use base 'Mojo::Transaction';
45                    sub app {
46                            my $self = shift;
47    #                       warn "## $self app ", @_;
48                            $self;
49                    }
50                    sub log {
51                            my $self = shift;
52    #                       warn "## $self log ",@_;
53                            return $self;
54                    }
55                    sub debug {
56                            my $self = shift;
57                            warn "## ",@_, $/;
58                            return $self;
59                    }
60            }
61            bless $tx, 'Fake::App';
62    
63            # rewrite URL
64            Frey::CouchAPI->rewrite_urls( $tx );
65    
66            if ( ! $self->static->dispatch($tx) ) {
67  #               warn "# static ",dump( $tx );  #               warn "# static ",dump( $tx );
68                  return $tx;                  return $tx;
69          }          }
# Line 47  sub handler { Line 75  sub handler {
75                  $body .= join("\n", @_);                  $body .= join("\n", @_);
76          };          };
77    
78          my $url = $tx->req->url->to_string;          my $url = $tx->req->url->to_abs->to_string;
79          my $params = $tx->req->params->to_hash;          my $params = $tx->req->params->to_hash;
80    
81          warn "# url $url params ",dump($params);          my $referer = $tx->req->content->headers->header('Referer');
82            my $ajax = $tx->req->content->headers->header('X-Requested-With');
83            warn "# referer $referer\n";
84    #       warn "## headers = ", dump( $tx->req->content->headers );
85    
86            if ( $referer =~ m{/_utils} || $ajax =~ m{XMLHttpRequest}i ) {
87                    return Frey::CouchAPI->dispatch( $tx );
88            }
89    
90            warn "# url $url from $referer params ",dump($params);
91    
92            my $request = $server->request( $url, $params ); # fetch body
93    
94          $server->request( $url, $params ); # fetch body          warn "# request ", dump( $request );
95    
96            foreach ( 'content_type', 'code' ) {
97                    die "missing $_" unless defined $request->{$_};
98            }
99    
100  =for developer  =for developer
101    
# Line 66  sub handler { Line 109  sub handler {
109    
110  =cut  =cut
111    
112          $tx->res->code(200);          $tx->res->code( $request->{code} );
113          $tx->res->headers->content_type('text/html');          $tx->res->headers->content_type( $request->{content_type} );
114          $tx->res->body( $body );          $tx->res->body( $body );
115    
116          warn dump( $tx->res->headers );          warn dump( $tx->res->headers );
Legend:
Removed from v.636  
changed lines
  Added in v.1148
  ViewVC Help
Powered by ViewVC 1.1.26