1 |
use strict; |
2 |
use warnings; |
3 |
|
4 |
package SQLSession::CurrentUser; |
5 |
use base qw/Jifty::CurrentUser/; |
6 |
|
7 |
sub _init { |
8 |
my $self = shift; |
9 |
my %args = (@_); |
10 |
|
11 |
warn "_init"; |
12 |
|
13 |
if ( delete $args{'_bootstrap'} ) { |
14 |
$self->is_bootstrap_user(1); |
15 |
} elsif( keys %args ) { |
16 |
$self->user_object( SQLSession::Model::User->new( current_user => $self ) ); |
17 |
$self->user_object->load_by_cols( %args ); |
18 |
} |
19 |
|
20 |
$self->SUPER::_init(%args); |
21 |
} |
22 |
|
23 |
sub role { |
24 |
my $self = shift; |
25 |
my $role = shift; |
26 |
|
27 |
return 0 unless ($self->current_user->id); |
28 |
|
29 |
warn "role is '$role' for ", $self->current_user->user_object->email, "?"; |
30 |
|
31 |
return 1 if ($self->current_user->user_object->email eq 'dpavlin@rot13.org'); |
32 |
|
33 |
return 0; |
34 |
} |
35 |
|
36 |
|