| line |
true |
false |
branch |
|
32
|
1 |
0 |
if (defined $configfile) |
|
42
|
0 |
0 |
if (defined $self->{'config'}{$context}{$var}{'val'} and $self->{'variables'}{$var}{'type'} =~ /^multi/) { } |
|
56
|
0 |
0 |
unless (defined $order) |
|
80
|
0 |
0 |
unless open CF, "<$configfile" |
|
84
|
0 |
0 |
if ($line =~ /^;/) { } |
|
|
0 |
0 |
elsif ($line =~ /(;.*)$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s*$/) { } |
|
99
|
0 |
0 |
if ($line =~ /^\[(\w+)\]$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^(\w+)\s*[=>]+\s*(.*)/) { } |
|
109
|
0 |
0 |
if $DEBUG |
|
121
|
0 |
0 |
unless open $fh, ">$file" |
|
131
|
0 |
0 |
unless ($fh) |
|
136
|
0 |
0 |
unless defined $self->{'config'}{$context} |
|
139
|
0 |
0 |
unless $self->{'config'}{$context}{$key}{'val'} |
|
142
|
0 |
0 |
if ($self->{'variables'}{$key}{'type'} =~ /^multi/) { } |
|
168
|
0 |
0 |
if (my $type = $self->{'variables'}{$variable}{'type'}) |
|
169
|
0 |
0 |
if ($type =~ /^multitext$/) { } |
|
|
0 |
0 |
elsif ($type =~ /text$/) { } |
|
|
0 |
0 |
elsif ($type eq 'one') { } |
|
171
|
0 |
0 |
if ($multiv =~ /$regex/) |
|
176
|
0 |
0 |
if ($value =~ /$regex/) |
|
181
|
0 |
0 |
if ($item eq $value) |
|
201
|
0 |
0 |
unless ($action) |
|
205
|
0 |
0 |
if (not $context and $action ne 'list') |
|
212
|
0 |
0 |
if ($action =~ /(.*)form$/) |
|
219
|
0 |
0 |
if ($action eq 'list') |
|
225
|
0 |
0 |
if ($action eq 'deleteform') { } |
|
|
0 |
0 |
elsif ($action eq 'delete') { } |
|
|
0 |
0 |
elsif ($action eq 'show' or $action =~ /^modify/ or $action =~ /^add/) { } |
|
229
|
0 |
0 |
if ($vars{'doit'} == 1 and $self->deletecontext($context)) { } |
|
237
|
0 |
0 |
if ($action eq 'add') { } |
|
|
0 |
0 |
elsif ($action eq 'show') { } |
|
249
|
0 |
0 |
if (my $regex = $self->{'variables'}{$var}{'contextregex'}) |
|
250
|
0 |
0 |
unless ($context =~ /$regex/) |
|
254
|
0 |
0 |
if (my $regex = $self->{'variables'}{$var}{'negcontextregex'}) |
|
255
|
0 |
0 |
if ($context =~ /$regex/) |
|
260
|
0 |
0 |
if ($self->{'config'}{$context}{$var}{'val'}) { } |
|
266
|
0 |
0 |
if ($action eq 'show') { } |
|
|
0 |
0 |
elsif ($action =~ /(.*)form$/) { } |
|
|
0 |
0 |
elsif ($action eq 'modify' or $action eq 'add') { } |
|
272
|
0 |
0 |
if ($fieldtype =~ /text$/) { } |
|
|
0 |
0 |
elsif ($fieldtype eq 'one') { } |
|
277
|
0 |
0 |
if $item eq $value |
|
283
|
0 |
0 |
if ($action eq 'add' or $vars{"VAR$var"} ne $vars{"OLD$var"}) |
|
287
|
0 |
0 |
if ($self->variablecheck($context, $var, $newval)) |
|
303
|
0 |
0 |
if ($action =~ /form$/) |
|
308
|
0 |
0 |
if ($self->{'commit'}) |
|
319
|
0 |
0 |
unless defined $title |
|
334
|
0 |
0 |
if (delete $self->{'config'}{$context}) { } |