/[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 947 by dpavlin, Wed Dec 24 13:50:55 2008 UTC revision 948 by dpavlin, Tue Jan 6 16:04:45 2009 UTC
# Line 55  sub request { Line 55  sub request {
55          }          }
56    
57          my $path = $url->path;          my $path = $url->path;
58          my $content_type = 'text/plain';  
59            if ( $path =~ m{^/(favicon.ico|__history__.html)$} ) {
60                    warn "INFO: $path ignored";
61                    return { code => 200 };
62            }
63    
64            my $request = {
65                    content_type => 'text/html',
66                    code => 200,
67            };
68    
69          eval {          eval {
70    
# Line 145  sub request { Line 154  sub request {
154                          confess "# can't call request on nothing!";                          confess "# can't call request on nothing!";
155                  }                  }
156    
157                  $content_type = $f->content_type;                  $request->{content_type} = $f->content_type;
158          };          };
159    
160          if ( $@ ) {          if ( $@ ) {
161                  warn "SERVER ERROR: $@";                  warn "SERVER ERROR: $@";
162  #               $req->conn->send_error( 404 );  # FIXME this should probably be 500, but we can't ship page with it                  $self->print( qq|<pre class="frey-error">$@<pre>| );
                 $content_type = 'text/html';  
                 $self->print( qq{<pre class="frey-error">$@<pre>\r\n\r\n} );  
163  #               Carp::REPL::repl;  #               Carp::REPL::repl;
164                    return {
165                            content_type => 'text/html',
166                            code => 404,
167                    }
168          }          }
169    
170          return $content_type;          return $request;
171  }  }
172    
173  sub refresh {  sub refresh {
Legend:
Removed from v.947  
changed lines
  Added in v.948
  ViewVC Help
Powered by ViewVC 1.1.26