forum.lissyara.su

Код: Выделить всё

        # Attempt to log the user in
        if (
            $c->authenticate(
                {
                    username => $username,
                    password => $password
                }
            )
          )
        {

            # If successful, then let them use the application
            $c->response->redirect( $c->request->referer() or '/' );

#print '1';
            $c->detach();
        }

Код: Выделить всё

package Flirt18::Controller::Login;
use Moose;
use namespace::autoclean;

 use Data::Dumper;

BEGIN {extends 'Catalyst::Controller'; }

=head1 NAME

Flirt18::Controller::Login - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index

=cut

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

#    $c->response->body('Matched Flirt18::Controller::Login in Login.');

#   $c->stash->{template} = 'index.tt';

# print Dumper $c;


    # Get the username and password from form
#        my $username = $c->request->params->{username} || "";
 #           my $password = $c->request->params->{password} || "";
#print '666';

my $username = "test02";
my $password = "mypass";
 

#print "666-".$c->user_exists()."-666";

#print Dumper $c->authenticate;

 $c->authenticate(
                {
                    username => $username,
                    password => $password
                }
            );

print Dumper $c;

#print "666-".$c->user_exists()."-666";


#return;


            
                # If the username and password values were found in form
                    
                        # use Data::Dumper;
                           # print Dumper($c->request->{headers});
                               
                                   if ( $username && $password ) {

                                   
        # Attempt to log the user in
        if (
            $c->authenticate(
                {
                    username => $username,
                    password => $password
                }
            )
          )
        {

            # If successful, then let them use the application
#            $c->response->redirect( $c->request->referer() or '/' );

#print '1';
            $c->detach();
        }

        else {
        
#print '2';


        }
                    
     }

#print '66';
}


=head1 AUTHOR

root

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__PACKAGE__->meta->make_immutable;

1;

Код: Выделить всё

                                                                                            },
                                                                                  '_children' => [],
                                                                                  '_depth' => 0,
                                                                                  '_uid' => 'begin1',
                                                                                  '_height' => 1
                                                                                }, 'Tree::Simple' ),
                                                                         bless( {
                                                                                  '_parent' => $VAR1->{'stats'}{'tree'},
                                                                                  '_width' => 1,
                                                          HTTP/1.0 200 OK
Connection: close
Date: Sat, 30 Oct 2010 06:09:30 GMT
Set-Cookie: fl_session=d80bfc30b1d70493423cf225ae1bee91a0c64ecb; path=/; expires=Sat, 30-Oct-2010 07:09:30 GMT
Status: 200
X-Catalyst: 5.80004