| line |
true |
false |
branch |
|
67
|
0 |
0 |
@s_levels ? : |
|
74
|
0 |
0 |
defined $u_level ? : |
|
81
|
0 |
0 |
%s_tags ? : |
|
88
|
0 |
1 |
unless ($do_f[10]) |
|
93
|
0 |
0 |
if ($security_levels[$i] eq $user_level) |
|
101
|
0 |
0 |
if (defined $tag and $do_f[10]) |
|
102
|
0 |
0 |
$user_key >= $Tag_SecLVL{$tag}{'level'} ? : |
|
109
|
0 |
1 |
if $DEBUG_AUBBC |
|
110
|
1 |
0 |
if ($MEMOIZE and not $do_f[7]) |
|
112
|
1 |
0 |
unless defined $Memoize::VERSION |
|
113
|
1 |
0 |
unless ($@ or not defined $Memoize::VERSION) |
|
121
|
0 |
1 |
if $@ |
|
127
|
0 |
1 |
if $DEBUG_AUBBC |
|
131
|
1 |
0 |
$AUBBC{'href_target'} ? : |
|
132
|
1 |
0 |
$AUBBC{'image_wrap'} ? : |
|
133
|
0 |
1 |
$AUBBC{'image_border'} ? : |
|
134
|
1 |
0 |
$AUBBC{'html_type'} eq 'xhtml' || $AUBBC{'html_type'} eq ' /' ? : |
|
140
|
0 |
1 |
if ('highlight_function' eq $_) { } |
|
143
|
0 |
0 |
if $s_hash{$_} |
|
149
|
0 |
1 |
if ($DEBUG_AUBBC) |
|
158
|
1 |
0 |
if exists $AUBBC{$name} |
|
163
|
0 |
0 |
if $DEBUG_AUBBC |
|
173
|
0 |
0 |
if ($AUBBC{'highlight'}) |
|
174
|
0 |
0 |
if $DEBUG_AUBBC |
|
175
|
0 |
0 |
unless $txt =~ /\z/ |
|
192
|
0 |
0 |
if ($AUBBC{'code_download'}) { } |
|
202
|
0 |
0 |
if (check_access('code')) { } |
|
203
|
0 |
0 |
if $name |
|
216
|
0 |
0 |
if $width |
|
217
|
0 |
0 |
if $height |
|
224
|
0 |
0 |
if $javas |
|
225
|
0 |
0 |
if $targ |
|
227
|
0 |
0 |
$name ? : |
|
232
|
0 |
1 |
if $DEBUG_AUBBC |
|
235
|
0 |
1 |
if $do_f[9] |
|
237
|
1 |
0 |
unless $AUBBC{'no_img'} |
|
240
|
0 |
1 |
$AUBBC{'protect_email'} ? : |
|
270
|
0 |
0 |
check_access('url') ? : |
|
277
|
0 |
0 |
if ($list =~ /\[\*/) |
|
280
|
0 |
0 |
if $list =~ s/\[\*=(\d+)\]/[*]$1|/g |
|
284
|
0 |
0 |
if ($_ and $_ =~ s/\A(\d+)\|(?s)(.+?)/$2/) { } |
|
|
0 |
0 |
elsif ($_ and not $_ =~ /\A\s+|\d+\|\r?\n?\z/) { } |
|
285
|
0 |
0 |
unless $_ =~ /\A\r?\n?\z/ |
|
297
|
0 |
0 |
if (check_access('img')) { } |
|
298
|
0 |
0 |
if (not $tmp =~ m[\A\w+://|/] or $tmp =~ /\?|\#|\.\bjs\b\z/i) { } |
|
302
|
0 |
0 |
if $tmp2 eq 'img' |
|
303
|
0 |
0 |
if $tmp2 eq 'right_img' |
|
304
|
0 |
0 |
if $tmp2 eq 'left_img' |
|
305
|
0 |
0 |
$AUBBC{'icon_image'} ? : |
|
319
|
0 |
0 |
if (check_access('url')) { } |
|
322
|
0 |
0 |
if $AUBBC{'protect_email'} eq 3 or $AUBBC{'protect_email'} eq 4 |
|
325
|
0 |
0 |
if $AUBBC{'protect_email'} eq 1 or $AUBBC{'protect_email'} eq 2 |
|
326
|
0 |
0 |
if $AUBBC{'protect_email'} eq 3 |
|
327
|
0 |
0 |
if $AUBBC{'protect_email'} eq 4 |
|
328
|
0 |
0 |
if $AUBBC{'protect_email'} eq 4 |
|
332
|
0 |
0 |
if $AUBBC{'protect_email'} eq 1 |
|
335
|
0 |
0 |
if $AUBBC{'protect_email'} eq 2 |
|
336
|
0 |
0 |
if $AUBBC{'protect_email'} eq 2 |
|
337
|
0 |
0 |
if $AUBBC{'protect_email'} eq 3 or $AUBBC{'protect_email'} eq 4 |
|
339
|
0 |
0 |
if $AUBBC{'protect_email'} eq '2' or $AUBBC{'protect_email'} eq '3' or $AUBBC{'protect_email'} eq '4' |
|
387
|
0 |
0 |
if $DEBUG_AUBBC |
|
390
|
0 |
0 |
if $DEBUG_AUBBC |
|
391
|
0 |
0 |
if $Build_AUBBC{$_}[1] eq '1' |
|
392
|
0 |
0 |
unless do_sub($_, $2, $Build_AUBBC{$_}[2]) |
|
395
|
0 |
0 |
if $Build_AUBBC{$_}[1] eq '2' |
|
396
|
0 |
0 |
unless do_sub($_, $2, $Build_AUBBC{$_}[2]) |
|
399
|
0 |
0 |
if $Build_AUBBC{$_}[1] eq '3' |
|
400
|
0 |
0 |
unless do_sub($_, '', $Build_AUBBC{$_}[2]) |
|
403
|
0 |
0 |
if $Build_AUBBC{$_}[1] eq '4' |
|
404
|
0 |
0 |
check_access($_) ? : |
|
411
|
0 |
0 |
if $DEBUG_AUBBC |
|
412
|
0 |
0 |
check_access($key) ? : |
|
420
|
0 |
0 |
defined $name && exists &{$name;} && (ref $name eq 'CODE' || ref $name eq '') ? : |
|
426
|
0 |
0 |
if $DEBUG_AUBBC |
|
429
|
0 |
0 |
if $NewTag{'type'} ne '4' |
|
432
|
0 |
0 |
unless $NewTag{'function'} |
|
435
|
0 |
0 |
if ($NewTag{'function'}) |
|
436
|
0 |
0 |
if $NewTag{'type'} eq '3' or $NewTag{'type'} eq '4' |
|
437
|
0 |
0 |
if ($NewTag{'type'} and $NewTag{'name'} =~ /\A[\w\-]+\z/ and $NewTag{'pattern'} =~ /\A[lns_:\-,]+|all\z/) { } |
|
439
|
0 |
0 |
if ($NewTag{'pattern'} eq 'all') { } |
|
454
|
0 |
0 |
unless $do_f[5] |
|
455
|
0 |
0 |
if $DEBUG_AUBBC and $Build_AUBBC{$NewTag{'name'}} |
|
465
|
0 |
0 |
if $DEBUG_AUBBC |
|
466
|
0 |
0 |
if exists $Build_AUBBC{$name} and not $type |
|
467
|
0 |
0 |
if $type and not $name |
|
471
|
0 |
1 |
if $DEBUG_AUBBC |
|
476
|
0 |
0 |
if $DEBUG_AUBBC |
|
484
|
0 |
0 |
if $DEBUG_AUBBC |
|
485
|
0 |
0 |
if (keys %s_hash) |
|
493
|
0 |
1 |
if $DEBUG_AUBBC |
|
494
|
1 |
0 |
defined $message ? : |
|
495
|
1 |
0 |
if ($msg) |
|
497
|
1 |
0 |
if $AUBBC{'script_escape'} |
|
498
|
1 |
0 |
if $AUBBC{'fix_amp'} |
|
499
|
0 |
1 |
if (not $AUBBC{'no_bypass'} and $msg =~ /\A\#no/) |
|
500
|
0 |
0 |
if $msg =~ s/\A\#none// |
|
501
|
0 |
0 |
if ($do_f[4]) |
|
502
|
0 |
0 |
if $msg =~ s/\A\#noubbc// |
|
503
|
0 |
0 |
if $msg =~ s/\A\#nobuild// |
|
504
|
0 |
0 |
if $msg =~ s/\A\#noutf// |
|
505
|
0 |
0 |
if $msg =~ s/\A\#nosmileys// |
|
507
|
0 |
0 |
if $DEBUG_AUBBC and not $do_f[4] |
|
509
|
1 |
0 |
if ($do_f[4]) |
|
510
|
1 |
0 |
if $AUBBC{'aubbc_escape'} |
|
511
|
1 |
0 |
unless ($AUBBC{'for_links'}) |
|
512
|
1 |
0 |
if $do_f[0] and $AUBBC{'aubbc'} |
|
513
|
0 |
0 |
if $do_f[5] and $do_f[1] |
|
515
|
1 |
0 |
if $do_f[2] and $AUBBC{'utf'} |
|
516
|
0 |
0 |
if $do_f[6] and $do_f[3] and $AUBBC{'smileys'} |
|
519
|
1 |
0 |
if $AUBBC{'aubbc_escape'} |
|
530
|
0 |
1 |
if $DEBUG_AUBBC |
|
537
|
0 |
1 |
if $DEBUG_AUBBC |
|
538
|
0 |
1 |
unless defined $text |
|
539
|
1 |
0 |
if ($text) |
|
540
|
0 |
0 |
$1 eq '&' ? : |
|
541
|
1 |
0 |
unless ($option) |
|
553
|
0 |
1 |
!$option && $AUBBC{'line_break'} eq '2' ? : |
|
|
1 |
0 |
if not $option and $AUBBC{'line_break'} eq '1' |
|
562
|
0 |
0 |
if $DEBUG_AUBBC |
|
563
|
0 |
0 |
unless defined $html |
|
564
|
0 |
0 |
if ($html) |
|
567
|
0 |
0 |
unless ($option) |
|
579
|
0 |
0 |
if $AUBBC{'line_break'} |
|
591
|
0 |
0 |
defined $error && $error ? : |