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); |