/[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 65 by dpavlin, Tue Jul 8 16:18:13 2008 UTC revision 66 by dpavlin, Wed Jul 9 12:08:07 2008 UTC
# Line 42  sub main { Line 42  sub main {
42          warn $req->request->header('User_Agent');          warn $req->request->header('User_Agent');
43  #warn dump( $req );  #warn dump( $req );
44    
45          if ( $path =~ m!/~/([^/]+)(?:/([^/]*))?! ) {          eval {
46                  my $f = Frey::Introspect->new( package => $1 );  
47                  $f->html( $req );                  if ( $path =~ m!/~/([^/]+)(?:/([^/]*))?! ) {
48          }                          my $f = Frey::Introspect->new( package => $1 );
49                            $f->html( $req );
50                    }
51    
52                    if ( $path =~ m!/ob/([^/]+)(?:/([^/]*))?! ) {
53                            my $f = Frey::ObjectBrowser->new;
54                            $f->html( $req );
55                    }
56    
57          if ( $path =~ m!/ob/([^/]+)(?:/([^/]*))?! ) {          };
58                  my $f = Frey::ObjectBrowser->new;  
59                  $f->html( $req );          if ( $@ ) {
60                    warn $@;
61                    #$req->conn->send_error( 404 ); # FIXME this should probably be 500, but we can't ship page with it
62                    $req->print( qq{<pre class="error">$@<pre>} );
63                    $req->next;
64          }          }
65    
66          # If this is a request for the pushtream, then give them that          # If this is a request for the pushtream, then give them that
67          if($path =~ /pushstream/) {          if($path =~ /pushstream/) {
68                  pushstream($req);                  pushstream($req);
Legend:
Removed from v.65  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.26