| line |
true |
false |
branch |
|
62
|
0 |
0 |
if (-e (my $ticketkeyf = join('/', $$self{'tmp_dir'}, 'ticket.txt'))) { } |
|
63
|
0 |
0 |
if (&check_ticket($ticketkeyf, $files{'ticket.txt'})) { } |
|
65
|
0 |
0 |
if (exists $$result{'error'}) { } |
|
|
0 |
0 |
elsif (exists $$result{'files'}) { } |
|
110
|
0 |
0 |
unless (-d $dir) |
|
112
|
0 |
0 |
unless -d $dir |
|
115
|
0 |
0 |
unless -e $files{'stamp.txt'} and -s $files{'stamp.txt'} |
|
116
|
0 |
0 |
unless -e $files{'ticket.txt'} and -s $files{'ticket.txt'} |
|
117
|
0 |
0 |
unless -e $files{'configuration.txt'} and -s $files{'configuration.txt'} |
|
118
|
0 |
0 |
unless -e $files{'restrict.txt'} and -s $files{'restrict.txt'} |
|
119
|
0 |
0 |
unless -e $files{'attachments.txt'} and -s $files{'attachments.txt'} |
|
120
|
0 |
0 |
unless -e $files{'information.txt'} and -s $files{'information.txt'} |
|
121
|
0 |
0 |
unless -e $files{'header.txt'} and -s $files{'header.txt'} |
|
122
|
0 |
0 |
unless -e $files{'footer.txt'} and -s $files{'footer.txt'} |
|
123
|
0 |
0 |
unless -e $files{'list.txt'} and -s $files{'list.txt'} |
|
133
|
0 |
0 |
if (/^($patterns[0]) +<($patterns[1])>\s+/) |
|
134
|
0 |
0 |
if (/^?\s+/) |
|
142
|
0 |
0 |
unless open NEW, '<', $newfile |
|
143
|
0 |
0 |
unless open OLD, '>', $oldfile |
|
152
|
0 |
0 |
unless unlink $newfile |
|
161
|
0 |
0 |
unless open FILE, '<', $file |
|
164
|
0 |
0 |
$addr ? : |
|
168
|
0 |
0 |
unless unlink $file |
|
177
|
0 |
0 |
unless open OLDLIST, '<', $list |
|
178
|
0 |
0 |
unless open NEWLIST, '>', "$list.new" |
|
182
|
0 |
0 |
unless $addr |
|
183
|
0 |
0 |
if (exists $$hash{'unsubscribe'}{$addr}) |
|
187
|
0 |
0 |
if exists $$hash{'subscribe'}{$addr} |
|
188
|
0 |
0 |
$name ? : |
|
191
|
0 |
0 |
$name ? : |
|
205
|
0 |
0 |
unless open NEW, '<', $newfile |
|
206
|
0 |
0 |
unless open OLD, '>', $oldfile |
|
209
|
0 |
0 |
if (/^\#/) |
|
210
|
0 |
0 |
if eof NEW |
|
212
|
0 |
0 |
unless $addr |
|
213
|
0 |
0 |
if exists $inserted{$addr} |
|
214
|
0 |
0 |
$name ? : |
|
220
|
0 |
0 |
unless unlink $newfile |
|
227
|
0 |
0 |
if /^title *\= *[^\=]{2,60}$/ |
|
228
|
0 |
0 |
if /^prefix *\= *[^\=]{2,30}$/ |
|
229
|
0 |
0 |
if /^language *\= *[a-z][a-z]$/ |
|
230
|
0 |
0 |
if /^max_message_size *\= *(\d{1,9})$/ and $1 > -1 |
|
231
|
0 |
0 |
if /^subscribe *\= *[yn]$/ |
|
232
|
0 |
0 |
if /^unsubscribe *\= *[yn]$/ |
|
233
|
0 |
0 |
if /^archive *\= *[yn]$/ |
|
234
|
0 |
0 |
if /^header *\= *[yn]$/ |
|
235
|
0 |
0 |
if /^footer *\= *[yn]$/ |
|
236
|
0 |
0 |
if /^localnet *\= *[\d\.\, ]+$/ |
|
237
|
0 |
0 |
if /^stamp_life *\= *(\d{1,9})[dwmy]$/ and $1 > -1 |
|
247
|
0 |
0 |
unless open FILE, '<', $file |
|
250
|
0 |
0 |
if /^[\#\x0d\x0a]/ |
|
251
|
0 |
0 |
unless m[^(allow|deny) +\w+/\w+ +from +\S+[\x0d\x0a]+] |
|
262
|
0 |
0 |
unless open FILE, '<', $file |
|
265
|
0 |
0 |
if /^[\#\x0d\x0a]/ |
|
267
|
0 |
0 |
unless &check_confkeys($_) |
|
278
|
0 |
0 |
unless open FILE, '<', $file |
|
281
|
0 |
0 |
if /^[\#\x0d\x0a]+/ |
|
282
|
0 |
0 |
if (/^$patterns[2]/) { } |
|
283
|
0 |
0 |
unless ($2 eq 'any' or $2 =~ /\.[a-zA-Z]{2,4}$/) |
|
287
|
0 |
0 |
if (defined $5 and not $5 =~ /^ with(out)? +stamp/) |
|
303
|
0 |
0 |
unless open FILE, '<', $file |
|
306
|
0 |
0 |
if /^[\#\x0d\x0a]+/ |
|
307
|
0 |
0 |
if eof FILE |
|
308
|
0 |
0 |
unless /^$patterns[0] +<$patterns[1]>[ \t]*[\x0d\x0a]+/ or /^<$patterns[1]>[ \t]*[\x0d\x0a]+/ or /$pattern/ |
|
322
|
0 |
0 |
if (-e $file and -s $file) |
|
327
|
0 |
0 |
if scalar @{$errors;} |
|
333
|
0 |
0 |
if (-e $file and -s $file) |
|
339
|
0 |
0 |
if (-e $file and -s $file) |
|
345
|
0 |
0 |
if (-e $file and -s $file) |
|
351
|
0 |
0 |
if (-e $file and -s $file) |
|
356
|
0 |
0 |
if scalar @{$errors;} |
|
362
|
0 |
0 |
if (-e $file and -s $file) |
|
367
|
0 |
0 |
if scalar @{$errors;} |
|
373
|
0 |
0 |
if (-e $file and -s $file) |
|
378
|
0 |
0 |
if scalar @{$errors;} |
|
385
|
0 |
0 |
if (-e $file and -s $file) |
|
390
|
0 |
0 |
if scalar @{$errors;} |
|
393
|
0 |
0 |
if (-e $file and -s $file) |
|
398
|
0 |
0 |
if scalar @{$errors;} |
|
400
|
0 |
0 |
if (exists $hash{'subscribe'} or exists $hash{'unsubscribe'}) |
|
404
|
0 |
0 |
scalar @filesok ? : |
|
413
|
0 |
0 |
unless length $keyout == 32 and length $keyin == 32 |
|
414
|
0 |
0 |
$keyout eq $keyin ? : |
|
421
|
0 |
0 |
unless open FILE, '<', $file |
|
553
|
0 |
0 |
unless open FILE, '<', $$files{'list.txt'} |