- 论坛徽章:
- 0
|
所有的模块都是预先加载的
======================这个是出现问题的子例程
sub login : Private {
my ( $self, $c ) = @_;
$c->stash->{template} = 'users/login.tt';
#$c->model("CtlapplyDB")->storage->debug(1);
my $username = $c->req->param('username') || "";
my $password = $c->req->param('password') || "";
if($c->session->{user}){
$c->response->redirect('book/list');
}
if($c->req->param('submit')){
if($username && $password){
my $user = $c->model('CtlapplyDB::Users')->search(
{ name => $username,
password => $password
},
{
select => ['me.name','me.password','me.role'],
as => ['name','password','role'],
}
)->first;
if( defined $user && $user->get_column('name')){
$c->session->{user} = $user; #这个地方开始的错误吧??
$c->forward('/book/list');
return;
}else{
$c->stash->{error_msg} = "can't find user";
}
}
}else{
$c->stash->{template} = 'users/login.tt';
}
}
===================这个是错误信息
You can connect to your server at http://s21:1110
[info] *** Request 1 (0.111/s) [1415] [Thu Apr 15 15:15:52 2010] ***
[debug] Found sessionid "4b31404aed0fa30350c6646917d71795c878bb77" in cookie
[debug] Body Parameters are:
.-------------------------------------+--------------------------------------.
| Parameter | Value |
+-------------------------------------+--------------------------------------+
| password | 123 |
| submit | 登录 |
| username | wangshun |
'-------------------------------------+--------------------------------------'
[debug] "POST" request for "login" from "192.168.2.102"
[debug] Path is "login"
[debug] Restored session "4b31404aed0fa30350c6646917d71795c878bb77"
[debug] Rendering template "book/list.tt"
[error] Caught exception in engine "Can't store CODE items at ../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_freeze.al) line 287, at /usr/lib/perl5/site_perl/5.8.5/DBIx/Class/Serialize/Storable.pm line 10, at /usr/lib/perl5/site_perl/5.8.5/Object/Signature.pm line 19" |
|