| line |
true |
false |
branch |
|
34
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
35
|
0 |
0 |
$v =~ m[^(.+?)\.[^\\/]*$] ? : |
|
93
|
0 |
0 |
unless exists $$s{-'storable'} |
|
100
|
0 |
0 |
unless $m =~ /^ars/ |
|
102
|
0 |
0 |
unless $m =~ /^ars_/ |
|
104
|
0 |
0 |
unless $m =~ /^ARS::/ |
|
115
|
0 |
0 |
if $$s{-'ctrl'} |
|
117
|
0 |
0 |
if $$s{-'dbi'} |
|
129
|
0 |
0 |
if scalar @_ == 1 |
|
130
|
0 |
0 |
if scalar @_ == 2 |
|
135
|
0 |
0 |
if ($a{-'die'}) { } |
|
|
0 |
0 |
elsif ($a{-'vfbase'}) { } |
|
136
|
0 |
0 |
if ($a{-'die'} =~ /^Carp/) { } |
|
|
0 |
0 |
elsif ($a{-'die'} =~ /^CGI::Carp/) { } |
|
|
0 |
0 |
elsif ($a{-'die'} =~ /^CGI::Die/) { } |
|
145
|
0 |
0 |
if ($$s{-'diemsg'}) |
|
147
|
0 |
0 |
if $s |
|
156
|
0 |
0 |
if ineval() |
|
157
|
0 |
0 |
if ($s and $$s{-'diemsg'}) { } |
|
161
|
0 |
0 |
($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ ? : |
|
|
0 |
0 |
if $s and $$s{-'cgi'} |
|
169
|
0 |
0 |
if $s |
|
176
|
0 |
0 |
if not $^W or ineval() |
|
177
|
0 |
0 |
if ($s and $$s{-'warnmsg'}) { } |
|
181
|
0 |
0 |
if $s and $$s{-'cgi'} |
|
187
|
0 |
0 |
if $^W |
|
191
|
0 |
0 |
unless ($a{-'vfbase'} =~ m[[\\/]]) |
|
192
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
193
|
0 |
0 |
$v =~ m[^(.+?[\\/])[^\\/]+$] ? : |
|
203
|
0 |
0 |
unless $ENV{'GATEWAY_INTERFACE'} and $ENV{'GATEWAY_INTERFACE'} =~ /PerlEx/ or $ENV{'MOD_PERL'} |
|
208
|
0 |
0 |
if $a[0] =~ /^(?:PerlEx::|Apache::Perl|Apache::Registry|Apache::ROOT)/i |
|
209
|
0 |
0 |
if $a[3] eq '(eval)' |
|
226
|
0 |
0 |
$c ? : |
|
|
0 |
0 |
$f ? : |
|
|
0 |
0 |
$o ? : |
|
|
0 |
0 |
$e && $e eq '$!' && $^E ? : |
|
239
|
0 |
0 |
$e && $e eq '$!' && $^E ? : |
|
|
0 |
0 |
$o ? : |
|
|
0 |
0 |
$f ? : |
|
|
0 |
0 |
$c ? : |
|
248
|
0 |
0 |
unless defined $v |
|
251
|
0 |
0 |
$v =~ /^\d+$/ ? : |
|
257
|
0 |
0 |
unless defined $v |
|
260
|
0 |
0 |
$v =~ /^\d+$/ ? : |
|
265
|
0 |
0 |
unless defined $_[1] |
|
268
|
0 |
0 |
$v =~ /^\d+$/ ? : |
|
282
|
0 |
0 |
ref $_[2] eq 'HASH' ? : |
|
|
0 |
0 |
ref $_[2] eq 'ARRAY' ? : |
|
|
0 |
0 |
!ref($_[2]) ? : |
|
|
0 |
0 |
$#_ < 2 ? : |
|
288
|
0 |
0 |
defined $_ ? : |
|
294
|
0 |
0 |
defined $_[2]{$_} ? : |
|
297
|
0 |
0 |
ref $_[2] eq 'HASH' ? : |
|
|
0 |
0 |
ref $_[2] eq 'ARRAY' ? : |
|
|
0 |
0 |
!ref($_[2]) ? : |
|
|
0 |
0 |
$#_ < 2 ? : |
|
314
|
0 |
0 |
if eval 'use Safe; 1' |
|
321
|
0 |
0 |
if defined $ds1 and not defined $ds2 or defined $ds2 and not defined $ds1 |
|
322
|
0 |
0 |
unless defined $ds1 or defined $ds2 |
|
323
|
0 |
0 |
if (ref $ds1 || '') ne (ref $ds2 || '') |
|
324
|
0 |
0 |
unless ref $ds1 |
|
325
|
0 |
0 |
if ref $ds1 eq 'ARRAY' |
|
326
|
0 |
0 |
if ref $ds1 eq 'HASH' |
|
332
|
0 |
0 |
defined $_ ? : |
|
341
|
0 |
0 |
if (ref $_[1] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_[1] eq 'HASH') { } |
|
363
|
0 |
0 |
if (scalar @_ and not defined $_[0]) |
|
364
|
0 |
0 |
if $^W |
|
367
|
0 |
0 |
scalar @_ == 0 || $_[0] =~ /^\d+$/i ? : |
|
368
|
0 |
0 |
scalar @_ == 1 ? : |
|
|
0 |
0 |
scalar @_ == 0 ? : |
|
387
|
0 |
0 |
if (scalar @_ and not defined $_[0]) |
|
388
|
0 |
0 |
if $^W |
|
391
|
0 |
0 |
scalar @_ < 2 || !$_[1] ? : |
|
396
|
0 |
0 |
unless $ts =~ /(\d+)/ |
|
398
|
0 |
0 |
if $m eq 'yyyy' or $m eq '%Y' |
|
400
|
0 |
0 |
if $m eq 'm' and $th{$m} |
|
401
|
0 |
0 |
if $m ne 'M' |
|
414
|
0 |
0 |
unless (defined $_[1]) |
|
415
|
0 |
0 |
if $^W |
|
427
|
0 |
0 |
$_[0]{-'charset'} && $_[0]{-'charset'} =~ /^\d/ ? : |
|
436
|
0 |
0 |
if ($] >= 5.008 and eval 'use Encode; 1') { } |
|
437
|
0 |
0 |
/8859-5/i ? : |
|
|
0 |
0 |
/koi/i ? : |
|
|
0 |
0 |
/ansi|1251/i ? : |
|
|
0 |
0 |
/oem|866/i ? : |
|
443
|
0 |
0 |
Encode::is_utf8($_) ? : |
|
|
0 |
0 |
if defined $_ and $_ ne '' |
|
451
|
0 |
0 |
if ($v =~ /oem|866/i) { } |
|
|
0 |
0 |
elsif ($v =~ /ansi|1251/i) { } |
|
|
0 |
0 |
elsif ($v =~ /koi/i) { } |
|
|
0 |
0 |
elsif ($v =~ /8859-5/i) { } |
|
456
|
0 |
0 |
if defined $_ |
|
458
|
0 |
0 |
@s > 1 ? : |
|
464
|
0 |
0 |
$#_ < 2 ? : |
|
|
0 |
0 |
$_[0] && $_[0]{-'cpcon'} ? : |
|
474
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
|
0 |
0 |
$0 =~ m[[\\/]] ? : |
|
475
|
0 |
0 |
$p =~ m[^(.+?[\\/])[^\\/]+$] ? : |
|
|
0 |
0 |
$p =~ m[^(.+?)[\\/][^\\/]+$] ? : |
|
|
0 |
0 |
$_[1] ? : |
|
484
|
0 |
0 |
$_[0] =~ /^-(?:\w[\w\d+-]*)*$/ ? : |
|
485
|
0 |
0 |
unless $f =~ /^[<>]/ |
|
488
|
0 |
0 |
if $h and $o =~ /b/ |
|
495
|
0 |
0 |
$_[0] =~ /^-(?:\w[\w\d+-]*)*$/ ? : |
|
497
|
0 |
0 |
unless opendir FILE, $f |
|
500
|
0 |
0 |
if ($cs) { } |
|
502
|
0 |
0 |
if not $cf or &$cf($s, $f, $_ = $r) |
|
509
|
0 |
0 |
if not $cf or &$cf($s, $f, $_ = $r) |
|
519
|
0 |
0 |
$_[0] =~ /^-(?:\w[\w\d+-]*)*$/ ? : |
|
520
|
0 |
0 |
unless $f =~ /^[<>]/ |
|
521
|
0 |
0 |
if $$s{-'echo'} |
|
529
|
0 |
0 |
if $r |
|
531
|
0 |
0 |
unless $r |
|
533
|
0 |
0 |
if ($o =~ /b/) { } |
|
541
|
0 |
0 |
unless $r |
|
547
|
0 |
0 |
$_[0] =~ /^-(?:\w[\w\d+-]*)*$/ ? : |
|
549
|
0 |
0 |
if ($f =~ /^[<>]+/) { } |
|
551
|
0 |
0 |
if $$s{-'echo'} |
|
556
|
0 |
0 |
if $r |
|
558
|
0 |
0 |
unless $r |
|
561
|
0 |
0 |
if $o =~ /b/ |
|
564
|
0 |
0 |
defined $r ? : |
|
570
|
0 |
0 |
unless $_[1] |
|
572
|
0 |
0 |
$v =~ /^-(.+)/ ? : |
|
580
|
0 |
0 |
if not $d and $n =~ /^-/ |
|
583
|
0 |
0 |
$n =~ /^-/ && exists $$s{"$n-storable"} ? : |
|
|
0 |
0 |
if ($n =~ /^-/ && exists $$s{"$n-storable"} ? $$s{"$n-storable"} : $$s{-'storable'}) { } |
|
586
|
0 |
0 |
if $r |
|
588
|
0 |
0 |
unless $r |
|
594
|
0 |
0 |
if ($r) |
|
598
|
0 |
0 |
if $rr |
|
600
|
0 |
0 |
unless $rr |
|
610
|
0 |
0 |
$f =~ /^-/ ? : |
|
612
|
0 |
0 |
if ($nn and $nn > 1) |
|
614
|
0 |
0 |
if $st[9] and time - $st[9] < $nn |
|
616
|
0 |
0 |
if ($d and $nn || !(-f $f)) { } |
|
|
0 |
0 |
elsif (ref $$s{"$k-calc"} eq 'CODE') { } |
|
617
|
0 |
0 |
if (ref $d) { } |
|
|
0 |
0 |
elsif (not $k) { } |
|
|
0 |
0 |
elsif (ref $$s{"$k-calc"} eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $$s{"$k-store"} eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $$s{$k} eq 'CODE') { } |
|
618
|
0 |
0 |
ref $d eq 'CODE' ? : |
|
619
|
0 |
0 |
if $k |
|
654
|
0 |
0 |
if $r |
|
656
|
0 |
0 |
unless $r |
|
661
|
0 |
0 |
unless sysread FILE, $v, 64, 0 |
|
670
|
0 |
0 |
$k && exists $$s{"$k-storable"} ? : |
|
|
0 |
0 |
$v ? : |
|
|
0 |
0 |
($v ? !($v =~ /^\$VAR1\s*=/) : ($k && exists $$s{"$k-storable"} ? $$s{"$k-storable"} : $$s{-'storable'})) ? : |
|
674
|
0 |
0 |
if $k |
|
682
|
0 |
0 |
unless $f =~ /^-/ |
|
690
|
0 |
0 |
unless $f =~ /^-/ |
|
693
|
0 |
0 |
unless $k =~ m[^\Q$f\E[/].+] |
|
704
|
0 |
0 |
if not $_[0]{$_[1]} or ref $_[0]{$_[1]} eq 'CODE' |
|
705
|
0 |
0 |
if ($_[2]) |
|
706
|
0 |
0 |
if (ref $_[2] eq 'CODE') { } |
|
708
|
0 |
0 |
$_[0]{-'cmd'} ? : |
|
711
|
0 |
0 |
if (ref $_[0]{$_[1]} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_[0]{$_[1]} eq 'HASH') { } |
|
714
|
0 |
0 |
if (not defined eval {
do {
$v = &{$_[2];}($_[0], $_[1], $i, $_ = $_[0]{$_[1]}[$i])
}
} and $@) { } |
|
|
0 |
0 |
elsif ($v) { } |
|
715
|
0 |
0 |
if $@ =~ /^last[\r\n]*$/ |
|
716
|
0 |
0 |
if $@ =~ /^next[\r\n]*$/ |
|
727
|
0 |
0 |
if (not defined eval {
do {
$v = &{$_[2];}($_[0], $_[1], $i, $_ = $_[0]{$_[1]}{$i})
}
} and $@) { } |
|
|
0 |
0 |
elsif ($v) { } |
|
728
|
0 |
0 |
if $@ =~ /^last[\r\n]*$/ |
|
729
|
0 |
0 |
if $@ =~ /^next[\r\n]*$/ |
|
754
|
0 |
0 |
unless $k |
|
755
|
0 |
0 |
if not $$s{$f} or ref $$s{$f} eq 'CODE' |
|
757
|
0 |
0 |
unless ($$s{$kk}) |
|
759
|
0 |
0 |
if (ref $$s{$f} eq 'ARRAY') { } |
|
761
|
0 |
0 |
if defined $$s{$f}[$i]{$k} |
|
767
|
0 |
0 |
if defined $$s{$f}{$kh}{$k} |
|
772
|
0 |
0 |
if (ref $v eq 'CODE') |
|
775
|
0 |
0 |
$_[0]{-'cmd'} ? : |
|
778
|
0 |
0 |
if (not defined eval {
do {
$t = &$v($s, $f, $k, $_ = $$s{$kk}{$ke})
}
} and $@) { } |
|
|
0 |
0 |
elsif ($t) { } |
|
779
|
0 |
0 |
if $@ =~ /^last[\r\n]*$/ |
|
780
|
0 |
0 |
if $@ =~ /^next[\r\n]*$/ |
|
789
|
0 |
0 |
defined $e ? : |
|
|
0 |
0 |
!ref($$s{$kk}{$v}) ? : |
|
|
0 |
0 |
!defined($$s{$kk}) ? : |
|
|
0 |
0 |
!defined($v) ? : |
|
808
|
0 |
0 |
$_[0]{-'cmd'} ? : |
|
810
|
0 |
0 |
if not $$s{$f} or ref $$s{$f} eq 'CODE' |
|
811
|
0 |
0 |
if (ref $$s{$f} eq 'ARRAY') { } |
|
813
|
0 |
0 |
if (not defined $$s{$f}[$i]{$k}) { } |
|
|
0 |
0 |
elsif ($v and not defined eval {
do {
$t = &$v($s, $f, $k, $_ = $$s{$f}[$i])
}
} and $@) { } |
|
|
0 |
0 |
elsif (not $v or $t) { } |
|
816
|
0 |
0 |
if $@ =~ /^last[\r\n]*$/ |
|
817
|
0 |
0 |
if $@ =~ /^next[\r\n]*$/ |
|
827
|
0 |
0 |
if (not defined $$s{$f}{$kh}{$k}) { } |
|
|
0 |
0 |
elsif ($v and not defined eval {
do {
$t = &$v($s, $f, $k, $_ = $$s{$k}{$kh})
}
} and $@) { } |
|
|
0 |
0 |
elsif (not $v or $t) { } |
|
830
|
0 |
0 |
if $@ =~ /^last[\r\n]*$/ |
|
831
|
0 |
0 |
if $@ =~ /^next[\r\n]*$/ |
|
849
|
0 |
0 |
unless $$s{-'die'} |
|
851
|
0 |
0 |
if $$s{-'ctrl'} |
|
852
|
0 |
0 |
if $$s{-'echo'} |
|
853
|
0 |
0 |
if $$s{-'ctrl'} and ARS::ars_VerifyUser($$s{-'ctrl'}) |
|
859
|
0 |
0 |
if $$s{-'ctrl'} |
|
867
|
0 |
0 |
if $$s{-'ctrl'} |
|
869
|
0 |
0 |
if $$s{-'dbi'} |
|
877
|
0 |
0 |
$$s{-'cmd'} ? : |
|
|
0 |
0 |
$$s{-'schgen'} ? : |
|
879
|
0 |
0 |
if (ref $$s{-'schgen'} or $$s{-'schgen'} and $$s{-'schgen'} > 1 or not -e $s->vfname('-meta')) { } |
|
|
0 |
0 |
elsif (-e $s->vfname('meta')) { } |
|
891
|
0 |
0 |
if (ref $$s{-'schgen'} and -e $s->vfname('-meta')) { } |
|
|
0 |
0 |
elsif ($$s{-'schgen'} > 1 and -e $s->vfname('-meta')) { } |
|
896
|
0 |
0 |
$$s{-'schgen'} > 2 ? : |
|
903
|
0 |
0 |
ref $$s{-'schgen'} ? : |
|
905
|
0 |
0 |
unless $fa |
|
906
|
0 |
0 |
if ($vfs and $$s{-'meta'}{$f}) |
|
908
|
0 |
0 |
$$s{-'meta'}{$f} && $$s{-'meta'}{$f}{'timestamp'} ? : |
|
|
0 |
0 |
if $$s{-'meta'}{$f} && $$s{-'meta'}{$f}{'timestamp'} ? ($$s{-'meta'}{$f}{'timestamp'} || 0) >= ($$fa{'timestamp'} || 0) && $vfs >= ($$fa{'timestamp'} || 0) : $vfs >= ($$fa{'timestamp'} || 3600) |
|
921
|
0 |
0 |
if (not $cyr and $$s{-'lang'}) |
|
923
|
0 |
0 |
$$s{-'lang'} =~ /^([A-Za-z]+)/ ? : |
|
924
|
0 |
0 |
$$s{-'lang'} =~ /^([A-Za-z_]+)/ ? : |
|
930
|
0 |
0 |
unless defined $vli or $$vw{'locale'} |
|
931
|
0 |
0 |
if not defined $vlc and $$vw{'locale'} and $$vw{'locale'} =~ /^\Q$ulc\E/ |
|
932
|
0 |
0 |
if not defined $vll and $$vw{'locale'} and $$vw{'locale'} =~ /^\Q$ull\E/ |
|
933
|
0 |
0 |
if defined $vli and defined $vlc and defined $vll |
|
936
|
0 |
0 |
if defined $vlc |
|
939
|
0 |
0 |
$$_{'unique'} && scalar @{$$_{'fieldIds'};} == 1 ? : |
|
943
|
0 |
0 |
unless %ff |
|
948
|
0 |
0 |
if not $$fm{'dataType'} or $$fm{'dataType'} =~ /^(trim|control|table|column|page)/ |
|
950
|
0 |
0 |
if not $$s{-'schfdo'} and $$fm{'option'} and $$fm{'option'} == 4 |
|
952
|
0 |
0 |
if $$ix{$$fm{'fieldId'}} or $$fm{'fieldId'} eq '1' |
|
955
|
0 |
0 |
if ($$fm{'displayInstanceList'}{'dInstanceList'}) |
|
959
|
0 |
0 |
unless $$fm{'displayInstanceList'}{'dInstanceList'}[$i]{'props'} |
|
962
|
0 |
0 |
if ($prp == 20) { } |
|
|
0 |
0 |
elsif ($prp == 230) { } |
|
966
|
0 |
0 |
if not $$fm{'fieldLbl'} and defined $vli && $i == $vli || $v =~ /^[\s\d*\\=-]*[A-Za-z]/ |
|
972
|
0 |
0 |
if not $$fm{'fieldLbll'} and defined $vll && $i == $vll || $cyr && !($v =~ /^[\s\d*\\=-]*[A-Za-z]/) |
|
978
|
0 |
0 |
$$fm{'fieldLblc'} ? : |
|
|
0 |
0 |
unless $cyr or defined $vll or ($$fm{'fieldLblc'} || '') =~ /\Q$v\E/ |
|
990
|
0 |
0 |
$v =~ /^\d+(\\\d+\\.+)/ ? : |
|
997
|
0 |
0 |
if not $$fm{'fieldLbvl'} and defined $vll && $i == $vll || $cyr && !($v =~ /^[\s\d*\\=-]*[A-Za-z]/) |
|
1007
|
0 |
0 |
if ($$s{-'metax'}) |
|
1014
|
0 |
0 |
if (not $$s{-'schgen'}) { } |
|
1017
|
0 |
0 |
if $vfu |
|
1029
|
0 |
0 |
if $$s{-'meta'} |
|
1035
|
0 |
0 |
if ($$s{-'meta'}) |
|
1037
|
0 |
0 |
if $f =~ /^-/ |
|
1038
|
0 |
0 |
unless $$s{-'meta'}{$f}{-'fldids'} |
|
1045
|
0 |
0 |
if (ref $$s{-'metadn'}) |
|
1047
|
0 |
0 |
unless ref $$s{-'metadn'}{$dn} |
|
1049
|
0 |
0 |
unless $$s{-'metadn'}{$dn}{'fieldName'} |
|
1051
|
0 |
0 |
if $$s{-'metadn'}{$dn}{'fieldId'} and not $$s{-'metaid'}{$$s{-'metadn'}{$dn}{'fieldId'}} |
|
1056
|
0 |
0 |
if (ref $$s{-'metaid'}) |
|
1058
|
0 |
0 |
unless ref $$s{-'metaid'}{$id} |
|
1061
|
0 |
0 |
if $$s{-'metaid'}{$id}{'fieldName'} and not $$s{-'metadn'}{$$s{-'metaid'}{$id}{'fieldName'}} |
|
1074
|
0 |
0 |
$$s{-'cmd'} ? : |
|
|
0 |
0 |
$$s{-'schgen'} ? : |
|
1076
|
0 |
0 |
if (ref $$s{-'schgen'} or not $$s{-'schgen'} or $$s{-'schgen'} and $$s{-'schgen'} > 1 or not -e $s->vfname('-meta-min')) |
|
1081
|
0 |
0 |
unless $$s{-'meta'} and scalar %{$$s{-'meta'};} |
|
1083
|
0 |
0 |
if $$s{-'schgen'} and ref $$s{-'schgen'} || $$s{-'schgen'} > 2 |
|
1084
|
0 |
0 |
if $fvs and $fvs < ([stat $s->vfname('-meta')]->[9] || 0) |
|
1085
|
0 |
0 |
if $fvs and $fvs < ([stat($^O eq 'MSWin32' ? scalar Win32::GetFullPathName($0) : $0)]->[9] || 0) |
|
1086
|
0 |
0 |
unless ($fvs) |
|
1091
|
0 |
0 |
if !$$e{'dataType'} || $$e{'dataType'} ne 'time' and not $$e{'limit'} && $$e{'limit'}{'enumLimits'} && ($$e{'limit'}{'enumLimits'}{'regularList'} || $$e{'limit'}{'enumLimits'}{'customList'}) |
|
1096
|
0 |
0 |
unless $$s{'-meta-min'}{$f} |
|
1097
|
0 |
0 |
unless $$s{'-meta-min'}{$f}{-'fields'} |
|
1103
|
0 |
0 |
$$s{-'schgen'} eq '1' ? : |
|
|
0 |
0 |
if $$s{-'schgen'} and $$s{-'schgen'} eq '1' ? !(-e $s->vfname('-meta-min')) : 1 |
|
1107
|
0 |
0 |
if not $$s{'-meta-min'} and $$s{-'schgen'} |
|
1108
|
0 |
0 |
if (not $$s{-'meta'} && scalar %{$$s{-'meta'};}) { } |
|
1114
|
0 |
0 |
if $$s{-'meta'}{$f} |
|
1116
|
0 |
0 |
unless $$s{-'meta'}{$f} |
|
1119
|
0 |
0 |
unless $$s{-'meta'}{$f}{-'fields'}{$ff} |
|
1135
|
0 |
0 |
$$s{-'cmd'} ? : |
|
|
0 |
0 |
$$s{-'schgen'} ? : |
|
1137
|
0 |
0 |
if (ref $$s{-'schgen'} or not $$s{-'schgen'} or $$s{-'schgen'} and $$s{-'schgen'} > 1 or not -e $s->vfname('-meta-sql')) |
|
1142
|
0 |
0 |
unless $$s{-'meta'} and scalar %{$$s{-'meta'};} |
|
1144
|
0 |
0 |
if $$s{-'schgen'} and ref $$s{-'schgen'} || $$s{-'schgen'} > 2 |
|
1145
|
0 |
0 |
if $fvs and $fvs < ([stat $s->vfname('-meta')]->[9] || 0) |
|
1146
|
0 |
0 |
if $fvs and $fvs < ([stat($^O eq 'MSWin32' ? scalar Win32::GetFullPathName($0) : $0)]->[9] || 0) |
|
1147
|
0 |
0 |
unless ($fvs) |
|
1148
|
0 |
0 |
if $$s{-'schgen'} and -e $s->vfname('-meta-sql') |
|
1149
|
0 |
0 |
unless $$s{'-meta-sql'} |
|
1150
|
0 |
0 |
$$s{-'schema'} ? : |
|
1154
|
0 |
0 |
if ($$s{-'meta'}{$f}{-'fields'}{$ff}{'dataType'} eq 'enum') |
|
1164
|
0 |
0 |
$$s{-'schgen'} eq '1' ? : |
|
|
0 |
0 |
if $$s{-'schgen'} and $$s{-'schgen'} eq '1' ? !(-e $s->vfname('-meta-sql')) : 1 |
|
1168
|
0 |
0 |
if not $$s{'-meta-sql'} and $$s{-'schgen'} |
|
1177
|
0 |
0 |
if length $v > 64 |
|
1189
|
0 |
0 |
$v =~ /^(.+?)_([A-Z]+)$/ ? : |
|
1190
|
0 |
0 |
substr($nn, -1, 1) eq 'Z' ? : |
|
|
0 |
0 |
!$nn ? : |
|
1193
|
0 |
0 |
length $v > 64 ? : |
|
1202
|
0 |
0 |
unless $f |
|
1203
|
0 |
0 |
if not $ff || $fu and $$s{'-meta-sql'} and $$s{'-meta-sql'}{-'forms'} and $$s{'-meta-sql'}{-'forms'}{$f} |
|
1208
|
0 |
0 |
if $ff and not $fu and $$s{'-meta-sql'} and $$s{'-meta-sql'}{-'forms'} and $$s{'-meta-sql'}{-'forms'}{$f} and $$s{'-meta-sql'}{$$s{'-meta-sql'}{-'forms'}{$f}}{-'fields'} and $$s{'-meta-sql'}{$$s{'-meta-sql'}{-'forms'}{$f}}{-'fields'}{$ff} |
|
1216
|
0 |
0 |
if $ff and not $fu and $ffh and $$ffh{'fieldId'} and $$s{'-meta-sql'} and $$s{'-meta-sql'}{-'forms'} and $$s{'-meta-sql'}{-'forms'}{$f} and $$s{'-meta-sql'}{$$s{'-meta-sql'}{-'forms'}{$f}}{-'ids'} and $$s{'-meta-sql'}{$$s{'-meta-sql'}{-'forms'}{$f}}{-'ids'}{$$ffh{'fieldId'}} |
|
1228
|
0 |
0 |
$$s{-'sqlname'} ? : |
|
|
0 |
0 |
$$s{-'sqlntbl'} ? : |
|
|
0 |
0 |
!$f ? : |
|
1230
|
0 |
0 |
unless $f and $tn |
|
1231
|
0 |
0 |
unless $$s{'-meta-sql'} |
|
1232
|
0 |
0 |
unless $$s{'-meta-sql'}{-'forms'} |
|
1234
|
0 |
0 |
$$s{-'sqlninc'} ? : |
|
1236
|
0 |
0 |
if (not $$s{'-meta-sql'}{$tn}) { } |
|
|
0 |
0 |
elsif ($fu) { } |
|
1244
|
0 |
0 |
unless $ff |
|
1254
|
0 |
0 |
$$s{-'sqlname'} ? : |
|
|
0 |
0 |
$$s{-'sqlncol'} ? : |
|
|
0 |
0 |
$ffh && $$ffh{'fieldId'} && $$s{'-meta-sql'}{$tn} && $$s{'-meta-sql'}{$tn}{-'ids'} && $$s{'-meta-sql'}{$tn}{-'ids'}{$$ffh{'fieldId'}} ? : |
|
|
0 |
0 |
!$ff ? : |
|
1256
|
0 |
0 |
unless $tc |
|
1258
|
0 |
0 |
$$s{-'sqlninc'} ? : |
|
1260
|
0 |
0 |
if ($fu or not $$s{'-meta-sql'}{$tn}{-'cols'}{$tc}) |
|
1262
|
0 |
0 |
$ffh && $$ffh{'fieldId'} ? : |
|
|
0 |
0 |
$$flh{'precision'} ? : |
|
|
0 |
0 |
$$flh{'rangeHigh'} ? : |
|
|
0 |
0 |
$flh ? : |
|
|
0 |
0 |
$flh && $$flh{'maxLength'} ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'enum' ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'time' ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'diary' ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'char' ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'char' && (!($flh && $$flh{'maxLength'}) || $$flh{'maxLength'} > 255) ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'decimal' ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'real' ? : |
|
|
0 |
0 |
$$ffh{'dataType'} eq 'integer' ? : |
|
|
0 |
0 |
!($ffh && $$ffh{'dataType'}) ? : |
|
|
0 |
0 |
$ffh && $$ffh{'fieldId'} && ($$ffh{'fieldId'} =~ /^(?:1)$/ || $$ffh{'indexUnique'}) ? : |
|
|
0 |
0 |
$ffh && $$ffh{'fieldMap'} && $$ffh{'fieldMap'}{'fieldType'} && $$ffh{'fieldMap'}{'fieldType'} == 2 && $$ffh{'fieldMap'}{'join'} && ($$ffh{'fieldMap'}{'join'}{'schemaIndex'} || 0) != 0 ? : |
|
|
0 |
0 |
$$ffh{'option'} == 4 ? : |
|
|
0 |
0 |
$$ffh{'option'} == 2 ? : |
|
|
0 |
0 |
$$ffh{'option'} == 1 ? : |
|
|
0 |
0 |
!($ffh && $$ffh{'option'}) ? : |
|
|
0 |
0 |
$ffh && $$ffh{'fieldId'} && $$ffh{'fieldId'} == 6 ? : |
|
1335
|
0 |
0 |
if $$ffh{'fieldId'} |
|
1351
|
0 |
0 |
ref $_[1] ? : |
|
|
0 |
0 |
$_[1] ? : |
|
1361
|
0 |
0 |
$_[2] ? : |
|
|
0 |
0 |
ref $_[1] ? : |
|
1374
|
0 |
0 |
unless $_[0]{-'metaid'}{$_[2]} or $_[0]{-'meta'}{$_[1]}{-'fldids'}{$_[2]} |
|
1385
|
0 |
0 |
unless $_[2] =~ /^\d+$/ and $_[0]{-'metaid'}{$_[2]} || $_[0]{-'meta'}{$_[1]}{-'fldids'}{$_[2]} or $_[0]{-'metadn'}{$_[2]} or $_[0]{-'meta'}{$_[1]}{-'fields'}{$_[2]} |
|
1391
|
0 |
0 |
unless $_[0]{-'metaid'}{$_[2]} |
|
1399
|
0 |
0 |
$ff =~ /^\d+$/ ? : |
|
|
0 |
0 |
!($$s{-'meta'} && $$s{-'meta'}{$f}) ? : |
|
|
0 |
0 |
ref $ff ? : |
|
1403
|
0 |
0 |
if ($ff and not $$ff{-'hashOut'} and $$ff{'dataType'} eq 'enum') |
|
1404
|
0 |
0 |
exists $$ff{'limit'}{'enumLimits'}{'customList'} ? : |
|
|
0 |
0 |
exists $$ff{'limit'}{'enumLimits'}{'regularList'} ? : |
|
|
0 |
0 |
ref $$ff{'limit'}{'enumLimits'} eq 'ARRAY' ? : |
|
1411
|
0 |
0 |
if (not $et) { } |
|
|
0 |
0 |
elsif (not ref $$et[0]) { } |
|
|
0 |
0 |
elsif (ref $$et[0] eq 'HASH' and defined $$et[0]{'itemNumber'}) { } |
|
1419
|
0 |
0 |
if $ff |
|
1427
|
0 |
0 |
$ff =~ /^\d+$/ ? : |
|
|
0 |
0 |
!($$s{-'meta'} && $$s{-'meta'}{$f}) ? : |
|
|
0 |
0 |
ref $ff ? : |
|
1431
|
0 |
0 |
$$ff{'fieldLbvl'} ? : |
|
1439
|
0 |
0 |
$ff =~ /^\d+$/ ? : |
|
|
0 |
0 |
!($$s{-'meta'} && $$s{-'meta'}{$f}) ? : |
|
|
0 |
0 |
ref $ff ? : |
|
1443
|
0 |
0 |
if ($ff and not $$ff{-'listVals'} and $$ff{'dataType'} eq 'enum') |
|
1444
|
0 |
0 |
exists $$ff{'limit'}{'enumLimits'}{'customList'} ? : |
|
|
0 |
0 |
exists $$ff{'limit'}{'enumLimits'}{'regularList'} ? : |
|
|
0 |
0 |
ref $$ff{'limit'}{'enumLimits'} eq 'ARRAY' ? : |
|
1451
|
0 |
0 |
if (not $et) { } |
|
|
0 |
0 |
elsif (not ref $$et[0]) { } |
|
|
0 |
0 |
elsif (ref $$et[0] eq 'HASH' and defined $$et[0]{'itemNumber'}) { } |
|
1459
|
0 |
0 |
if $ff |
|
1467
|
0 |
0 |
$ff =~ /^\d+$/ ? : |
|
|
0 |
0 |
ref $ff ? : |
|
1468
|
0 |
0 |
if (not defined $v && $ff && $$s{-'strFields'}) { } |
|
|
0 |
0 |
elsif ($$ff{'fieldLbvl'} and $$s{-'strFields'} == 2 and $$ff{'fieldLbvl'} =~ /\\\Q$v\E\\([^\\]+)/) { } |
|
|
0 |
0 |
elsif ($$ff{-'hashOut'}) { } |
|
|
0 |
0 |
elsif ($$ff{'dataType'} eq 'enum') { } |
|
|
0 |
0 |
elsif ($$ff{'dataType'} eq 'time') { } |
|
1474
|
0 |
0 |
if (exists $$ff{-'hashOut'}{$v}) { } |
|
1483
|
0 |
0 |
if $$ff{-'hashOut'} |
|
1495
|
0 |
0 |
$ff =~ /^\d+$/ ? : |
|
|
0 |
0 |
ref $ff ? : |
|
1496
|
0 |
0 |
if (not defined $v && $ff && $$s{-'strFields'}) { } |
|
|
0 |
0 |
elsif ($v =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($$ff{'fieldLbvl'} and $$ff{'fieldLbvl'} =~ /\\(\d+)\\\Q$v\E(?:\\|$)/) { } |
|
|
0 |
0 |
elsif ($$ff{-'hashIn'}) { } |
|
|
0 |
0 |
elsif ($$ff{'dataType'} eq 'enum') { } |
|
|
0 |
0 |
elsif ($$ff{'dataType'} eq 'time') { } |
|
1505
|
0 |
0 |
if (exists $$ff{-'hashIn'}{$v}) { } |
|
1513
|
0 |
0 |
exists $$ff{'limit'}{'enumLimits'}{'customList'} ? : |
|
|
0 |
0 |
exists $$ff{'limit'}{'enumLimits'}{'regularList'} ? : |
|
|
0 |
0 |
ref $$ff{'limit'}{'enumLimits'} eq 'ARRAY' ? : |
|
1520
|
0 |
0 |
if (not $et) { } |
|
|
0 |
0 |
elsif (not ref $$et[0]) { } |
|
|
0 |
0 |
elsif (ref $$et[0] eq 'HASH' and defined $$et[0]{'itemNumber'}) { } |
|
1532
|
0 |
0 |
if $et and not $v =~ /^\d+$/ |
|
1545
|
0 |
0 |
unless @a |
|
1551
|
0 |
0 |
$$ff{$_} ? : |
|
1555
|
0 |
0 |
$$ff{$_} ? : |
|
|
0 |
0 |
$$ff{$_} == 1 ? : |
|
|
0 |
0 |
$$ff{$_} == 2 ? : |
|
|
0 |
0 |
$$ff{$_} == 4 ? : |
|
|
0 |
0 |
!$$ff{$_} ? : |
|
|
0 |
0 |
$_ eq 'option' ? : |
|
|
0 |
0 |
!defined($$ff{$_}) ? : |
|
|
0 |
0 |
$_ eq 'fieldLblc' ? : |
|
1563
|
0 |
0 |
$f =~ /^-/ ? : |
|
1608
|
0 |
0 |
if ($a{-'fields'} and not ref $a{-'fields'}) |
|
1610
|
0 |
0 |
if $a{-'fields'} =~ /^-\$/ |
|
1611
|
0 |
0 |
if $a{-'fields'} =~ /^-f/ |
|
1618
|
0 |
0 |
!($$ff{'dataType'} && $$ff{'fieldId'}) || $$ff{'dataType'} =~ /^($q)/ || $$ff{'fieldId'} eq '15' || (!$a{-'xfields'} ? 0 : (ref $a{-'xfields'} eq 'CODE' ? &{$a{-'xfields'};}($s, $ff) : grep({$_ eq $$ff{'fieldName'} unless $_ eq $$ff{'fieldId'};} @{$a{-'xfields'};}))) ? : |
|
1624
|
0 |
0 |
if $a{-'fields'} and not ref $a{-'fields'} |
|
1625
|
0 |
0 |
if $a{-'fetch'} |
|
1627
|
0 |
0 |
ref $a{$_} ? : |
|
|
0 |
0 |
!defined($a{$_}) ? : |
|
1631
|
0 |
0 |
/^\d+$/ ? : |
|
1632
|
0 |
0 |
/^\d+$/ ? : |
|
|
0 |
0 |
ref $_ ? : |
|
1643
|
0 |
0 |
/^\d+$/ ? : |
|
1645
|
0 |
0 |
$a{-'fields'} ? : |
|
|
0 |
0 |
$a{-'fields'} && ref $a{-'fields'}[0] ? : |
|
|
0 |
0 |
ref $a{-'fetch'} ? : |
|
1650
|
0 |
0 |
$x =~ /^\d+$/ ? : |
|
|
0 |
0 |
if (not $x) { } |
|
|
0 |
0 |
elsif (/^(desc|2)$/) { } |
|
|
0 |
0 |
$v ? : |
|
1651
|
0 |
0 |
$x =~ /^\d+$/ ? : |
|
1652
|
0 |
0 |
if /^(asc|1)$/ |
|
1655
|
0 |
0 |
$x =~ /^\d+$/ ? : |
|
|
0 |
0 |
if $x |
|
1666
|
0 |
0 |
unless $q |
|
1671
|
0 |
0 |
exists $a{-'echo'} ? : |
|
|
0 |
0 |
if exists $a{-'echo'} ? $a{-'echo'} : $$s{-'echo'} |
|
1674
|
0 |
0 |
if ($c and $a{-'fields'} and not ref $a{-'fields'}[0]) { } |
|
|
0 |
0 |
elsif ($c) { } |
|
|
0 |
0 |
elsif ($a{-'fields'} and not ref $a{-'fields'}[0]) { } |
|
1682
|
0 |
0 |
if (not ref $e) { } |
|
|
0 |
0 |
elsif (not defined eval {
do {
&$c($s, $f, $_ = $id, entryOut($s, $f, $e))
}
} and $@) { } |
|
1686
|
0 |
0 |
if $@ =~ /^last[\r\n]*$/ |
|
1687
|
0 |
0 |
if $@ =~ /^next[\r\n]*$/ |
|
1691
|
0 |
0 |
if not defined $id and $ARS::ars_errstr |
|
1703
|
0 |
0 |
if ($i) { } |
|
1705
|
0 |
0 |
if $a{-'fields'} |
|
1713
|
0 |
0 |
ref $a{-'fetch'} ? : |
|
|
0 |
0 |
$a{-'fetch'} ? : |
|
|
0 |
0 |
if (not defined eval {
do {
&$c($s, $f, $_, $a{-'fetch'} ? $s->entry(-'from', $f, -'id', $_, ref $a{-'fetch'} ? (-'fields', $a{-'fetch'}) : ()) : ())
}
} and $@) |
|
1718
|
0 |
0 |
if $@ =~ /^last[\r\n]*$/ |
|
1719
|
0 |
0 |
if $@ =~ /^next[\r\n]*$/ |
|
1723
|
0 |
0 |
if not defined $i and $ARS::ars_errstr |
|
1733
|
0 |
0 |
if (@r) |
|
1740
|
0 |
0 |
if $ARS::ars_errstr |
|
1750
|
0 |
0 |
if (@r) |
|
1752
|
0 |
0 |
if ($a{-'fields'}) { } |
|
|
0 |
0 |
elsif ($a{-'fetch'}) { } |
|
1761
|
0 |
0 |
ref $a{-'fetch'} ? : |
|
1771
|
0 |
0 |
if $ARS::ars_errstr |
|
1781
|
0 |
0 |
if not defined $q or $q eq '' |
|
1783
|
0 |
0 |
if (not $c) { } |
|
|
0 |
0 |
elsif ($c eq '(') { } |
|
|
0 |
0 |
elsif ($c =~ /['"]/) { } |
|
|
0 |
0 |
elsif ($c eq ',') { } |
|
1787
|
0 |
0 |
if (not defined $q) { } |
|
|
0 |
0 |
elsif (substr($2, 0, 1) eq q[']) { } |
|
1791
|
0 |
0 |
if ($q =~ /^([^']+)'(.*)/) { } |
|
1794
|
0 |
0 |
$n =~ /^\d+$/ ? : |
|
1804
|
0 |
0 |
if defined $q |
|
1811
|
0 |
0 |
if ($2 eq ')') { } |
|
1823
|
0 |
0 |
if $2 eq $c |
|
1832
|
0 |
0 |
if ($2 eq $c) { } |
|
1833
|
0 |
0 |
$r =~ /^\s*(.*?)\s*$/ ? : |
|
1841
|
0 |
0 |
$r =~ /^\s*(.*?)\s*$/ ? : |
|
|
0 |
0 |
if $r ne '' |
|
1869
|
0 |
0 |
if $$s{-'echo'} or $a{-'echo'} |
|
1871
|
0 |
0 |
/^\d+$/ ? : |
|
1873
|
0 |
0 |
$a{-'fields'} ? : |
|
1876
|
0 |
0 |
if (%r) |
|
1878
|
0 |
0 |
if %$rr |
|
1882
|
0 |
0 |
$$s{-'cmd'} ? : |
|
1885
|
0 |
0 |
if ($ff) { } |
|
1890
|
0 |
0 |
$$ff{'strOut'} ? : |
|
|
0 |
0 |
!$$s{-'strFields'} ? : |
|
1900
|
0 |
0 |
$ARS::ars_errstr ? : |
|
1908
|
0 |
0 |
if ($rr) { } |
|
1909
|
0 |
0 |
if %$rr |
|
1918
|
0 |
0 |
if ($ff) { } |
|
1923
|
0 |
0 |
$$ff{'strOut'} ? : |
|
|
0 |
0 |
!$$s{-'strFields'} ? : |
|
1937
|
0 |
0 |
if (ref $ds1 || '') ne (ref $ds2 || '') |
|
1938
|
0 |
0 |
if (ref $ds1 || '') ne 'HASH' |
|
1941
|
0 |
0 |
unless defined $$ds1{$k} or defined $$ds2{$k} |
|
1942
|
0 |
0 |
if ref $$ds1{$k} and ref $$ds2{$k} and not dscmp($s, $ds1, $ds2) |
|
1944
|
0 |
0 |
if defined $$ds1{$k} and defined $$ds2{$k} and $$ds1{$k} eq $$ds2{$k} |
|
1946
|
0 |
0 |
if $ee and !defined($$ds2{$k}) || $$ds2{$k} eq '' and !defined($$ds1{$k}) || $$ds1{$k} eq '' |
|
1950
|
0 |
0 |
$rr ? : |
|
1961
|
0 |
0 |
ref $a{$_} ? : |
|
|
0 |
0 |
!defined($a{$_}) ? : |
|
1962
|
0 |
0 |
$$s{-'cmd'} ? : |
|
1971
|
0 |
0 |
if not $ff or exists $a{$k} or !defined($$ff{'defaultVal'}) || ref $$ff{'defaultVal'} and not $$s{-'metaid'}{$$ff{'fieldId'}}{'defaultVal'} |
|
1975
|
0 |
0 |
defined $$s{-'metaid'}{$$ff{'fieldId'}}{'defaultVal'} ? : |
|
1979
|
0 |
0 |
$$s{-'metaid'}{$$ff{'fieldId'}}{'strOut'} ? : |
|
|
0 |
0 |
if $$s{-'strFields'} |
|
1983
|
0 |
0 |
if ($f eq 'HPD:Help Desk') |
|
1984
|
0 |
0 |
if ($a{'Incident Number'} and length $a{'Incident Number'} == 1) { } |
|
|
0 |
0 |
elsif (defined $a{'Incident Number'} and not $a{'Incident Number'}) { } |
|
2002
|
0 |
0 |
exists $a{-'echo'} ? : |
|
|
0 |
0 |
if exists $a{-'echo'} ? $a{-'echo'} : $$s{-'echo'} |
|
2006
|
0 |
0 |
ref $a{$_} ? : |
|
|
0 |
0 |
!defined($a{$_}) ? : |
|
2007
|
0 |
0 |
$$s{-'cmd'} ? : |
|
2015
|
0 |
0 |
unless ($k =~ /^\d+$/) |
|
2019
|
0 |
0 |
$$ff{'strIn'} ? : |
|
|
0 |
0 |
if $$s{-'strFields'} |
|
2026
|
0 |
0 |
if ($f eq 'HPD:Help Desk') { } |
|
2028
|
0 |
0 |
if length $a{$ii} < 2 |
|
2036
|
0 |
0 |
unless ($r) |
|
2038
|
0 |
0 |
if not $r and $ARS::ars_errstr |
|
2041
|
0 |
0 |
unless $r |
|
2055
|
0 |
0 |
exists $a{-'echo'} ? : |
|
|
0 |
0 |
if exists $a{-'echo'} ? $a{-'echo'} : $$s{-'echo'} |
|
2059
|
0 |
0 |
ref $a{$_} ? : |
|
|
0 |
0 |
!defined($a{$_}) ? : |
|
2061
|
0 |
0 |
$$s{-'cmd'} ? : |
|
2069
|
0 |
0 |
unless ($k =~ /^\d+$/) |
|
2073
|
0 |
0 |
$$ff{'strIn'} ? : |
|
|
0 |
0 |
if $$s{-'strFields'} |
|
2080
|
0 |
0 |
if not $r and $ARS::ars_errstr |
|
2092
|
0 |
0 |
exists $a{-'echo'} ? : |
|
|
0 |
0 |
if exists $a{-'echo'} ? $a{-'echo'} : $$s{-'echo'} |
|
2096
|
0 |
0 |
if not $r and $ARS::ars_errstr |
|
2109
|
0 |
0 |
exists $a{-'set'} ? : |
|
|
0 |
0 |
!$a{-'file'} ? : |
|
2110
|
0 |
0 |
if ($eu) { } |
|
2111
|
0 |
0 |
exists $a{-'echo'} ? : |
|
|
0 |
0 |
$a{-'file'} ? : |
|
2120
|
0 |
0 |
$a{-'field'} =~ /^\d+$/ ? : |
|
|
0 |
0 |
$a{-'file'} ? : |
|
2123
|
0 |
0 |
if not defined $r and $ARS::ars_errstr |
|
2126
|
0 |
0 |
$r ? : |
|
|
0 |
0 |
!$a{-'file'} ? : |
|
2132
|
0 |
0 |
if $_[0]{-'dbi'} |
|
2140
|
0 |
0 |
unless $_[0]{-'die'} |
|
2141
|
0 |
0 |
if $_[0]{-'echo'} |
|
2143
|
0 |
0 |
unless eval 'use DBI; 1' |
|
2154
|
0 |
0 |
exists $a{-'echo'} ? : |
|
|
0 |
0 |
if exists $a{-'echo'} ? $a{-'echo'} : $$s{-'echo'} |
|
2159
|
0 |
0 |
unless $op->execute |
|
2169
|
0 |
0 |
exists $a{-'echo'} ? : |
|
|
0 |
0 |
if exists $a{-'echo'} ? $a{-'echo'} : $$s{-'echo'} |
|
2172
|
0 |
0 |
unless $$s{-'dbi'}->do(@q) |
|
2184
|
0 |
0 |
if (not scalar @t and ((ref $$s{-'dbiconnect'} ? $$s{-'dbiconnect'}[0] : $$s{-'dbiconnect'}) || '') =~ /^dbi:ADO:/i) |
|
2187
|
0 |
0 |
$_ =~ /\."*\Q$sch\E"*\./i ? : |
|
2188
|
0 |
0 |
$sch ? : |
|
2205
|
0 |
0 |
defined $$d{$_} ? : |
|
2207
|
0 |
0 |
$$d{'COLUMN_SIZE'} ? : |
|
2215
|
0 |
0 |
unless $$s{'-meta-sql'} |
|
2216
|
0 |
0 |
$_ =~ /\."*([^."]+)"*$/ ? : |
|
|
0 |
0 |
!$_ ? : |
|
2224
|
0 |
0 |
if ($tbl =~ /^-/) { } |
|
|
0 |
0 |
elsif (not $$dbt{$tbl}) { } |
|
2228
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
$$s{'-meta-sql'}{$tbl}{-'cols'}{$_}{'IS_PK'} ? : |
|
|
0 |
0 |
($$s{'-meta-sql'}{$tbl}{-'cols'}{$_}{'fieldId'} || '') eq '1' ? : |
|
|
0 |
0 |
$$s{'-meta-sql'}{$tbl}{-'cols'}{$_}{'TYPE_NAME'} ? : |
|
2243
|
0 |
0 |
!($_ && $$_{'COLUMN_NAME'}) ? : |
|
2248
|
0 |
0 |
if (scalar %$dbc) |
|
2253
|
0 |
0 |
unless $$cm{'TYPE_NAME'} |
|
2254
|
0 |
0 |
$$cm{'TYPE_NAME'} ne 'datetime' ? : |
|
|
0 |
0 |
if (not $$dbc{$cl}) { } |
|
|
0 |
0 |
elsif ($$dbc{$cl}{'TYPE_NAME'} ne $$cm{'TYPE_NAME'} or $$cm{'TYPE_NAME'} ne 'datetime' ? ($$dbc{$cl}{'COLUMN_SIZE'} || 0) < ($$cm{'COLUMN_SIZE'} || 0) || ($$dbc{$cl}{'DECIMAL_DIGITS'} || 0) ne ($$cm{'DECIMAL_DIGITS'} || 0) : 0) { } |
|
2266
|
0 |
0 |
if ($$cm{'COLUMN_SIZE_DB'} || 0) ne ($$dbc{$cl}{'COLUMN_SIZE'} || 0) |
|
2268
|
0 |
0 |
if ($$cm{'DECIMAL_DIGITS_DB'} || 0) ne ($$dbc{$cl}{'DECIMAL_DIGITS'} || 0) |
|
2273
|
0 |
0 |
defined $_ ? : |
|
2279
|
0 |
0 |
defined $_ ? : |
|
2287
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2289
|
0 |
0 |
unless $s->dbi->do($r) |
|
2298
|
0 |
0 |
unless $arg{-'form'} |
|
2299
|
0 |
0 |
unless $arg{-'query'} |
|
2300
|
0 |
0 |
unless $arg{-'filter'} |
|
2301
|
0 |
0 |
unless $arg{-'lim_rf'} |
|
2302
|
0 |
0 |
unless $arg{-'lim_or'} |
|
2303
|
0 |
0 |
unless $arg{-'fields'} |
|
2317
|
0 |
0 |
defined $_ ? : |
|
2321
|
0 |
0 |
if $arg{-'pk'} |
|
2322
|
0 |
0 |
if $arg{-'timestamp'} |
|
2324
|
0 |
0 |
unless $$flds{$fn}{'fieldName'} and $$flds{$fn}{'COLUMN_NAME'} and $$flds{$fn}{'TYPE_NAME'} |
|
2326
|
0 |
0 |
if not $fpk and $$flds{$fn}{'IS_PK'} and $$flds{$fn}{'IS_PK'} eq '1' |
|
2328
|
0 |
0 |
if not $fid and $$flds{$fn}{'IS_PK'} and $$flds{$fn}{'IS_PK'} eq '1' |
|
2330
|
0 |
0 |
if not $fts and $$flds{$fn}{'IS_TIMESTAMP'} |
|
2333
|
0 |
0 |
unless $fpk |
|
2334
|
0 |
0 |
if defined $arg{-'timestamp'} and not $arg{-'timestamp'} |
|
2337
|
0 |
0 |
unless $$s{-'dbi'} |
|
2338
|
0 |
0 |
$$s{-'dbi'}{'LongReadLen'} <= 1024 ? : |
|
2342
|
0 |
0 |
if ($vts) |
|
2346
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2347
|
0 |
0 |
if (not $cts) { } |
|
|
0 |
0 |
elsif ($cts >= $arg{-'lim_rf'} * 2) { } |
|
|
0 |
0 |
elsif ($cts >= $arg{-'lim_rf'}) { } |
|
2363
|
0 |
0 |
if $vts =~ /\s/ |
|
2364
|
0 |
0 |
if $vts =~ /^(.+)\.0+$/ |
|
2366
|
0 |
0 |
if ($$s{'-meta-sql'}{$tbl}{-'cols'}{'_arsobject_insert'} and !exists($arg{-'ckpush'}) || $arg{-'ckpush'}) |
|
2372
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2376
|
0 |
0 |
if ($rd) { } |
|
2378
|
0 |
0 |
if scalar @rq < $arg{-'lim_or'} |
|
2381
|
0 |
0 |
unless scalar @rq |
|
2383
|
0 |
0 |
$$_{$$fpk{'COLUMN_NAME'}} && ($$_{'_arsobject_update'} || $$_{'_arsobject_delete'}) ? : |
|
2389
|
0 |
0 |
$arg{-'query'} ? : |
|
|
0 |
0 |
$arq ? : |
|
2401
|
0 |
0 |
if not $$f{'fieldName'} && $$f{'COLUMN_NAME'} && $$f{'TYPE_NAME'} && exists $$rd{$$f{'COLUMN_NAME'}} && $$f{'fieldId'} or $$f{'IS_JOINED'} or $$f{'DISPLAY_ONLY'} or $$f{'IS_PK'} or ($$f{'fieldId'} || '') =~ /^(1|2|3|5|6|15|179)$/ |
|
2407
|
0 |
0 |
if defined $$rd{$$f{'COLUMN_NAME'}} and $$f{'TYPE_NAME'} =~ /^(?:datetime|float)$/ and $$rd{$$f{'COLUMN_NAME'}} =~ /^(.+)\.0+$/ |
|
2411
|
0 |
0 |
$$rd{$$f{'COLUMN_NAME'}} =~ /^(.+)\.0+$/ ? : |
|
|
0 |
0 |
defined $$ra{$$f{'fieldName'}} && $$ra{$$f{'fieldName'}} =~ /\.(\d+)$/ ? : |
|
|
0 |
0 |
if $ra and $$f{'TYPE_NAME'} eq 'float' and defined $$rd{$$f{'COLUMN_NAME'}} |
|
2419
|
0 |
0 |
$$f{'TYPE_NAME'} eq 'datetime' ? : |
|
|
0 |
0 |
!defined($$rd{$$f{'COLUMN_NAME'}}) ? : |
|
2425
|
0 |
0 |
if ($$rd{'_arsobject_delete'}) { } |
|
|
0 |
0 |
elsif ($$rd{'_arsobject_update'}) { } |
|
|
0 |
0 |
elsif ($$rd{'_arsobject_insert'}) { } |
|
2428
|
0 |
0 |
if $arg{-'filter'} and not &{$arg{-'filter'};}($s, \%arg, $$s{'-meta-sql'}{$tbl}, $rw, $rd) |
|
2437
|
0 |
0 |
if $arg{-'filter'} and not &{$arg{-'filter'};}($s, \%arg, $$s{'-meta-sql'}{$tbl}, $rw, $rd) |
|
2438
|
0 |
0 |
$$rw{$_} ne $$ra{$_} ? : |
|
|
0 |
0 |
!(defined $$rw{$_} && defined $$ra{$_}) ? : |
|
|
0 |
0 |
!(defined $$rw{$_} || defined $$ra{$_}) ? : |
|
|
0 |
0 |
if $ra |
|
2447
|
0 |
0 |
if (scalar %$rw) |
|
2458
|
0 |
0 |
if $arg{-'filter'} and not &{$arg{-'filter'};}($s, \%arg, $$s{'-meta-sql'}{$tbl}, $rw, $rd) |
|
2461
|
0 |
0 |
defined $$rw{$_} ? : |
|
2464
|
0 |
0 |
!exists($$rd{$_}) ? : |
|
2468
|
0 |
0 |
$$rd{'_arsobject_insert'} || $$rd{'_arsobject_delete'} ? : |
|
2473
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2475
|
0 |
0 |
unless $$s{-'dbi'}->do($sql) |
|
2480
|
0 |
0 |
if ($arg{-'ckdel'}) |
|
2484
|
0 |
0 |
$_ ? : |
|
2487
|
0 |
0 |
$$s{'-meta-sql'}{$tbl}{-'cols'}{'_arsobject_insert'} ? : |
|
|
0 |
0 |
$cnl ? : |
|
|
0 |
0 |
$cnl || $$s{'-meta-sql'}{$tbl}{-'cols'}{'_arsobject_insert'} ? : |
|
2492
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2497
|
0 |
0 |
if ($dbr) |
|
2498
|
0 |
0 |
$$dbr[0] =~ /^([^\s]+)/i ? : |
|
2500
|
0 |
0 |
$dbr ? : |
|
|
0 |
0 |
if ($dbr ? scalar @cnd >= $arg{-'lim_or'} : scalar @cnd) |
|
2507
|
0 |
0 |
$arg{-'query'} ? : |
|
2512
|
0 |
0 |
!$arg{-'filter'} || &{$arg{-'filter'};}($s, \%arg, $$s{'-meta-sql'}{$tbl}, undef, $_) ? : |
|
|
0 |
0 |
$ars{$_} ? : |
|
2516
|
0 |
0 |
if (scalar @del) |
|
2526
|
0 |
0 |
if (scalar @del) |
|
2533
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2536
|
0 |
0 |
unless $$s{-'dbi'}->do($sql) |
|
2540
|
0 |
0 |
if (not exists $arg{-'ckupd'} or $arg{-'ckupd'}) |
|
2545
|
0 |
0 |
if ($arg{-'master'} and $arg{-'master_fk'} and $fts) |
|
2550
|
0 |
0 |
unless ($mts and $mpk) |
|
2553
|
0 |
0 |
if not $mts and $$flds{$fn}{'IS_TIMESTAMP'} |
|
2554
|
0 |
0 |
if not $mpk and $$flds{$fn}{'IS_PK'} and $$flds{$fn}{'IS_PK'} eq '1' |
|
2556
|
0 |
0 |
if $mts and $mpk |
|
2559
|
0 |
0 |
defined $_ ? : |
|
2567
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
$mtv ? : |
|
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2569
|
0 |
0 |
$$mtv[0] lt $$mtv[1] ? : |
|
|
0 |
0 |
!($mtv && $$mtv[0] && $$mtv[1]) ? : |
|
2574
|
0 |
0 |
defined $_ ? : |
|
2580
|
0 |
0 |
defined $_ ? : |
|
2583
|
0 |
0 |
$mtc >= $arg{-'lim_rf'} - $arg{-'lim_rf'} * 0.1 ? : |
|
2591
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if $mpv and exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2593
|
0 |
0 |
defined $_ ? : |
|
2595
|
0 |
0 |
$mpv ? : |
|
|
0 |
0 |
$mtv ? : |
|
2606
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2608
|
0 |
0 |
if not $lm and $$s{-'dbi'}->errstr |
|
2617
|
0 |
0 |
$lm ? : |
|
2619
|
0 |
0 |
$arg{-'query'} ? : |
|
|
0 |
0 |
$lm ? : |
|
|
0 |
0 |
$fts ? : |
|
2639
|
0 |
0 |
unless $$r{$$fpk{'fieldName'}} |
|
2644
|
0 |
0 |
unless $$f{'fieldName'} and $$f{'COLUMN_NAME'} and $$f{'TYPE_NAME'} and exists $$r{$$f{'fieldName'}} |
|
2646
|
0 |
0 |
$$f{'dataType'} =~ /^(?:char)$/ && $$f{'COLUMN_SIZE'} ? : |
|
|
0 |
0 |
$$f{'TYPE_NAME'} eq 'datetime' ? : |
|
|
0 |
0 |
!defined($$r{$$f{'fieldName'}}) ? : |
|
2653
|
0 |
0 |
if $rd and defined $$rd{$$f{'COLUMN_NAME'}} and $$f{'TYPE_NAME'} =~ /^(?:datetime|float)$/ and $$rd{$$f{'COLUMN_NAME'}} =~ /^(.+)\.0+$/ |
|
2658
|
0 |
0 |
$$rd{$$f{'COLUMN_NAME'}} =~ /^(.+)\.0+$/ ? : |
|
|
0 |
0 |
defined $$rw{$$f{'fieldName'}} && $$rw{$$f{'fieldName'}} =~ /\.(\d+)$/ ? : |
|
|
0 |
0 |
if $rd and defined $$rd{$$f{'COLUMN_NAME'}} and $$f{'TYPE_NAME'} eq 'float' |
|
2666
|
0 |
0 |
if $rd and defined $$rd{$$f{'COLUMN_NAME'}} and $$f{'dataType'} =~ /^(?:char)$/ and $$f{'COLUMN_SIZE'} |
|
2670
|
0 |
0 |
defined $$rd{$$f{'COLUMN_NAME'}} ? : |
|
|
0 |
0 |
if $rd and defined $$rd{$$f{'COLUMN_NAME'}} ? !defined($$rw{$$f{'fieldName'}}) || $$rd{$$f{'COLUMN_NAME'}} ne $$rw{$$f{'fieldName'}} : defined $$rw{$$f{'fieldName'}} |
|
2676
|
0 |
0 |
if (not $rd) { } |
|
|
0 |
0 |
elsif ($ru) { } |
|
2678
|
0 |
0 |
if $arg{-'filter'} and not &{$arg{-'filter'};}($s, \%arg, $$s{'-meta-sql'}{$tbl}, $rw, $rd) |
|
2679
|
0 |
0 |
!(exists $$rw{$$_{'fieldName'}} && defined $$rw{$$_{'fieldName'}}) ? : |
|
2681
|
0 |
0 |
!(exists $$rw{$$_{'fieldName'}} && defined $$rw{$$_{'fieldName'}}) ? : |
|
2697
|
0 |
0 |
if !exists($arg{-'ckpush'}) || $arg{-'ckpush'} and $$rd{'_arsobject_insert'} || $$rd{'_arsobject_update'} || $$rd{'_arsobject_delete'} |
|
2702
|
0 |
0 |
if $arg{-'filter'} and not &{$arg{-'filter'};}($s, \%arg, $$s{'-meta-sql'}{$tbl}, $rw, $rd) |
|
2703
|
0 |
0 |
!defined($$rw{$$_{'fieldName'}}) ? : |
|
|
0 |
0 |
!exists($$rw{$$_{'fieldName'}}) ? : |
|
2709
|
0 |
0 |
exists $arg{-'ckpush'} && !$arg{-'ckpush'} && $$s{'-meta-sql'}{$tbl}{-'cols'}{'_arsobject_insert'} ? : |
|
2720
|
0 |
0 |
if ($sql) |
|
2722
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2724
|
0 |
0 |
unless $$s{-'dbi'}->do($sql) |
|
2727
|
0 |
0 |
if (not $fts and $cs == $cw * $arg{-'lim_rf'}) { } |
|
|
0 |
0 |
elsif ($lm) { } |
|
2737
|
0 |
0 |
$fts ? : |
|
|
0 |
0 |
if ($arg{-'unused'} and $fts ? $vts : 1) |
|
2738
|
0 |
0 |
$vts && $fts ? : |
|
2742
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2748
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
unless join ', ', map({$_ ? $_ : ();} $ci && "new $ci", $cu && "upd $cu", $cd && "del $cd") |
|
2766
|
0 |
0 |
defined $_ ? : |
|
2782
|
0 |
0 |
$arg{-'fields'} && $arg{-'fields'} ne '*' ? : |
|
|
0 |
0 |
ref $arg{-'fields'} ? : |
|
|
0 |
0 |
$arg{-'from'} ? : |
|
|
0 |
0 |
$arg{-'query'} ? : |
|
|
0 |
0 |
$arg{-'where'} ? : |
|
|
0 |
0 |
$arg{-'order'} ? : |
|
|
0 |
0 |
ref $arg{-'order'} ? : |
|
2785
|
0 |
0 |
$r ? : |
|
|
0 |
0 |
$i && $e =~ /^(desc|2)$/ ? : |
|
|
0 |
0 |
$i && $e =~ /^(asc|1)$/ ? : |
|
2799
|
0 |
0 |
exists $arg{-'echo'} ? : |
|
|
0 |
0 |
if exists $arg{-'echo'} ? $arg{-'echo'} : $$s{-'echo'} |
|
2800
|
0 |
0 |
$$s{-'dbi'}{'LongReadLen'} <= 1024 ? : |
|
2805
|
0 |
0 |
defined $arg{-'strFields'} ? : |
|
2806
|
0 |
0 |
defined $arg{-'strFields'} ? : |
|
2809
|
0 |
0 |
$$m{-'cols'}{$_}{'TYPE_NAME'} =~ /^(?:datetime|float)$/ && $$r{$_} =~ /^(.+)\.0+$/ ? : |
|
|
0 |
0 |
$ys && $$m{-'cols'}{$_}{'dataType'} eq 'enum' ? : |
|
|
0 |
0 |
!defined($$r{$_}) ? : |
|
|
0 |
0 |
$yc ? : |
|
|
0 |
0 |
$$m{-'cols'}{$_} && $$m{-'cols'}{$_}{'fieldName'} && $$m{-'cols'}{$_}{'fieldId'} ? : |
|
|
0 |
0 |
$xu && !defined($$r{$_}) ? : |
|
2825
|
0 |
0 |
if $arg{-'filter'} and not &{$arg{-'filter'};}($s, $r1) |
|
2840
|
0 |
0 |
$$s{-'dbi'}->quote('w') =~ /^([^w]+)w/ ? : |
|
2841
|
0 |
0 |
$$s{-'dbi'}->quote_identifier('w') =~ /^([^w]+)w/ ? : |
|
2842
|
0 |
0 |
$$s{-'dbi'}->quote(q['w]) =~ /^([^w]+)w/ ? : |
|
2843
|
0 |
0 |
$$s{-'dbi'}->quote_identifier('"w') =~ /^([^w]+)w/ ? : |
|
2848
|
0 |
0 |
if ($2 eq $qi) { } |
|
|
0 |
0 |
elsif ($2 eq $qs) { } |
|
2853
|
0 |
0 |
if (not $sf =~ /^(.*?)(\Q$qiq\E|\Q$qit\E|\Q$qi\E)(.*)/) { } |
|
|
0 |
0 |
elsif ($2 eq $qiq) { } |
|
|
0 |
0 |
elsif ($2 eq $qit) { } |
|
2854
|
0 |
0 |
$st ? : |
|
2871
|
0 |
0 |
$st && $$s{'-meta-sql'}{$st} ? : |
|
2881
|
0 |
0 |
$st ? : |
|
2890
|
0 |
0 |
if (not $sf =~ /^(.*?)(\Q$qsq\E|\Q$qs\E)(.*)/) { } |
|
|
0 |
0 |
elsif ($2 eq $qsq) { } |
|
2912
|
0 |
0 |
if $_[0]{-'cgi'} |
|
2922
|
0 |
0 |
if not $ENV{'PERLXS'} and $^O eq 'MSWin32' and $0 =~ m[[\\/]perlis\.dll$]i |
|
2924
|
0 |
0 |
unless eval 'use CGI; 1' |
|
2929
|
0 |
0 |
unless $$s{-'die'} |
|
2930
|
0 |
0 |
if $$s{-'cgi'}{'.cgi_error'} |
|
2938
|
0 |
0 |
if ($p =~ /^(.+?)__S_$/) { } |
|
|
0 |
0 |
elsif ($p =~ /^(.+?)__X_$/) { } |
|
2944
|
0 |
0 |
if (defined $$s{-'cgi'}->param("$1__P_")) { } |
|
2954
|
0 |
0 |
if ($p =~ /^(.+?)__L_$/) |
|
2972
|
0 |
0 |
if ($#_ > 0) { } |
|
2974
|
0 |
0 |
if ($v) { } |
|
|
0 |
0 |
elsif (not $ENV{'PERLXS'} || ($ENV{'GATEWAY_INTERFACE'} || '') =~ /PerlEx/) { } |
|
|
0 |
0 |
elsif ($#_ > 2 or $#_ == 2 and not $_[2]) { } |
|
|
0 |
0 |
elsif ($_[1] eq '-relative') { } |
|
|
0 |
0 |
elsif ($_[1] eq '-absolute') { } |
|
2979
|
0 |
0 |
if $v =~ m[[\\/]([^\\/]+)$] |
|
2992
|
0 |
0 |
if ($ENV{'PERLXS'} or ($ENV{'GATEWAY_INTERFACE'} || '') =~ /PerlEx/) |
|
2993
|
0 |
0 |
$v =~ m[/$] || $ENV{'SCRIPT_NAME'} =~ m[^/] ? : |
|
|
0 |
0 |
if not $v =~ m[\w/\w] and $ENV{'SCRIPT_NAME'} |
|
3022
|
0 |
0 |
$cs ? : |
|
|
0 |
0 |
$a{-'labels'} && !$a{-'values'} ? : |
|
|
0 |
0 |
$cs ? : |
|
|
0 |
0 |
$cs && $a{-'onchange'} =~ /^\d/ && $$s{-'cgi'}->param($a{-'name'} . '__C_') ? : |
|
3040
|
0 |
0 |
if $a{-'values'} |
|
3042
|
0 |
0 |
defined $a{-'labels0'}{$a} ? : |
|
|
0 |
0 |
defined $a{-'labels0'}{$b} ? : |
|
3046
|
0 |
0 |
defined $a{-'labels'}{$a} ? : |
|
|
0 |
0 |
defined $a{-'labels'}{$b} ? : |
|
3050
|
0 |
0 |
defined $a{-'labels1'}{$a} ? : |
|
|
0 |
0 |
defined $a{-'labels1'}{$b} ? : |
|
3054
|
0 |
0 |
$a{-'labels0'} ? : |
|
|
0 |
0 |
$a{-'labels1'} ? : |
|
3058
|
0 |
0 |
unless $a{$e} |
|
3065
|
0 |
0 |
$a{-'class'} ? : |
|
3066
|
0 |
0 |
$a{-'style'} ? : |
|
3068
|
0 |
0 |
!defined($$s{-'cgi'}->param($n)) || $a{-'override'} ? : |
|
3072
|
0 |
0 |
if $a{-'strict'} and not defined $v && grep(/^\Q$v\E$/, @{&$av();}) |
|
3073
|
0 |
0 |
defined $v ? : |
|
3074
|
0 |
0 |
$$s{-'cgi'}->user_agent('MSIE') ? : |
|
3076
|
0 |
0 |
$_[0] eq '4' ? : |
|
|
0 |
0 |
$_[0] eq '4' ? : |
|
|
0 |
0 |
$_[0] eq '3' ? : |
|
|
0 |
0 |
$_[0] eq '2' ? : |
|
|
0 |
0 |
$_[0] eq '1' ? : |
|
|
0 |
0 |
!$_[0] ? : |
|
|
0 |
0 |
$_[0] eq '3' ? : |
|
|
0 |
0 |
$_[0] eq '3' ? : |
|
|
0 |
0 |
$_[0] eq '3' ? : |
|
|
0 |
0 |
$_[0] eq '3' ? : |
|
|
0 |
0 |
$$s{-'cgi'}->user_agent('MSIE') ? : |
|
|
0 |
0 |
$_[0] eq '4' ? : |
|
|
0 |
0 |
$_[0] && $_[0] eq '2' ? : |
|
|
0 |
0 |
$_[0] && $_[0] ne '4' ? : |
|
3113
|
0 |
0 |
$a{-'textfield'} && $a{-'textfield'}{$_} && !$$s{-'cgi'}->param("${n}__O_") ? : |
|
|
0 |
0 |
defined $_ && defined $a{$_} ? : |
|
3116
|
0 |
0 |
defined $v ? : |
|
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
(defined $v ? $v : '') eq (defined $_ ? $_ : '') ? : |
|
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
length $_ > $aw ? : |
|
|
0 |
0 |
length $a{-'labels'}{$_} > $aw ? : |
|
|
0 |
0 |
defined $a{-'labels'}{$_} ? : |
|
|
0 |
0 |
!$a{-'labels'} ? : |
|
|
0 |
0 |
!defined($_) ? : |
|
3148
|
0 |
0 |
$$s{-'cgi'}->param("${n}__O_") ? : |
|
|
0 |
0 |
$a{-'strict'} && !$$s{-'cgi'}->param("${n}__O_") ? : |
|
|
0 |
0 |
defined $v ? : |
|
|
0 |
0 |
$$s{-'cgi'}->user_agent('MSIE') ? : |
|
|
0 |
0 |
$$s{-'cgi'}->param("${n}__C_") || $$s{-'cgi'}->param("${n}__X_") ? : |
|
|
0 |
0 |
$$s{-'cgi'}->param("${n}__O_") ? : |
|
3179
|
0 |
0 |
$a{-'form'} ? : |
|
|
0 |
0 |
$a{-'table'} ? : |
|
3180
|
0 |
0 |
$_ =~ /^
|
|
3182
|
0 |
0 |
$a{-'tr'} ? : |
|
3195
|
0 |
0 |
unless $_[0]{-'die'} |
|
3199
|
0 |
0 |
unless eval 'use Net::SMTP; 1' |
|
3203
|
0 |
0 |
$$s{-'smtphost'} ? : |
|
3207
|
0 |
0 |
if not $$s{-'smtp'} or $@ |
|
3214
|
0 |
0 |
if $_[0]{-'smtp'} |
|
3223
|
0 |
0 |
unless $$s{-'smtphost'} |
|
3229
|
0 |
0 |
if ref $a{-'from'} eq 'CODE' |
|
3230
|
0 |
0 |
if ref $a{-'to'} eq 'CODE' |
|
3231
|
0 |
0 |
$a{-'to'} =~ /^\s*(.*)\s*$/ ? : |
|
|
0 |
0 |
if $a{-'to'} and not ref $a{-'to'} and $a{-'to'} =~ /[,;]/ |
|
3235
|
0 |
0 |
if ref $a{-'recipient'} eq 'CODE' |
|
3236
|
0 |
0 |
$a{-'recipient'} =~ /^\s*(.*)\s*$/ ? : |
|
|
0 |
0 |
if $a{-'recipient'} and ref $a{-'recipient'} and $a{-'recipient'} =~ /[,;]/ |
|
3238
|
0 |
0 |
unless $a{-'recipient'} |
|
3240
|
0 |
0 |
unless (defined $a{-'data'}) |
|
3243
|
0 |
0 |
ref $a{-'subject'} eq 'CODE' ? : |
|
|
0 |
0 |
if ref $a{-'subject'} or not defined $a{-'subject'} |
|
3247
|
0 |
0 |
$koi ? : |
|
3250
|
0 |
0 |
$koi ? : |
|
3257
|
0 |
0 |
ref $a{-'to'} ? : |
|
|
0 |
0 |
ref $a{-'to'} ? : |
|
|
0 |
0 |
$koi ? : |
|
|
0 |
0 |
if $a{-'to'} |
|
3261
|
0 |
0 |
if $k =~ /^-(data|subject|html|text|from|to|sender|recipient)$/ |
|
3262
|
0 |
0 |
unless defined $a{$k} |
|
3263
|
0 |
0 |
$k =~ /^-(.+)/ ? : |
|
3267
|
0 |
0 |
$a{-'html'} ? : |
|
3276
|
0 |
0 |
$a{-'sender'} =~ /<\s*([^<>]+)\s*>/ ? : |
|
|
0 |
0 |
unless $s->smtp->mail($a{-'sender'} =~ /<\s*([^<>]+)\s*>/ ? $1 : $a{-'sender'}) |
|
3277
|
0 |
0 |
/<\s*([^<>]+)\s*>/ ? : |
|
|
0 |
0 |
!$_ ? : |
|
3280
|
0 |
0 |
/<\s*([^<>]+)\s*>/ ? : |
|
|
0 |
0 |
!$_ ? : |
|
3281
|
0 |
0 |
ref $a{-'recipient'} ? : |
|
|
0 |
0 |
ref $a{-'recipient'} ? : |
|
|
0 |
0 |
unless $s->smtp->to(ref $a{-'recipient'} ? map({!$_ ? () : (/<\s*([^<>]+)\s*>/ ? $1 : $_);} @{$a{-'recipient'};}) : $a{-'recipient'}, {'SkipBad', 1}) |
|
3283
|
0 |
0 |
unless $s->smtp->data($a{-'data'}) |
|
3286
|
0 |
0 |
unless $r |
|
3304
|
0 |
0 |
if $lf and not $lf =~ m[[\\/]] |
|
3306
|
0 |
0 |
ref $cs ? : |
|
|
0 |
0 |
if (ref $cs ? scalar @$cs : $cs) |
|
3307
|
0 |
0 |
if $^O ne 'MSWin32' |
|
3309
|
0 |
0 |
if (defined $mm and $^O eq 'MSWin32' and eval 'use Win32::Event; 1') |
|
3319
|
0 |
0 |
if ($wl and $^E and $^E == 183) |
|
3321
|
0 |
0 |
if $lf |
|
3326
|
0 |
0 |
$wl ? : |
|
3330
|
0 |
0 |
if (not $cr) { } |
|
|
0 |
0 |
elsif (ref $cr eq 'CODE') { } |
|
3335
|
0 |
0 |
if ($lf) |
|
3336
|
0 |
0 |
if fileno STDOUT |
|
3337
|
0 |
0 |
if fileno STDERR |
|
3342
|
0 |
0 |
if ($lf) |
|
3343
|
0 |
0 |
if fileno OLDOUT and close STDOUT |
|
3344
|
0 |
0 |
if fileno OLDERR and close STDERR |
|
3349
|
0 |
0 |
if (ref $cr eq 'ARRAY') |
|
3350
|
0 |
0 |
if $^O eq 'MSWin32' and not $$cr[0] =~ m[[\\/]] |
|
3352
|
0 |
0 |
$$cr[0] =~ m[^(.+?)[^\\/]+$] ? : |
|
|
0 |
0 |
if $$cr[0] =~ /\.dll$/i |
|
3356
|
0 |
0 |
if ($lf) { } |
|
3358
|
0 |
0 |
$cs ? : |
|
3359
|
0 |
0 |
$cs ? : |
|
3360
|
0 |
0 |
if (system($cmd) < 0) |
|
3367
|
0 |
0 |
$cs ? : |
|
3368
|
0 |
0 |
ref $cr ? : |
|
|
0 |
0 |
if (system(ref $cr ? @$cr : $cr) < 0) |
|
3374
|
0 |
0 |
if $cs or not defined $mm |
|
3375
|
0 |
0 |
ref $mm eq 'CODE' ? : |
|
3377
|
0 |
0 |
if $lf |
|
3381
|
0 |
0 |
ref $cs ? : |
|
|
0 |
0 |
if (defined $mm and ref $cs ? scalar @$cs : $cs) |
|
3382
|
0 |
0 |
unless $wl |
|
3383
|
0 |
0 |
ref $mm eq 'CODE' ? : |
|
3388
|
0 |
0 |
if $t1 =~ /\s([^\s]+)/ |
|
3391
|
0 |
0 |
if $lf |
|
3393
|
0 |
0 |
if (system($cmd) < 0) |
|
3395
|
0 |
0 |
if $lf |
|
3408
|
0 |
0 |
if (ref $cs) |
|
3409
|
0 |
0 |
if $^O ne 'MSWin32' |
|
3411
|
0 |
0 |
if $^O eq 'MSWin32' and not $$cs[0] =~ m[[\\/]] |
|
3413
|
0 |
0 |
$$cs[0] =~ m[^(.+?)[^\\/]+$] ? : |
|
|
0 |
0 |
if $$cs[0] =~ /\.dll$/i |
|
3415
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
!defined($_) ? : |
|
3420
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
!defined($_) ? : |
|
|
0 |
0 |
$nc ? : |
|
3423
|
0 |
0 |
$q ? : |
|
3432
|
0 |
0 |
if $lf and not $lf =~ m[[\\/]] |
|
3433
|
0 |
0 |
ref $cs ? : |
|
|
0 |
0 |
if (ref $cs ? scalar @$cs : $cs) |
|
3436
|
0 |
0 |
if $strt and defined $mm |
|
3437
|
0 |
0 |
if $strt and $lf and defined $mm |
|
3439
|
0 |
0 |
if $strt and defined $mm and $cr |
|
3441
|
0 |
0 |
$nc ? : |
|
|
0 |
0 |
if $nc ? !($l =~ /\Q$qry\E/i) : !($l =~ /\Q$qry\E[\w\d\s]*[\r\n]*$/i) |
|
3444
|
0 |
0 |
unless $l =~ /(\d+)/ |
|
3448
|
0 |
0 |
if $lf |
|
3467
|
0 |
0 |
if (ref $f and $$f{-'key'} and $$f{-'namecgi'}) |
|
3473
|
0 |
0 |
if (ref $f ne 'HASH') { } |
|
3474
|
0 |
0 |
if (not defined $dp) { } |
|
|
0 |
0 |
elsif (not defined $f) { } |
|
3479
|
0 |
0 |
if $dp eq '-formdb' |
|
3484
|
0 |
0 |
if $dp eq '-formdb' |
|
3490
|
0 |
0 |
if ($$f{-'metadb'} and $$f{-'formdb'} and $$s{-'meta'} and $$s{-'meta'}{$$f{-'formdb'}}) |
|
3496
|
0 |
0 |
unless $$f{-'name'} |
|
3497
|
0 |
0 |
unless exists $$f{-'namelbl'} |
|
3498
|
0 |
0 |
if not $$f{-'values'} || $$f{-'labels'} and schvals($s, $$f{-'formdb'}, $fm) |
|
3501
|
0 |
0 |
if not $$f{-'labels'} and schlbls($s, $$f{-'formdb'}, $fm) |
|
3504
|
0 |
0 |
if not exists $$f{-'value'} and exists $$fm{'defaultVal'} |
|
3508
|
0 |
0 |
unless ($$f{-'namecgi'}) |
|
3510
|
0 |
0 |
if $$f{-'namecgi'} |
|
3513
|
0 |
0 |
unless ($$f{-'namedb'}) |
|
3516
|
0 |
0 |
if $$f{-'namecgi'} |
|
3517
|
0 |
0 |
if $$f{-'namedb'} |
|
3518
|
0 |
0 |
unless $$f{-'namecmt'} |
|
3520
|
0 |
0 |
if $$f{-'namedb'} and $$f{-'formdb'} and not $$f{-'values'} || $$f{-'labels'} and schvals($s, $$f{-'formdb'}, $$f{-'namedb'}) |
|
3525
|
0 |
0 |
$$s{-'strFields'} && $$s{-'strFields'} == 2 ? : |
|
|
0 |
0 |
if $$f{-'namedb'} and $$f{-'formdb'} and not $$f{-'labels'} and schlbls($s, $$f{-'formdb'}, $$f{-'namedb'}) |
|
3532
|
0 |
0 |
if (ref $$f{-'labels'} eq 'HASH') |
|
3534
|
0 |
0 |
unless ref $$f{-'labels'}{$k} |
|
3535
|
0 |
0 |
unless $$f{-'changelb'} |
|
3536
|
0 |
0 |
defined $$f{-'labels'}{$k}{-'name'} ? : |
|
|
0 |
0 |
defined $$f{-'labels'}{$k}{-'label'} ? : |
|
3545
|
0 |
0 |
if (ref $$f{-'values'} eq 'ARRAY') |
|
3547
|
0 |
0 |
unless ref $$f{-'values'}[$i] |
|
3548
|
0 |
0 |
unless $$f{-'changelb'} |
|
3549
|
0 |
0 |
defined $$f{-'values'}[$i]{-'label'} ? : |
|
|
0 |
0 |
defined $$f{-'values'}[$i]{-'name'} ? : |
|
3559
|
0 |
0 |
if ($$f{-'change'} or $$f{-'changelb'}) |
|
3563
|
0 |
0 |
if (exists $$f{-'computed'} and not $$f{-'readonly'} || $$f{-'disabled'}) |
|
3567
|
0 |
0 |
if (not $$f{-'namecgi'} && $$f{-'action'}) { } |
|
|
0 |
0 |
elsif (not $$ah{$$f{-'namecgi'}}) { } |
|
|
0 |
0 |
elsif (ref $$f{-'action'} or $$f{-'action'} =~ /^../) { } |
|
3575
|
0 |
0 |
if not exists $$f{-'used'} and exists $$ah{$$f{-'namecgi'}}{-'used'} |
|
3578
|
0 |
0 |
if not exists $$f{-'unused'} and exists $$ah{$$f{-'namecgi'}}{-'unused'} |
|
3581
|
0 |
0 |
unless exists $$ah{$$f{-'namecgi'}}{-'widget'} |
|
3584
|
0 |
0 |
if (exists $$f{-'used'} or exists $$f{-'unused'}) { } |
|
|
0 |
0 |
elsif ($ak and $$f{-'action'} || $$f{-'preact'} and ($$f{-'action'} || $$f{-'preact'}) =~ /^(?:entryUpd|entryDel|entry|vfentry|vfhash)$/) { } |
|
3593
|
0 |
0 |
if $$f{-'preact'} and not exists $$f{-'widget'} |
|
3595
|
0 |
0 |
if $$f{-'action'} and $$f{-'action'} =~ /^\d$/ |
|
3599
|
0 |
0 |
unless ($bf) |
|
3602
|
0 |
0 |
if ref $f ne 'HASH' |
|
3603
|
0 |
0 |
unless $$f{-'namecgi'} and $$f{-'action'} |
|
3605
|
0 |
0 |
if exists $$f{-'computed'} or exists $$f{-'value'} or not $$ah{$$f{-'namecgi'}} |
|
3620
|
0 |
0 |
ref $_ && cfpused($s, $_) ? : |
|
|
0 |
0 |
unless $f |
|
3622
|
0 |
0 |
unless ref $f |
|
3650
|
0 |
0 |
!ref($f) || ref $f ne 'HASH' ? : |
|
3659
|
0 |
0 |
ref $_[1] ? : |
|
3667
|
0 |
0 |
ref $_[1] ? : |
|
3675
|
0 |
0 |
ref $_[1] ? : |
|
3685
|
0 |
0 |
ref $$f{-'computed'} eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $$f{-'computed'} eq 'CODE' ? : |
|
|
0 |
0 |
exists $$f{-'computed'} ? : |
|
|
0 |
0 |
!($$f{-'namecgi'} && defined $_[0]{-'cgi'}->param($$f{-'namecgi'})) ? : |
|
|
0 |
0 |
!$f ? : |
|
3694
|
0 |
0 |
ref $_[1] ? : |
|
3704
|
0 |
0 |
ref $$f{-'labels'} eq 'CODE' ? : |
|
3710
|
0 |
0 |
!$$f{-'labels'} ? : |
|
|
0 |
0 |
ref $$f{-'values'} eq 'CODE' ? : |
|
|
0 |
0 |
!$$f{-'values'} ? : |
|
|
0 |
0 |
!$f ? : |
|
3719
|
0 |
0 |
defined $v ? : |
|
3725
|
0 |
0 |
ref $_[1] ? : |
|
3741
|
0 |
0 |
ref $$f{-'computed'} eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $$f{-'computed'} eq 'CODE' ? : |
|
|
0 |
0 |
$$f{-'values'} || $$f{-'labels'} ? : |
|
|
0 |
0 |
ref $$f{-'value'} eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $$f{-'value'} eq 'CODE' ? : |
|
|
0 |
0 |
!exists($$f{-'value'}) ? : |
|
|
0 |
0 |
exists $$f{-'computed'} ? : |
|
|
0 |
0 |
!$f ? : |
|
3748
|
0 |
0 |
ref $_[1] ? : |
|
3758
|
0 |
0 |
!(defined $v1 || defined $v0) ? : |
|
|
0 |
0 |
defined $v1 && defined $v0 ? : |
|
3768
|
0 |
0 |
ref $_[1] ? : |
|
3771
|
0 |
0 |
ref $f ? : |
|
3772
|
0 |
0 |
$$f{-'onchange'} || $$f{-'values'} ? : |
|
3783
|
0 |
0 |
ref $act eq 'HASH' ? : |
|
3784
|
0 |
0 |
ref $act eq 'HASH' ? : |
|
3789
|
0 |
0 |
unless not ref $f && $$f{-'namedb'} or $$f{-'key'} or not $$f{-'formdb'} or $$f{-'formdb'} ne $frm |
|
3797
|
0 |
0 |
if ref $_[1]{-'values'} eq 'ARRAY' and not scalar @{$_[1]{-'values'};} |
|
3799
|
0 |
0 |
if defined $_[1]{-'undef'} and defined $v and $_[1]{-'undef'} eq $v |
|
3800
|
0 |
0 |
if defined $v and $v ne '' and !$_[1]{-'master'} || $_[1]{-'key'} |
|
3801
|
0 |
0 |
if $_[1]{-'master'} and not $_[1]{-'key'} |
|
3802
|
0 |
0 |
if not $_[2] or defined $_[1]{-'vftran'} and not $_[1]{-'vftran'} |
|
3803
|
0 |
0 |
ref $_[1]{-'labels'} eq 'HASH' && exists $_[1]{-'labels'}{$v} ? : |
|
|
0 |
0 |
!defined($v) ? : |
|
3810
|
0 |
0 |
if ($frn or $$s{-'fpbn'}) |
|
3811
|
0 |
0 |
$frn =~ /^(.+?)\d+$/ ? : |
|
3812
|
0 |
0 |
if ($n ne ($$s{-'fpbn'} || '')) |
|
3815
|
0 |
0 |
if ($ae =~ /^(?:vfentry|entry)$/) |
|
3817
|
0 |
0 |
if &$ffc($s, $ff) or not $$ff{-'master'} |
|
3824
|
0 |
0 |
if (not $ae) { } |
|
|
0 |
0 |
elsif (ref $ae eq 'CODE' and $ord eq '-action') { } |
|
|
0 |
0 |
elsif (ref $ae eq 'CODE') { } |
|
|
0 |
0 |
elsif ($ae =~ /^(?:vfentry|entry)$/ and ref $$s{-'fpbv'}) { } |
|
|
0 |
0 |
elsif ($ae eq 'vfentry') { } |
|
|
0 |
0 |
elsif ($ae eq 'vfhash') { } |
|
|
0 |
0 |
elsif ($ae eq 'entry') { } |
|
|
0 |
0 |
elsif ($ae eq 'entryNew') { } |
|
|
0 |
0 |
elsif ($ae eq 'entryIns') { } |
|
|
0 |
0 |
elsif ($ae eq 'entryUpd') { } |
|
|
0 |
0 |
elsif ($act eq 'entryDel') { } |
|
|
0 |
0 |
elsif ($ae eq 'entrySave') { } |
|
3827
|
0 |
0 |
&$ffc($s, $_) ? : |
|
3835
|
0 |
0 |
&$ffc($s, $_) || !defined(cfpv($s, $_)) ? : |
|
3843
|
0 |
0 |
if scalar @{$$s{-'fpbv'};} |
|
3844
|
0 |
0 |
unless $r |
|
3850
|
0 |
0 |
if ($frk and $fs and $fn = $$frk{-'namedb'} and defined($fv = cfpv($s, $$frk{-'master'}))) { } |
|
|
0 |
0 |
elsif ($fs) { } |
|
3851
|
0 |
0 |
if defined $$_{$fn} |
|
3853
|
0 |
0 |
$$f{-'namedb'} ? : |
|
3854
|
0 |
0 |
if $$s{-'fpbv'} and scalar @{$$s{-'fpbv'};} |
|
3855
|
0 |
0 |
unless $r |
|
3859
|
0 |
0 |
if (defined($fv = cfpv($s, $f))) { } |
|
|
0 |
0 |
elsif ($$af{-'namedb'} and $fv = cfpv($s, $af)) { } |
|
|
0 |
0 |
elsif ($fn = cfpnd($s, cfpv($s, $af))) { } |
|
3868
|
0 |
0 |
if ($fn and defined $fv) { } |
|
3872
|
0 |
0 |
if not defined $$e{$fn} or $$e{$fn} ne $fv |
|
3876
|
0 |
0 |
unless $r |
|
3880
|
0 |
0 |
$fn ? : |
|
3893
|
0 |
0 |
if (defined($fv = cfpv($s, $f))) { } |
|
|
0 |
0 |
elsif ($$af{-'namedb'} and $fv = cfpv($s, $af)) { } |
|
|
0 |
0 |
elsif ($fn = cfpnd($s, cfpv($s, $af))) { } |
|
3903
|
0 |
0 |
if (not $fs) { } |
|
|
0 |
0 |
elsif (not $fn) { } |
|
|
0 |
0 |
elsif (not defined $fv) { } |
|
3914
|
0 |
0 |
unless $r |
|
3921
|
0 |
0 |
if (not $frm) { } |
|
|
0 |
0 |
elsif ($frk and $fn = $$frk{-'namedb'} and $fv = cfpv($s, $$frk{'master'})) { } |
|
|
0 |
0 |
elsif ($f and $fv = cfpv($s, $f)) { } |
|
|
0 |
0 |
elsif ($fn = $$af{-'namedb'} and defined($fv = cfpv($s, $af)) or $fn = cfpnd($s, cfpv($s, $af)) and defined($fv = cfpv($s, $fn))) { } |
|
3926
|
0 |
0 |
if $s->connect |
|
3927
|
0 |
0 |
$$f{-'namedb'} ? : |
|
3932
|
0 |
0 |
if ($$s{-'fpbv'}) { } |
|
3933
|
0 |
0 |
if scalar @{$$s{-'fpbv'};} |
|
3934
|
0 |
0 |
unless $r |
|
3941
|
0 |
0 |
if $s->connect |
|
3948
|
0 |
0 |
if $s->connect |
|
3952
|
0 |
0 |
if ($r) |
|
3954
|
0 |
0 |
unless $r |
|
3964
|
0 |
0 |
if $s->connect |
|
|
0 |
0 |
if $frm |
|
3970
|
0 |
0 |
&$ffc($s, $_) || exists $$_{-'entryIns'} && !$$_{-'entryIns'} ? : |
|
|
0 |
0 |
if $frm |
|
3972
|
0 |
0 |
if $s->connect |
|
3977
|
0 |
0 |
if ref $r |
|
3978
|
0 |
0 |
if (not $r) { } |
|
|
0 |
0 |
elsif (not $fs && $$f{-'key'}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfclear'} || $$f{-'vfclear'} and $$s{"$fs-calc"}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfrenew'} || $$f{-'vfrenew'} and $$s{"$fs-store"}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfedit'} or $$f{-'vfedit'}) { } |
|
3979
|
0 |
0 |
unless $@ |
|
3991
|
0 |
0 |
defined $$f{-'vftran'} ? : |
|
3994
|
0 |
0 |
&$ffc($s, $_) || exists $$_{-'vfstore'} && !$$_{-'vfstore'} ? : |
|
3995
|
0 |
0 |
$$f{-'namedb'} ? : |
|
4005
|
0 |
0 |
&$ffc($s, $_) || exists $$_{-'entryUpd'} && !$$_{-'entryUpd'} ? : |
|
|
0 |
0 |
if $frm and cfpvv($s, $f) |
|
4007
|
0 |
0 |
if $s->connect |
|
4012
|
0 |
0 |
if (not $r) { } |
|
|
0 |
0 |
elsif (not $$f{-'key'} && $fs) { } |
|
|
0 |
0 |
elsif ($$af{-'vfclear'} || $$f{-'vfclear'} and $$s{"$fs-calc"}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfrenew'} || $$f{-'vfrenew'} and $$s{"$fs-store"}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfedit'} or $$f{-'vfedit'}) { } |
|
4013
|
0 |
0 |
unless $@ |
|
4025
|
0 |
0 |
defined $$f{-'vftran'} ? : |
|
4029
|
0 |
0 |
if not defined $$e{$fn} or $$e{$fn} ne $fv |
|
4031
|
0 |
0 |
if &$ffc($s, $f1) or exists $$f1{-'vfstore'} and not $$f1{-'vfstore'} |
|
4042
|
0 |
0 |
if $s->connect |
|
|
0 |
0 |
if $frm and cfpvv($s, $f) |
|
4046
|
0 |
0 |
if (not $r) { } |
|
|
0 |
0 |
elsif (not $fs && $$f{-'key'}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfclear'} || $$f{-'vfclear'} and $$s{"$fs-calc"}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfrenew'} || $$f{-'vfrenew'} and $$s{"$fs-store"}) { } |
|
|
0 |
0 |
elsif ($$af{-'vfedit'} or $$f{-'vfedit'}) { } |
|
4047
|
0 |
0 |
unless $@ |
|
4063
|
0 |
0 |
if (defined $$e{$fn} and $$e{$fn} eq $fv) |
|
4075
|
0 |
0 |
cfpvp($s, $f) ? : |
|
|
0 |
0 |
cfpvv($s, $f) ? : |
|
4076
|
0 |
0 |
if ($a eq 'entryIns') |
|
4077
|
0 |
0 |
&$ffc($s, $_) || exists $$_{-'entryIns'} && !$$_{-'entryIns'} ? : |
|
4081
|
0 |
0 |
$a eq 'entryUpd' && cfpvp($s, $f) ? : |
|
|
0 |
0 |
$a eq 'entryIns' ? : |
|
|
0 |
0 |
$vy ? : |
|
4089
|
0 |
0 |
if $a eq 'entryDel' and $$f{-'namecgi'} |
|
4091
|
0 |
0 |
ref $act eq 'HASH' ? : |
|
|
0 |
0 |
!$a ? : |
|
4097
|
0 |
0 |
if (ref $r eq 'HASH' and $ord eq '-preact') |
|
4098
|
0 |
0 |
&$ffc($s, $_) || !$$_{-'namecgi'} ? : |
|
4102
|
0 |
0 |
unless exists $$r{$$f1{-'namedb'}} |
|
4105
|
0 |
0 |
if (defined $v or defined $$s{-'cgi'}->param($$f1{-'namecgi'})) |
|
4108
|
0 |
0 |
if $u and $$f1{-'values'} || $$f1{-'labels'} |
|
4111
|
0 |
0 |
defined $$f{-'vftran'} ? : |
|
|
0 |
0 |
defined $$f1{-'vftran'} ? : |
|
|
0 |
0 |
if (defined $v and defined $$f1{-'vftran'} ? $$f1{-'vftran'} : (defined $$f{-'vftran'} ? $$f{-'vftran'} : $$af{-'vftran'}) and ref $$f1{-'labels'} eq 'HASH' and not exists $$f1{-'labels'}{$v}) |
|
4115
|
0 |
0 |
if $v ne $$f1{-'labels'}{$k} |
|
4120
|
0 |
0 |
if $u and not exists $$f1{-'labels'}{$v} and (defined $$f1{-'lbtran'} and not $$f1{-'lbtran'}) |
|
4139
|
0 |
0 |
($$s{-'lang'} || '') =~ /^ru/i ? : |
|
|
0 |
0 |
ref $cmsg eq 'HASH' ? : |
|
4145
|
0 |
0 |
$_[1] =~ /^(?:Error|Warning)/ ? : |
|
|
0 |
0 |
defined $_[1] ? : |
|
|
0 |
0 |
defined $_[2] ? : |
|
4155
|
0 |
0 |
if not $cmsg or ref $cmsg ne 'CODE' |
|
4157
|
0 |
0 |
$CGI::Carp::CUSTOM_MSG ? : |
|
4163
|
0 |
0 |
$_[1]{-'namehtml'} ? : |
|
4169
|
0 |
0 |
unless $cfld |
|
4170
|
0 |
0 |
unless $cfld0 |
|
4171
|
0 |
0 |
unless $cfld1 |
|
4181
|
0 |
0 |
if ref $f ne 'HASH' or exists $$f{-'used'} and not $$f{-'used'} |
|
4183
|
0 |
0 |
if ($$f{-'preact'} and not $$f{-'preact'} =~ /^\d$/ and cfpvv($s, $f)) |
|
4185
|
0 |
0 |
unless $act |
|
4188
|
0 |
0 |
if ($$f{-'action'} and not $$f{-'action'} =~ /^\d$/ and cfpvv($s, $f)) |
|
4191
|
0 |
0 |
if ($$f{-'key'} and $act and not $err) |
|
4195
|
0 |
0 |
if $arv |
|
4200
|
0 |
0 |
unless ($arv) |
|
4206
|
0 |
0 |
if ($$f{-'key'}) |
|
4209
|
0 |
0 |
unless cfpused($s, $f) |
|
4211
|
0 |
0 |
$$f{-'reset'} ? : |
|
|
0 |
0 |
ref $$f{-'reset'} eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $$f{-'reset'} eq 'CODE' ? : |
|
|
0 |
0 |
!$$f{-'reset'} ? : |
|
|
0 |
0 |
if (!$$f{-'reset'} ? undef : (ref $$f{-'reset'} eq 'CODE' ? &{$$f{-'reset'};}($s, $f) : (ref $$f{-'reset'} eq 'ARRAY' ? grep({cfpvcc($s, $_);} @{$$f{-'reset'};}) : ($$f{-'reset'} ? cfpvcc($s, $$f{-'reset'}) : undef)))) |
|
4228
|
0 |
0 |
ref $$f{-'computed'} eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $$f{-'computed'} eq 'CODE' ? : |
|
|
0 |
0 |
exists $$f{-'computed'} ? : |
|
4232
|
0 |
0 |
if (not $$f{-'action'} || $$f{-'preact'} and $$f{-'namecgi'}) |
|
4233
|
0 |
0 |
if (defined $fv) |
|
4234
|
0 |
0 |
defined $$f{-'lbtran'} ? : |
|
|
0 |
0 |
if (defined $$f{-'lbtran'} ? $$f{-'lbtran'} : 0 and ref $$f{-'labels'} eq 'HASH' and not exists $$f{-'labels'}{$fv}) |
|
4237
|
0 |
0 |
if $fv ne $$f{-'labels'}{$k} |
|
4241
|
0 |
0 |
unless exists $$f{-'labels'}{$fv} or $$f{-'lbadd'} |
|
4247
|
0 |
0 |
defined $$f{-'lbadd'} ? : |
|
|
0 |
0 |
if (defined $$f{-'lbadd'} ? $$f{-'lbadd'} : 0) |
|
4248
|
0 |
0 |
if ref $$f{-'labels'} eq 'HASH' and not $$f{-'values'} |
|
4254
|
0 |
0 |
if ref $$f{-'values'} eq 'ARRAY' and not grep(/^\Q$fv\E$/, @{$$f{-'values'};}) |
|
4257
|
0 |
0 |
if ref $$f{-'labels'} eq 'CODE' |
|
4259
|
0 |
0 |
if ref $$f{-'values'} eq 'CODE' |
|
4261
|
0 |
0 |
if $$f{-'labels'} and not $$f{-'values'} |
|
4265
|
0 |
0 |
if ($$f{-'values'} and not defined $fv && grep(/^\Q$fv\E$/, @{$$f{-'values'};})) |
|
4268
|
0 |
0 |
unless defined $fv |
|
4269
|
0 |
0 |
if $$f{-'change'} |
|
4271
|
0 |
0 |
if (defined $fv) { } |
|
4273
|
0 |
0 |
unless defined $$s{-'cgi'}->param("${fn}__PV_") |
|
4281
|
0 |
0 |
unless $$f{$q} |
|
4282
|
0 |
0 |
unless cfpvcc($s, $f) |
|
4283
|
0 |
0 |
ref $$f{$q} eq 'CODE' ? : |
|
4284
|
0 |
0 |
ref $$c{$fv} eq 'HASH' ? : |
|
|
0 |
0 |
ref $c ne 'HASH' ? : |
|
4285
|
0 |
0 |
if (ref $c eq 'HASH') |
|
4287
|
0 |
0 |
if $k =~ /^-/ |
|
4291
|
0 |
0 |
ref $$c{$k} eq 'CODE' ? : |
|
|
0 |
0 |
defined $$c{$k} ? : |
|
4298
|
0 |
0 |
!ref($$f{-'error'}) && (!defined($fv) || $fv eq '') ? : |
|
|
0 |
0 |
ref $$f{-'error'} eq 'CODE' ? : |
|
|
0 |
0 |
!($aec && $$f{-'error'}) ? : |
|
|
0 |
0 |
if (my $ev = !($aec && $$f{-'error'}) ? undef : (ref $$f{-'error'} eq 'CODE' ? &{$$f{-'error'};}($s, $f, $_ = $fv, cfpvp($s, $f), $aec) : (!ref($$f{-'error'}) && (!defined($fv) || $fv eq '') ? $$f{-'error'} : undef))) |
|
4309
|
0 |
0 |
!ref($$f{-'warn'}) && (!defined($fv) || $fv eq '') ? : |
|
|
0 |
0 |
ref $$f{-'warn'} eq 'CODE' ? : |
|
|
0 |
0 |
!$$f{-'warn'} ? : |
|
|
0 |
0 |
if (my $ev = !$$f{-'warn'} ? undef : (ref $$f{-'warn'} eq 'CODE' ? &{$$f{-'warn'};}($s, $f, $_ = $fv, cfpvp($s, $f), $aec) : (!ref($$f{-'warn'}) && (!defined($fv) || $fv eq '') ? $$f{-'warn'} : undef))) |
|
4321
|
0 |
0 |
if $err |
|
4324
|
0 |
0 |
if ref $f ne 'HASH' or exists $$f{-'used'} and not $$f{-'used'} |
|
4326
|
0 |
0 |
unless cfpused($s, $f) |
|
4327
|
0 |
0 |
if ($$f{-'action'} and not $$f{-'action'} =~ /^\d$/ and cfpvv($s, $f)) |
|
4329
|
0 |
0 |
unless $act |
|
4332
|
0 |
0 |
if ($$f{-'key'} and $act and not $err) |
|
4335
|
0 |
0 |
if $$a{-'namelbl'} or $$a{-'namecgi'} |
|
4338
|
0 |
0 |
if $arv |
|
4343
|
0 |
0 |
unless ($arv) |
|
4349
|
0 |
0 |
if ($$f{-'key'}) |
|
4353
|
0 |
0 |
if ($acf) |
|
4354
|
0 |
0 |
$err ? : |
|
4357
|
0 |
0 |
if $err |
|
4358
|
0 |
0 |
if $acf |
|
4361
|
0 |
0 |
if ref $f ne 'HASH' or exists $$f{-'used'} and not $$f{-'used'} |
|
4363
|
0 |
0 |
if exists $$f{-'widget'} and not defined $$f{-'widget'} |
|
4364
|
0 |
0 |
unless $$f{-'namecgi'} |
|
4366
|
0 |
0 |
if $u and not $$f{-'hidden'} || ref $$f{-'values'} eq 'ARRAY' && !scalar(@{$$f{-'values'};}) |
|
4367
|
0 |
0 |
defined cfpvp($s, $f) ? : |
|
|
0 |
0 |
defined $$s{-'cgi'}->param($$f{-'namecgi'}) ? : |
|
|
0 |
0 |
defined cfpvv($s, $f) ? : |
|
|
0 |
0 |
!$u ? : |
|
4384
|
0 |
0 |
ref $cfld0 ? : |
|
4387
|
0 |
0 |
if ref $f ne 'HASH' or exists $$f{-'used'} and not $$f{-'used'} |
|
4389
|
0 |
0 |
unless cfpused($s, $f) |
|
4390
|
0 |
0 |
if exists $$f{-'widget'} and not defined $$f{-'widget'} |
|
4391
|
0 |
0 |
if $$f{-'hidden'} or ref $$f{-'values'} eq 'ARRAY' and not scalar @{$$f{-'values'};} |
|
4393
|
0 |
0 |
if ($$f{-'action'} or $$f{-'preact'}) { } |
|
|
0 |
0 |
elsif ($bb) { } |
|
4394
|
0 |
0 |
if $bb |
|
4405
|
0 |
0 |
defined $$f{$_} ? : |
|
4407
|
0 |
0 |
ref $$f{-'widget'} eq 'HASH' ? : |
|
|
0 |
0 |
!$$f{-'namecgi'} ? : |
|
|
0 |
0 |
ref $$f{-'widget'} eq 'CODE' ? : |
|
|
0 |
0 |
!ref($$f{-'widget'}) && $$f{-'widget'} ? : |
|
|
0 |
0 |
exists $$f{-'widget'} && !$$f{-'widget'} ? : |
|
4432
|
0 |
0 |
defined $$f{$_} ? : |
|
4458
|
0 |
0 |
ref $$f{$_} eq 'CODE' ? : |
|
4459
|
0 |
0 |
defined $v ? : |
|
4463
|
0 |
0 |
ref $$f{$_} eq 'CODE' ? : |
|
4464
|
0 |
0 |
defined $v ? : |
|
4468
|
0 |
0 |
ref $$f{$_} eq 'CODE' ? : |
|
4469
|
0 |
0 |
defined $v ? : |
|
4472
|
0 |
0 |
ref $$f{$_} eq 'CODE' ? : |
|
4473
|
0 |
0 |
defined $v ? : |
|
4479
|
0 |
0 |
$$f{-'action'} || $$f{-'preact'} ? : |
|
|
0 |
0 |
ref $$f{-'widget0'} eq 'CODE' ? : |
|
|
0 |
0 |
!$$f{-'widget0'} ? : |
|
|
0 |
0 |
!($$f{-'action'} || $$f{-'preact'}) && $$f{-'namecgi'} && defined cfpvp($s, $f) ? : |
|
|
0 |
0 |
$$f{-'action'} || $$f{-'preact'} ? : |
|
|
0 |
0 |
$$f{-'rows'} ? : |
|
|
0 |
0 |
$$f{-'values'} ? : |
|
|
0 |
0 |
$$f{-'action'} || $$f{-'preact'} ? : |
|
|
0 |
0 |
$$f{-'rows'} ? : |
|
|
0 |
0 |
$$f{-'values'} ? : |
|
|
0 |
0 |
ref $$f{-'widget'} eq 'HASH' ? : |
|
|
0 |
0 |
!$$f{-'namecgi'} ? : |
|
|
0 |
0 |
ref $$f{-'widget'} eq 'CODE' ? : |
|
|
0 |
0 |
!ref($$f{-'widget'}) && exists $$f{-'widget'} ? : |
|
|
0 |
0 |
ref $$f{-'widget1'} eq 'CODE' ? : |
|
|
0 |
0 |
!$$f{-'widget1'} ? : |
|
4483
|
0 |
0 |
if ($bb) |
|
4487
|
0 |
0 |
ref $cfld1 ? : |
|
4488
|
0 |
0 |
$err ? : |