--- trunk/lib/Frey/Server.pm 2008/06/29 12:55:39 19 +++ trunk/lib/Frey/Server.pm 2008/06/30 07:06:11 34 @@ -7,14 +7,15 @@ use Continuity::REPL; use Data::Dump qw/dump/; -use HTML; +use base 'Frey'; +use Frey::HTML; my @messages; # Global (shared) list of messages my $got_message; # Flag to indicate that there is a new message to display use vars qw( $repl $server ); -$repl = Continuity::REPL->new; +#$repl = Continuity::REPL->new; $server = Continuity->new( port => 16001, path_session => 1, @@ -22,8 +23,28 @@ callback => \&main, ); $server->debug_level( 2 ); +sub run { -$server->loop; + $server->loop; +} + +my @callbacks; +my $callback_count; + +sub gen_link { + my ($text, $code) = @_; + $callbacks[$callback_count++] = $code; + return qq{$text}; +} + +sub process_links { + my $request = shift; + my $cb = $request->param('cb'); + if (exists $callbacks[$cb]) { + $callbacks[$cb]->($request); + delete $callbacks[$cb]; + } +} # This is the main entrypoint. We are looking for one of three things -- a # pushstream, a sent message, or a request for the main HTML. We delegate each @@ -91,12 +112,37 @@ # This isn't a pushstream, nor a new message. It is just the main page. We loop # in case they ask for it multiple times :) sub send_page { - my ($req) = @_; - while(1) { - warn "param = ",dump($req->param); - $req->print( HTML->view( 'status' ) ); - $req->next; - Module::Refresh->refresh; - } + my ($req) = @_; + my $templates = Template::Declare->templates; + while(1) { + warn "param = ",dump($req->param); + my $path = $req->request->url->path; + + my $html; + + if ( $path =~ m/::/ ) { + my ( undef, $module, $method ) = split(m!/!, $path, 3); + + if ( ! defined( $templates->{$module} ) ) { + $req->conn->send_status_line( 404, "$module" ); + $html = "Package $module not found"; + } elsif ( ! $method ) { + $html = Frey::HTML->page( 'package-methods', $req, $module ); + } elsif ( grep(/^\Q$method\E$/, @{ $templates->{$module} }) ) { + $html = Frey::HTML->page( $method, $req ); + } else { + $req->conn->send_status_line( 404, "$module $method" ); + $html = "Package $module doesn't have $method"; + } + } else { + warn "fallback to status page\n"; + $html = Frey::HTML->page( 'status' ); + } + + $req->print( $html ); + warn ">> ",length( $html ), " bytes\n"; + $req->next; + } } +1;