@@ -36,7 +36,7 @@ our @C = ( my $v = $self->v; $v->{name} = $name; $v->{controller} = $self->name; - $v->{_secret_from_json} = + $v->{_secret_from_json} = 'The JSON view will purposely omit this data, '. 'because the $V{json}->profile template was written to '. 'ignore the key, _secret_from_json.'; @@ -46,30 +46,57 @@ our @C = ( } ), + # This controller shows you how $self->cookies handles + # both incoming AND outgoing cookies. + # - incoming cookies are stored in the $self->cookies hashref as strings + # - outgoing cookies are stored in the $self->cookies hashref as hashrefs + # that can be fed to CGI::Cookie + C( + Cookie => [ '/cookies' ], + get => sub { + my ($self) = @_; + $self->v->{cookies} = [ + map { + { + name => $_, + value => $self->cookies->{$_}, + } + } sort keys %{$self->cookies} + ]; + $self->render('cookies'); + }, + post => sub { + my ($self) = @_; + my $input = $self->input; + my $name = $input->{name}; + my $value = $input->{value}; + $self->cookies->{$name} = { -value => $value }; + $self->redirect(R('Cookie')); + }, + ), + C( Count => [ '/@count' ], - # GET requests to the Count controller have the following properties: - # - They are sent to a different session queue. - # - The session queue is named "${session_id}.count". - # - The queue => { get => 'count' } is what made this happen. - # - Squatting::Mapper treats controllers with a queue attribute specially. - # - It will run GET requests in their own coroutine separate from the - # RESTful controllers. - # - This coroutine may handle many more HTTP requests. + # Requests to the Count controller run in a separate coroutine. + # - The (continuity => 1) tells Squatting::Mapper to take notice + # of this controller and put requests to this controller in + # a different "session queue". In Continuity-speak, being in + # a different "session queue" means you get your own coroutine. + continuity => 1, + get => sub { my ($self) = @_; my $cr = $self->cr; my $i = 1; + # Infinite loops are allowed in Continuity controllers. while (1) { - # - In fact, this one won't ever return control back to Squatting. + # - Typically, you won't ever return control back to Squatting. # - You're in Continuity land, now. $cr->print($i++); + # $cr->next blocks until the next request comes in. $cr->next; } }, - post => sub { - }, - queue => { get => 'count' } ), C( @@ -85,13 +112,13 @@ our @C = ( get => sub { my ($self) = @_; my $v = $self->v = $self->env; - my $format = ($v->{REQUEST_PATH} eq '/env') - ? 'html' - : 'json'; + my $format = ($v->{REQUEST_PATH} eq '/env') + ? 'html' + : 'json'; $self->render('env', $format); # This will use the generic json template called '_' # if ($format eq 'json'). - # The generic template, '_', is used + # The generic template, '_', is used # when no other template can be found. } ), eg/Example/Controllers.pm @@ -26,6 +26,7 @@ our @V = ( li(a({-href => '/~beppu.json'}, "profile.json")), li(a({-href => '/env'}, "env")), li(a({-href => '/env.json'}, "env.json")), + li(a({-href => '/cookies'}, "cookies")), li(a({-href => '/rubygems'}, "redirect to ruby's gem_server on port 8808")), li(a({-href => '/pod/'}, "PODServer has been mounted on /pod")), li(a({-href => '/droids-you-are-looking-for'}, "404")), @@ -55,6 +56,25 @@ our @V = ( h2("env"), pre(dump($v)); }, + cookies => sub { + my ($self, $v) = @_; + h2("Cookies"), + dl( + map { + dt($_->{name}), + dd($_->{value}) + } @{$v->{cookies}} + ), + start_form(-method => 'POST', -action => R('Cookie'), -enctype => &CGI::URL_ENCODED), + dl( + dt('Cookie Name'), + dd(textfield(-name => 'name')), + dt('Cookie Value'), + dd(textfield(-name => 'value')), + ), + submit(), + end_form(), + }, ), V( eg/Example/Views.pm 0c09ae82022614939810e28cfb5a5c07daf84af8 John Beppu john.beppu@gmail.com http://github.com/beppu/squatting/commit/33d626c8f6e0120906035538f5bc4f58be4f3ed6 33d626c8f6e0120906035538f5bc4f58be4f3ed6 2009-06-14T21:59:29-07:00 2009-06-14T21:59:29-07:00 added a cookie example to the Example app 9907ef68c0cd315ef1b53359615a21ec43a3f31e John Beppu john.beppu@gmail.com