| line |
true |
false |
branch |
|
66
|
2 |
10 |
if /^\s*(\d+)\s*$/ |
|
84
|
1 |
20 |
unless open CF, "<$conf" |
|
90
|
71 |
186 |
if (/^\s*($PREFIX\w+)\s+(.*)/) |
|
91
|
71 |
0 |
unless exists $seen{$1} |
|
96
|
1 |
19 |
unless $seen{'TKTAuthSecret'} |
|
105
|
71 |
0 |
if $merge{$directive} |
|
106
|
15 |
56 |
if ($BOOLEAN{$directive}) { } |
|
|
56 |
0 |
elsif (defined $merge{$directive}) { } |
|
107
|
8 |
7 |
if $merge{$directive} =~ /^(off|no|false)$/i |
|
109
|
7 |
8 |
if $merge{$directive} =~ /^(on|yes|true)$/i |
|
116
|
12 |
59 |
if ($directive eq 'TKTAuthCookieExpires' or $directive eq 'TKTAuthTimeout') { } |
|
|
59 |
0 |
elsif ($directive ne 'TKTAuthDebug') { } |
|
134
|
0 |
73 |
unless exists $ATTR{$_} |
|
138
|
21 |
15 |
if ($arg{'conf'}) |
|
145
|
1 |
33 |
unless $$self{'conf'} or $$self{'secret'} |
|
148
|
1 |
32 |
unless $DIGEST_TYPE{$$self{'digest_type'}} |
|
167
|
2 |
339 |
unless $ATTR{$attr} |
|
169
|
16 |
323 |
if @_ |
|
178
|
0 |
0 |
if $@[0] |
|
192
|
19 |
16 |
unless exists $arg{'uid'} |
|
193
|
3 |
21 |
$arg{'ignore_ip'} ? : |
|
|
24 |
11 |
unless exists $arg{'ip_addr'} |
|
199
|
10 |
25 |
if ($arg{'tokens'}) |
|
205
|
0 |
35 |
unless ($arg{'ip_addr'} =~ /^([12]?[0-9]?[0-9]\.){3}[12]?[0-9]?[0-9]$/) |
|
209
|
0 |
35 |
if ($arg{'tokens'} =~ /[!\s]/) |
|
221
|
10 |
25 |
if $arg{'tokens'} |
|
224
|
27 |
8 |
$arg{'base64'} ? : |
|
231
|
0 |
47 |
unless $DIGEST_TYPE{$self->digest_type} |
|
253
|
0 |
47 |
if ($debug) |
|
277
|
0 |
11 |
unless my $ticket = $self->ticket(@_, 'base64', 1) |
|
281
|
5 |
6 |
$arg{'cookie_domain'} ? : |
|
282
|
4 |
7 |
$arg{'cookie_secure'} ? : |
|
295
|
2 |
8 |
$arg{'ignore_ip'} ? : |
|
|
10 |
2 |
unless exists $arg{'ip_addr'} |
|
308
|
7 |
5 |
if $expected_digest eq $$info{'digest'} |
|
315
|
0 |
17 |
unless my $ticket = shift() |
|
321
|
0 |
17 |
if length $ticket < 40 |
|
324
|
6 |
11 |
$ticket =~ /!/ ? : |
|
327
|
0 |
17 |
unless $raw =~ /!/ |
|
338
|
17 |
0 |
if (defined $extra) |
|
339
|
3 |
14 |
if ($extra =~ /!/) { } |