[SP-pm] Duvida como usar CatalystX::AuthenCookie

Nelson Ferraz nferraz at gmail.com
Mon Jul 22 23:47:53 PDT 2013 

Tudo isso pra setar um cookie?

Sem querer iniciar uma flamewar, mas com o Mojolicious::Lite e' bem simples:

#####

use Mojolicious::Lite;

get '/login' => sub {
    my $self = shift;

    # Query parameters
    my $user = $self->param('user') || '';
    my $pass = $self->param('pass') || '';

    # Store username in session
    $self->session(user => $user);

} => 'index';

app->start();

#####

Isso e' tudo!

Se voce estiver em duvida, assista aos tutoriais do Mojocast:

http://mojocasts.com/

Em menos de 30 minutos voce podera' decidir se vale a pena mudar para um
framework que (na minha opiniao) te ajudara' a poupar dias de trabalho e
frustracao.

Repito: meu objetivo nao e' iniciar um flamewar, mas apenas ajuda'-lo a
tomar uma decisao bem informada.



2013/7/22 Daniel de Oliveira Mantovani <daniel.oliveira.mantovani em gmail.com>

> package Admin;
> use Moose;
> use namespace::autoclean;
>
> use Catalyst::Runtime 5.80;
>
> # Set flags and add plugins for the application.
> #
> # Note that ORDERING IS IMPORTANT here as plugins are initialized in order,
> # therefore you almost certainly want to keep ConfigLoader at the head of
> the
> # list if you're using it.
> #
> #         -Debug: activates the debug mode for very useful log messages
> #   ConfigLoader: will load the configuration from a Config::General file
> in the
> #                 application's home directory
> # Static::Simple: will serve static files from the application's root
> #                 directory
>
> use Catalyst qw/
>     -Debug
>     ConfigLoader
>     Static::Simple
> /;
>
> extends 'Catalyst';
> with 'CatalystX::AuthenCookie';
>
> our $VERSION = '0.01';
>
> # Configure the application.
> #
> # Note that settings in admin.conf (or other external
> # configuration file that you set up manually) take precedence
> # over this when using ConfigLoader. Thus configuration
> # details given here can function as a default configuration,
> # with an external configuration file acting as an override for
> # local deployment.
>
> __PACKAGE__->config(
>     name => 'Admin',
>     # Disable deprecated behavior needed by old applications
>     disable_component_resolution_r
> egex_fallback => 1,
>     enable_catalyst_header => 1, # Send X-Catalyst header
> );
>
> # Start the application
> __PACKAGE__->setup();
> =encoding utf8
>
> =head1 NAME
>
> Admin - Catalyst based application
>
> =head1 SYNOPSIS
>
>     script/admin_server.pl
>
> =head1 DESCRIPTION
>
> [enter your description here]
>
> =head1 SEE ALSO
>
> L<Admin::Controller::Root>, L<Catalyst>
>
> =head1 AUTHOR
>
> Ricardo,,,
>
> =head1 LICENSE
>
> This library is free software. You can redistribute it and/or modify
> it under the same terms as Perl itself.
>
> =cut
>
> 1;
>
> On 22 July 2013 14:47, Renato Santos <renato.cron em gmail.com> wrote:
> > No caso, eu não tinha reparado.
> >
> > o modulo não precisa ir no qw//.
> >
> > Coloque o "with 'CatalystX::AuthenCookie';" depois do use Catalyst qw/
> ...
> > /. assim o moose vai importar¹ as funções desse CatalystX junto com o
> object
> > do Catalyst.
> >
> >
> > ¹
> >
> http://search.cpan.org/dist/Moose/lib/Moose/Manual/Roles.pod#WHAT_IS_A_ROLE
> ?
> >
> >
> > On Mon, Jul 22, 2013 at 2:43 PM, Ricardo Alcantara
> > <alcantarafox em yahoo.com.br> wrote:
> >>
> >> Seria isso?
> >>
> >> package Admin;
> >> use Moose;
> >> use namespace::autoclean;
> >>
> >> use Catalyst::Runtime 5.80;
> >>
> >> # Set flags and add plugins for the application.
> >> #
> >> # Note that ORDERING IS IMPORTANT here as plugins are initialized in
> >> order,
> >> # therefore you almost certainly want to keep ConfigLoader at the head
> of
> >> the
> >> # list if you're using it.
> >> #
> >> #         -Debug: activates the debug mode for very useful log messages
> >> #   ConfigLoader: will load the configuration from a Config::General
> file
> >> in the
> >> #                 application's home directory
> >> # Static::Simple: will serve static files from the application's root
> >> #                 directory
> >>
> >> use Catalyst qw/
> >>     -Debug
> >>     ConfigLoader
> >>     Static::Simple
> >> /;
> >>
> >> extends 'Catalyst';
> >>
> >> our $VERSION = '0.01';
> >>
> >> # Configure the application.
> >> #
> >> # Note that settings in admin.conf (or other external
> >> # configuration file that you set up manually) take precedence
> >> # over this when using ConfigLoader. Thus configuration
> >> # details given here can function as a default configuration,
> >> # with an external configuration file acting as an override for
> >> # local deployment.
> >>
> >> __PACKAGE__->config(
> >>     name => 'Admin',
> >>     # Disable deprecated behavior needed by old applications
> >>     disable_component_resolution_regex_fallback => 1,
> >>     enable_catalyst_header => 1, # Send X-Catalyst header
> >> );
> >>
> >> # Start the application
> >> __PACKAGE__->setup();
> >> =encoding utf8
> >>
> >> =head1 NAME
> >>
> >> Admin - Catalyst based application
> >>
> >> =head1 SYNOPSIS
> >>
> >>     script/admin_server.pl
> >>
> >> =head1 DESCRIPTION
> >>
> >> [enter your description here]
> >>
> >> =head1 SEE ALSO
> >>
> >> L<Admin::Controller::Root>, L<Catalyst>
> >>
> >> =head1 AUTHOR
> >>
> >> Ricardo,,,
> >>
> >> =head1 LICENSE
> >>
> >> This library is free software. You can redistribute it and/or modify
> >> it under the same terms as Perl itself.
> >>
> >> =cut
> >>
> >> 1;
> >>
> >>
> >> =begin disclaimer
> >>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >> SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
> >> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> >> =end disclaimer
> >
> >
> >
> >
> > --
> > Saravá,
> > Renato CRON
> > http://www.renatocron.com/blog/
> > @renato_cron
> >
> > =begin disclaimer
> >    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> >  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
> >  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> > =end disclaimer
> >
>
>
>
> --
>
> -dom
>
> --
>
> IBM - Business Analytics Optimization Consultant
> Daniel Mantovani +5511 8538-9897
> XOXO
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>



-- 
Nelson Ferraz
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130723/53ca10e3/attachment.html>

More information about the SaoPaulo-pm mailing list