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

Tue Jul 23 01:14:03 PDT 2013

#flamewar #begin!

Uma das coisas que eu acho bom no catalyst é que ele sabe separar as
coisas. Parece estranho um framework web não ter Session no core, porém,
quem disse que uma web app precisa de session? Websites precisam de
sessions, não é necessário em um streaming de vídeo, por exemplo.
Cookies estão no core porém na sua forma mais simples. Existe plugin, quem
em 1 linha você já tem os cookies igual à esse exemplo que você passou.

Também tem um ótimo plugin para session, que suporta vários backends para
salvar os dados.

Também tem outro plugin, cheio de detalhes, que faz autenticação utilizando
cookies e sessions, podendo ou não ser utilizado com outro Role , que já
verifica num schema e faz todo o esquema de (um ou vários logins)
completamente sozinho.

Anyway esse catalystX::Auth.. aí eu não conhecia, mas ele é o mais
completo, mas ele avisa isso, e dentro dele da pra ver que ele usa sha 512
gerar o cookie de seja lá como a pessoa resolver implementar o próprio
auth.
Em 23/07/2013 04:59, "Renato Santos" <renato.cron at gmail.com> escreveu:

> E a partir de agora da pra saber o email e quem está logado só de olhar os
> cookies.
> Em 23/07/2013 03:50, "Nelson Ferraz" <nferraz at gmail.com> escreveu:
>
>> 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 at 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 at 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 at 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 at 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 at 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 at pm.org
>>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>>> =end disclaimer
>>>
>>
>>
>>
>> --
>> Nelson Ferraz
>>
>> =begin disclaimer
>>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130723/a332ef56/attachment-0001.html>