9 |
|
|
10 |
use Frey; |
use Frey; |
11 |
use Frey::Introspect; |
use Frey::Introspect; |
12 |
|
use Frey::ObjectBrowser; |
13 |
|
|
14 |
my @messages; # Global (shared) list of messages |
my @messages; # Global (shared) list of messages |
15 |
my $got_message; # Flag to indicate that there is a new message to display |
my $got_message; # Flag to indicate that there is a new message to display |
47 |
$f->html( $req ); |
$f->html( $req ); |
48 |
} |
} |
49 |
|
|
50 |
|
if ( $path =~ m!/ob/([^/]+)(?:/([^/]*))?! ) { |
51 |
|
my $f = Frey::ObjectBrowser->new; |
52 |
|
$f->html( $req ); |
53 |
|
} |
54 |
# If this is a request for the pushtream, then give them that |
# If this is a request for the pushtream, then give them that |
55 |
if($path =~ /pushstream/) { |
if($path =~ /pushstream/) { |
56 |
pushstream($req); |
pushstream($req); |