/[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 947 by dpavlin, Wed Dec 10 22:44:52 2008 UTC revision 948 by dpavlin, Tue Jan 6 16:04:45 2009 UTC
# Line 76  sub handler { Line 76  sub handler {
76    
77          warn "# url $url params ",dump($params);          warn "# url $url params ",dump($params);
78    
79          my $content_type = $server->request( $url, $params ); # fetch body          my $request = $server->request( $url, $params ); # fetch body
80    
81            warn "# request ", dump( $request );
82    
83            foreach ( 'content_type', 'code' ) {
84                    die "missing $_" unless defined $request->{$_};
85            }
86    
87  =for developer  =for developer
88    
# Line 90  sub handler { Line 96  sub handler {
96    
97  =cut  =cut
98    
99          $tx->res->code(200);          $tx->res->code( $request->{code} );
100          $tx->res->headers->content_type( $content_type );          $tx->res->headers->content_type( $request->{content_type} );
101          $tx->res->body( $body );          $tx->res->body( $body );
102    
103          warn dump( $tx->res->headers );          warn dump( $tx->res->headers );
Legend:
Removed from v.947  
changed lines
  Added in v.948
  ViewVC Help
Powered by ViewVC 1.1.26