/[Frey]/trunk/lib/Frey/REST.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/REST.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 25 by dpavlin, Sun Jun 29 16:24:41 2008 UTC revision 26 by dpavlin, Sun Jun 29 18:08:50 2008 UTC
# Line 7  use Template::Declare::Tags; # defaults Line 7  use Template::Declare::Tags; # defaults
7  use base 'Template::Declare';  use base 'Template::Declare';
8    
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10    
11  use Frey::HTML;  use Frey::HTML;
12    use Strix::User;
13    
14  =head1 NAME  =head1 NAME
15    
# Line 24  Frey::REST - dispatch REST like URLs int Line 26  Frey::REST - dispatch REST like URLs int
26  template 'user' => sub {  template 'user' => sub {
27          my ( $self, $req ) = @_;          my ( $self, $req ) = @_;
28    
29          my $id = $req->param('id');          warn "req ref = ",ref($req);
30          $id = 1 unless $id =~ m/^\d+$/;  
31            die "req: ",ref($req) if ref($req) ne 'Continuity::RequestHolder';
32    
33            my $id = $req->param('id') if $req->can('param');
34    
35          use Strix::User;          my $user = eval { Strix::User->new( id => $id ); };
36          my $user = Strix::User->new( id => $id );          warn "## user $id: $@";
37    
38          if ( ! $user ) {          if ( ! $user ) {
39                  $req->conn->send_status_line( 404, "user $id" );                  $req->conn->send_status_line( 404, "user $id" );
40                  $req->print( "Can't find user with id $id" );                  $req->print( "Can't find user with id $id\n$@" );
41          } else {          } else {
42                  $req->print( Frey::HTML->page( 'show-user', $req, $user ) );                  $req->print( Frey::HTML->page( 'show-user', $req, $user ) );
43          };          };
Legend:
Removed from v.25  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.26