/[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 55 by dpavlin, Sat Jul 5 19:00:10 2008 UTC revision 60 by dpavlin, Tue Jul 8 12:20:08 2008 UTC
# Line 9  use Data::Dump qw/dump/; Line 9  use Data::Dump qw/dump/;
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
# Line 46  sub main { Line 47  sub main {
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);
# Line 58  sub main { Line 63  sub main {
63    
64          while ( 1 ) {          while ( 1 ) {
65                  my $f = Frey->new;                  my $f = Frey->new;
66                  $req->print( dump( $f->classes ) );                  my $classes = Continuity::Widget::DomNode->create(
67                            ul => [
68                                    map {
69                                            warn dump( $_ );
70                                            my ( $package, $path ) = %$_;
71                                            ( li => [ a => { href => '/~/' . $package . '/' } => [ $package ], " <tt>$path</tt>" ] )
72                                    } @{ $f->classes }
73                            ],
74                    )->to_string;
75                    $req->print( $classes );
76                  $req->next;                  $req->next;
77          }          }
78  }  }
Legend:
Removed from v.55  
changed lines
  Added in v.60
  ViewVC Help
Powered by ViewVC 1.1.26