| line |
true |
false |
branch |
|
36
|
0 |
0 |
if (not exists $$self{'admin_config'}) |
|
49
|
0 |
0 |
if (not $prefs) { } |
|
60
|
0 |
0 |
if ($$self{'debug'}) |
|
64
|
0 |
0 |
unless (open $fh, ">$prefs_file" and print $fh "$d\n" and close $fh) |
|
85
|
0 |
0 |
unless ($f = Socket::inet_aton($from)) |
|
88
|
0 |
0 |
unless ($t = Socket::inet_aton($to)) |
|
103
|
0 |
0 |
if ($from or $to) |
|
110
|
0 |
0 |
if ($cgi->param("delete_ip_$i")) |
|
116
|
0 |
0 |
unless (defined $from or defined $to) |
|
125
|
0 |
0 |
if ($modified) { } |
|
126
|
0 |
0 |
if $debug |
|
129
|
0 |
0 |
unless my $path_users_modified = $$attr{'users-modified-path'} || $$self{'admin_config'}{'users_modified_path'} |
|
133
|
0 |
0 |
if ($path_users_modified ne 'none') |
|
134
|
0 |
0 |
unless -f $path_users_modified |
|
138
|
0 |
0 |
unless $$r{'active'} |
|
142
|
0 |
0 |
if $debug |
|
147
|
0 |
0 |
if $debug |
|
152
|
0 |
0 |
if ($debug) |
|
167
|
0 |
0 |
$val ? : |