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

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

revision 1045 by dpavlin, Tue Jan 6 16:04:45 2009 UTC revision 1046 by dpavlin, Wed Apr 22 22:01:06 2009 UTC
# Line 9  use MojoX::Dispatcher::Static; Line 9  use MojoX::Dispatcher::Static;
9    
10  use lib 'lib';  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 26  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    
# Line 43  sub handler { Line 44  sub handler {
44                  use base 'Mojo::Transaction';                  use base 'Mojo::Transaction';
45                  sub app {                  sub app {
46                          my $self = shift;                          my $self = shift;
47                          warn "## $self app ", @_;  #                       warn "## $self app ", @_;
48                          $self;                          $self;
49                  }                  }
50                  sub log {                  sub log {
51                          my $self = shift;                          my $self = shift;
52                          warn "## $self log ",@_;  #                       warn "## $self log ",@_;
53                          return $self;                          return $self;
54                  }                  }
55                  sub debug {                  sub debug {
56                          my $self = shift;                          my $self = shift;
57                          warn "## $self debug ",@_;                          warn "## ",@_, $/;
58                          return $self;                          return $self;
59                  }                  }
60          }          }
61          bless $tx, 'Fake::App';          bless $tx, 'Fake::App';
62    
63            # rewrite URL
64            Frey::CouchAPI->rewrite_urls( $tx );
65    
66          if ( $self->static->dispatch($tx) ) {          if ( $self->static->dispatch($tx) ) {
67  #               warn "# static ",dump( $tx );  #               warn "# static ",dump( $tx );
68                  return $tx;                  return $tx;
# Line 74  sub handler { Line 78  sub handler {
78          my $url = $tx->req->url->to_string;          my $url = $tx->req->url->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          my $request = $server->request( $url, $params ); # fetch body
93    
Legend:
Removed from v.1045  
changed lines
  Added in v.1046
  ViewVC Help
Powered by ViewVC 1.1.26