--- trunk/lib/Frey/Server.pm 2008/07/08 12:20:08 60
+++ trunk/lib/Frey/Server.pm 2008/07/08 16:18:13 64
@@ -17,16 +17,16 @@
use vars qw( $repl $server );
#$repl = Continuity::REPL->new;
-$server = Continuity->new(
- port => 16001,
- path_session => 1,
- cookie_session => 'sid',
- callback => \&main,
- debug_level => 1,
- staticp => sub { $_[0]->url =~ m/\.(jpg|jpeg|gif|png|css|ico|js|html?)$/ },
-);
sub run {
+ $server = Continuity->new(
+ port => 16001,
+ path_session => 1,
+ cookie_session => 'sid',
+ callback => \&main,
+ debug_level => 1,
+ staticp => sub { $_[0]->url =~ m/\.(jpg|jpeg|gif|png|css|ico|js|html?)$/ },
+ );
$server->loop;
}
@@ -61,20 +61,22 @@
send_message($req);
}
- while ( 1 ) {
- my $f = Frey->new;
- my $classes = Continuity::Widget::DomNode->create(
- ul => [
- map {
- warn dump( $_ );
- my ( $package, $path ) = %$_;
- ( li => [ a => { href => '/~/' . $package . '/' } => [ $package ], " $path" ] )
- } @{ $f->classes }
- ],
- )->to_string;
- $req->print( $classes );
- $req->next;
- }
+ my $f = Frey->new;
+ my $classes = Continuity::Widget::DomNode->create(
+ ul => [
+ map {
+ warn dump( $_ );
+ my ( $package, $path ) = %$_;
+ ( li => [
+ a => { href => '/~/' . $package . '/' } => [ $package ],
+ ' ',
+ a => { href => '/ob/' . $package } => [ 'browse' ],
+ " $path"
+ ] )
+ } @{ $f->classes }
+ ],
+ )->to_string;
+ $req->print( $classes );
}
# Here we accept a connection to the browser, and keep it open. Meanwhile we