line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Kwiki::Users::Remote; |
2
|
1
|
|
|
1
|
|
59675
|
use strict; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
41
|
|
3
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
49
|
|
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
653
|
use Kwiki::Users -Base; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
our $VERSION = "0.04"; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
const class_title => 'Kwiki users from HTTP authentication'; |
10
|
|
|
|
|
|
|
const user_class => 'Kwiki::User::Remote'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
package Kwiki::User::Remote; |
13
|
|
|
|
|
|
|
use base 'Kwiki::User'; |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
sub name { |
16
|
|
|
|
|
|
|
exists $ENV{REMOTE_USER} |
17
|
|
|
|
|
|
|
? $ENV{REMOTE_USER} |
18
|
|
|
|
|
|
|
: $self->hub->config->user_default_name; |
19
|
|
|
|
|
|
|
} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
sub id { |
22
|
|
|
|
|
|
|
exists $ENV{REMOTE_USER} |
23
|
|
|
|
|
|
|
? $ENV{REMOTE_USER} |
24
|
|
|
|
|
|
|
: $self->hub->config->user_default_name; |
25
|
|
|
|
|
|
|
} |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
__DATA__ |