Branch Coverage

blib/lib/DBIx/Web.pm

Criterion	Covered	Total	%
branch	0	6874	0.0

line	true	false	branch
443	0	0	if (ref $_[0] eq 'DBIx::Web') { }
448	0	0	if scalar @_ and not defined $_[0] and scalar @_ > int(scalar(@_) / 2) * 2
462	0	0	if defined $$DBIx::Web::CACHE{-'new'}
463	0	0	if $opt{-'env'}
465	0	0	($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ ? :
712	0	0	if (not $opt{-'path'} or $opt{-'path'} =~ /^(?:DocumentRoot|-DocumentRoot)$/i) { }
	0	0	elsif ($opt{-'path'} =~ /^(?:ServerRoot|-ServerRoot|-path)$/i) { }
714	0	0	$^O eq 'MSWin32' ? :
715	0	0	-d '../wwwroot' ? :
	0	0	-d '../htdocs' ? :
	0	0	$pth =~ m[^(.+[\\/])[^\\/]*$] ? :
	0	0	$pth =~ m[^(.+?[\\/]apache[\\/])]i && -d $1 . 'htdocs' ? :
	0	0	$pth =~ m[^(.+?[\\/])cgi-bin[\\/]]i && -d $1 . 'htdocs' ? :
	0	0	$pth =~ m[^(.+?[\\/]inetpub[\\/])]i ? :
	0	0	$pth =~ m[^(.+?[\\/]wwwroot[\\/])]i ? :
	0	0	$ENV{'DOCUMENT_ROOT'} ? :
735	0	0	$^O eq 'MSWin32' ? :
736	0	0	-d '../wwwroot' ? :
	0	0	-d '../htdocs' ? :
	0	0	$pth =~ m[^(.+[\\/])[^\\/]*$] ? :
	0	0	$pth =~ m[^(.+?[\\/]apache[\\/])]i && -d $1 . 'htdocs' ? :
	0	0	$pth =~ m[^(.+?[\\/])cgi-bin[\\/]]i && -d $1 . 'htdocs' ? :
	0	0	$ENV{'DOCUMENT_ROOT'} && $ENV{'DOCUMENT_ROOT'} =~ m[^(.+[\\/])[^\\/]*$] ? :
	0	0	$^O eq 'MSWin32' && $pth =~ m[^(.+?[\\/]inetpub[\\/])]i ? :
757	0	0	cgibus($s) ? :
	0	0	unless $$s{-'url'}
759	0	0	unless $$s{-'locale'}
761	0	0	($ENV{'GATEWAY_INTERFACE'} || '') =~ /CGI/ ? :
	0	0	unless $opt{-'die'}
763	0	0	($ENV{'COMPUTERNAME'} || $ENV{'HOSTNAME'} || eval 'use Sys::Hostname;hostname' || 'localhost') =~ /^([\d.]+|[\w\d_]+)/ ? :
	0	0	unless $$s{-'host'}
768	0	0	unless $ENV{'REMOTE_USER'} or $ENV{'USERNAME'}
769	0	0	unless $$s{-'user'}
772	0	0	unless defined $_[2]{$k}
773	0	0	if ($_[2]{$k} =~ /^\s+/)
774	0	0	if ($_[2]{$k} =~ /\s+$/)
777	0	0	unless $$s{-'recTrim0A'}
787	0	0	unless $$s{-'recInsID'}
788	0	0	if ($ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} >= 2) { }
	0	0	elsif ($ENV{'MOD_PERL'}) { }
811	0	0	if scalar @_ == 1
812	0	0	if scalar @_ == 2
817	0	0	if ($opt{-'env'})
818	0	0	ref $opt{-'env'} eq 'CODE' ? :
819	0	0	if (ref $env eq 'HASH')
821	0	0	if (defined $$env{$k}) { }
826	0	0	if ($opt{-'die'})
828	0	0	if (ref $opt{-'die'}) { }
	0	0	elsif ($opt{-'die'} =~ /^(perl|core)$/i) { }
	0	0	elsif ($opt{-'die'}) { }
833	0	0	$$s{-'die'} =~ /^([^\s]+)\s*/ ? :
835	0	0	$$s{-'debug'} ? :
836	0	0	$$s{-'debug'} ? :
837	0	0	($he || '') ne ($SIG{'__DIE__'} || '') ? :
838	0	0	($hw || '') ne ($SIG{'__WARN__'} || '') ? :
840	0	0	if ineval()
842	0	0	unless isa($s, 'DBIx::Web')
843	0	0	$_[0] =~ /(.+)[\n\r]+$/ ? :
	0	0	if $s
844	0	0	if $s
845	0	0	if ref $he
846	0	0	if ineval()
848	0	0	unless isa($s, 'DBIx::Web')
849	0	0	$_[0] =~ /(.+)[\n\r]+$/ ? :
	0	0	if $s
850	0	0	if ref $hw
852	0	0	if (exists $opt{-'locale'})
856	0	0	$opt{-'locale'} =~ /^(\w\w)/ ? :
857	0	0	$opt{-'locale'} =~ /\.(.+)$/ ? :
859	0	0	if (exists $opt{-'lng'})
861	0	0	$$s{-'lng'} ? :
862	0	0	$$s{-'lng'} ? :
864	0	0	if (exists $opt{-'autocommit'})
865	0	0	if $$s{-'dbi'}
867	0	0	if ($opt{-'cgibus'} and not ref $opt{-'cgibus'})
870	0	0	$_[0]->user =~ /^([^\@]+)@(.+)$/ ? :
879	0	0	unless $_
886	0	0	if (defined $_ and $_ ne '') { }
899	0	0	if ($opt{-'urf'} and ref $opt{-'urf'} eq 'CODE')
902	0	0	if ($opt{-'urf'} and substr($opt{-'urf'}, 0, 1) eq '-')
903	0	0	$$s{-'cgibus'} && cgibus($s) ? :
	0	0	$opt{-'urf'} ne '-path' ? :
922	0	0	@_ < 4 ? :
	0	0	@_ < 3 ? :
923	0	0	ref $_[3] eq 'CODE' ? :
	0	0	!ref($_[3]) ? :
924	0	0	unless defined $v
925	0	0	$r =~ s/\$_/$v;/eg ? :
939	0	0	@_ < 4 ? :
	0	0	@_ < 3 ? :
940	0	0	ref $_[3] eq 'CODE' ? :
	0	0	!ref($_[3]) ? :
941	0	0	unless defined $v
942	0	0	$r =~ s/\$_/$v;/eg ? :
950	0	0	ref $_[2] eq 'ARRAY' ? :
	0	0	$_[2] ? :
956	0	0	unless $_[1]{$_[2] . '_' . $_[0]{-'lng'}}
962	0	0	unless ref $e
964	0	0	unless $v
965	0	0	ref $v ? :
967	0	0	!ref($_[$#_]) && $_[1]{$_[$#_]} ? :
973	0	0	unless ref $e
975	0	0	unless $v
976	0	0	ref $v ? :
978	0	0	!ref($_[$#_]) && $_[1]{$_[$#_]} ? :
983	0	0	unless $_[0]{-'charset'}
984	0	0	$_[0]{-'charset'} =~ /^\d/ ? :
989	0	0	charset($_[0]) =~ /^windows-(\d+)/ ? :
995	0	0	unless $ENV{'GATEWAY_INTERFACE'} and $ENV{'GATEWAY_INTERFACE'} =~ /PerlEx/ or $ENV{'MOD_PERL'}
1001	0	0	if $a[0] =~ /^(?:PerlEx::|Apache::Perl|Apache::Registry|Apache::ROOT|ModPerl::ROOT|ModPerl::RegistryCoker)/i
1002	0	0	if $a[3] eq '(eval)'
1009	0	0	$#_ < 2 && !($_[1] =~ /[\r\n]$/) ? :
1023	0	0	unless $o
1024	0	0	unless defined $$DBIx::Web::CACHE{-'new'}
1025	0	0	unless defined $$DBIx::Web::CACHE{-'destroy'}
1028	0	0	if (not $_[0] && ref $_[0] or ref $_[0] eq 'CODE') { }
	0	0	elsif (ref $_[0] and $_[0] =~ /hash/i) { }
	0	0	elsif (ref $_[0] and $_[0] =~ /array/i) { }
1030	0	0	if ($_[0] eq $s and $_[1])
1035	0	0	if ref $_[0]{$k}
1040	0	0	if ref $_[0][$i]
1044	0	0	$$DBIx::Web::CACHE{-'new'} ? :
	0	0	$$DBIx::Web::CACHE{-'destroy'} ? :
	0	0	$rc ? :
1049	0	0	if $o =~ /\b(?:perl|all)\b/i
1051	0	0	defined $ENV{$_} ? :
	0	0	if $o =~ /\b(?:env|all)\b/i
1055	0	0	!$_ ? :
1056	0	0	defined $v ? :
1058	0	0	if $$s{-'cgi'} and $o =~ /\b(?:cgi|all)\b/i
1059	0	0	defined $v ? :
1064	0	0	defined $s->cgi->param($_) ? :
1065	0	0	if $$s{-'cgi'} and $o =~ /\b(?:cgiparam|all)\b/i
1069	0	0	$o =~ /\b(?:html)\b/i ? :
1076	0	0	unless ref $_[0]{-'cgibus'}
1083	0	0	if $_[1]
1091	0	0	unless ($$s{-'c'}{-'startinit'})
1099	0	0	if $$s{-'var'} and $$s{-'var'}{'_handle'}
1100	0	0	defined $$s{-'w32IISdpsn'} ? :
	0	0	if ($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ and (defined $$s{-'w32IISdpsn'} ? $$s{-'w32IISdpsn'} || 0 : 2) > 1 and not $s->cgi->param('_qftwhere')
1105	0	0	unless (($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ and $s->cgi->param('_qftwhere'))
1107	0	0	$$s{-'serial'} > 0 ? :
	0	0	$$s{-'serial'} > 1 ? :
	0	0	$$s{-'serial'} > 2 ? :
	0	0	!$$s{-'serial'} ? :
1108	0	0	if $$s{-'log'} and not ref $$s{-'log'}
1109	0	0	if ref $$s{-'log'}
1119	0	0	if $$s{-'end0'}
1120	0	0	if ($$s{-'dbi'})
1125	0	0	if ($$s{-'cgi'})
1132	0	0	if $$s{-'smtp'}
1133	0	0	if ($$s{-'var'} and $$s{-'var'}{'_handle'})
1137	0	0	if (ref $$s{-'log'})
1141	0	0	if $$s{-'c'}{-'ldap'}
1144	0	0	if $$s{-'end1'}
1151	0	0	if defined $$DBIx::Web::CACHE{-'new'}
1153	0	0	if ($$s{-'cgi'})
1159	0	0	if $$s{-'smtp'}
1160	0	0	if ($$s{-'var'} and $$s{-'var'}{'_handle'})
1164	0	0	if (ref $$s{-'log'})
1168	0	0	if $$s{-'c'}{-'ldap'}
1181	0	0	$$s{-'AuthUserFile'} ? :
1230	0	0	if ($cmd and $row =~ /^#/)
1236	0	0	if ($cmd =~ /^\s*\{/) { }
1238	0	0	$@ ? :
1242	0	0	$s->dbi->err ? :
1244	0	0	defined $v ? :
1248	0	0	if ($row =~ /^\s*#*\s*$/ or $row =~ /^\s+#/ or $row eq '') { }
	0	0	elsif ($row =~ /^#/) { }
1255	0	0	$cmd ? :
1271	0	0	if ord substr($v, -$i, 1) >= 122
1272	0	0	substr($v, -$i, 1) eq '9' ? :
1273	0	0	if $i > 1
1274	0	0	$_[2] && length $v < $_[2] ? :
1277	0	0	$_[2] && length $v < $_[2] ? :
1285	0	0	if (ref $_[1] ne 'CODE') { }
1286	0	0	if $_
1290	0	0	if $t
1301	0	0	ref $e ? :
	0	0	if (ref $e ? &$e($s, $_ = $$a[0], 0) : $$a[0] =~ /^(?:$e)$/) { }
1320	0	0	ref $e ? :
	0	0	if (ref $e ? &$e($_[0], $_ = $$a[$i], $i) : $$a[$i] =~ /^(?:$e)$/) { }
1337	0	0	if (defined $m1) { }
	0	0	elsif (not ref $d and $d and $d =~ /\\/) { }
1340	0	0	if (not ref $d) { }
	0	0	elsif (ref $d eq 'ARRAY') { }
	0	0	elsif (ref $d eq 'HASH') { }
	0	0	elsif (ref $d) { }
1341	0	0	!$d ? :
1347	0	0	if (ref $e) { }
1348	0	0	if defined $$e[0]
1353	0	0	if defined $e
1362	0	0	if (ref $$d{$e}) { }
1364	0	0	if defined $$d{$e}[0]
1368	0	0	if defined $$d{$e}
1377	0	0	$#$e > 0 ? :
	0	0	if defined $$e[0]
1391	0	0	($_[1] || 0) > ($_[2] || 0) ? :
	0	0	unless ($_[1] || 0) > ($_[2] || 0) ? $_[1] : $_[2]
1396	0	0	($_[1] || 0) > ($_[2] || 0) ? :
	0	0	unless ($_[1] || 0) > ($_[2] || 0) ? $_[2] : $_[1]
1402	0	0	index($_[0], '-') == 0 ? :
	0	0	ref $_[0] ? :
1406	0	0	if &$s($_)
1413	0	0	length $_[1] < $NLEN ? :
1426	0	0	$v =~ s/([\x00-\x1f,;=\\\)\(])/sprintf '\\x%02x', ord $1;/eg ? :
	0	0	!defined($v) ? :
	0	0	ref $v ? :
1437	0	0	isa($v, 'HASH') ? :
	0	0	isa($v, 'ARRAY') ? :
	0	0	!ref($v) ? :
	0	0	!defined($v) ? :
1440	0	0	$v =~ s/([\x00-\x1f,;=\\\)\(])/sprintf '\\x%02x', ord $1;/eg ? :
	0	0	!defined($v) ? :
	0	0	ref $v ? :
1455	0	0	if $#_ < 2
1464	0	0	$v =~ s/([\x00-\x1f,;=\\\)\(])/sprintf '\\x%02x', ord $1;/eg ? :
	0	0	ref $v ? :
	0	0	!defined($v) ? :
1480	0	0	unless defined $v
1483	0	0	$v =~ /^\d+$/ ? :
1488	0	0	defined $_[1] ? :
1490	0	0	if $h =~ /^[\s\r\n]+/
1496	0	0	if ($h =~ m[^/(?:h\d|div|p)\s*>\s*\s*<(?:li|/ul)]i) { }
	0	0	elsif ($h =~ m[^/(?:h\d|div|p|td|th|tr|code|kbd|ul)]i or $h =~ /^(?:br|hr|li|table)/i) { }
1498	0	0	unless $t =~ /^\s*$/
1503	0	0	unless $t =~ /^\s*$/
1505	0	0	if $h =~ />/
1521	0	0	unless $o
1522	0	0	unless defined $s1
1523	0	0	unless defined $s2
1524	0	0	if $o =~ /h/ and $s->ishtml($s1)
1525	0	0	if $o =~ /h/ and $s->ishtml($s2)
1526	0	0	if $s1 eq '' or $s2 eq ''
1531	0	0	if ($v =~ /[ \t]$/) { }
	0	0	elsif ($h =~ /^[ \t]/) { }
	0	0	elsif (not $v =~ /[ \t]/) { }
	0	0	elsif ($v =~ /\s+([^\s]+)$/) { }
1548	0	0	if (do { eval 'use Algorithm::Diff; 1' if $o =~ /w/ }) { }
	0	0	elsif (eval 'use Algorithm::Diff; 1') { }
1549	0	0	if $o =~ /w/
1553	0	0	if ($b =~ /^=/ and $o =~ /b/)
1554	0	0	if $v =~ /^[\s\n]+/
1555	0	0	if $v =~ /[\s\n]+$/
1557	0	0	if ($_[0] eq '') { }
	0	0	elsif ($_[3]) { }
	0	0	elsif ($v =~ /\n+/) { }
1558	0	0	if $v =~ /\n+([^\n]+)$/
1561	0	0	if $v =~ /^([^\n]+)\n+/
1565	0	0	if ($' =~ /\n+([^\n]+)$/)
1571	0	0	if $o =~ /p/
1579	0	0	if ($p ne $$d[0])
1580	0	0	if length $ax > 0
1581	0	0	if length $ay > 0
1582	0	0	if length $au > 0
1585	0	0	if $p eq '-'
1586	0	0	if $p eq 'c'
1587	0	0	if $p eq '+'
1588	0	0	if $p eq 'c'
1589	0	0	if $p eq 'u'
1591	0	0	if length $ax > 0
1592	0	0	if length $ay > 0
1593	0	0	if length $au > 0
1596	0	0	if ($o =~ /r/) { }
	0	0	elsif ($o =~ /s/) { }
1606	0	0	if ($b =~ /^=/ and $o =~ /b/) { }
1607	0	0	if $v =~ /^[\s\n]+/
1608	0	0	if $v =~ /[\s\n]+$/
1610	0	0	if ($_[0] eq '') { }
	0	0	elsif ($_[3]) { }
	0	0	elsif ($v =~ /\n+/) { }
1611	0	0	if $v =~ /\n+([^\n]+)$/
1614	0	0	if $v =~ /^([^\n]+)\n+/
1618	0	0	if ($' =~ /\n+([^\n]+)$/)
1626	0	0	if $o =~ /p/
1632	0	0	if ($p ne $$d[0])
1633	0	0	if length $ax > 0
1634	0	0	if length $ay > 0
1635	0	0	if length $au > 0
1638	0	0	if $p eq '-'
1639	0	0	if $p eq 'c'
1640	0	0	if $p eq '+'
1641	0	0	if $p eq 'c'
1642	0	0	if $p eq 'u'
1644	0	0	if length $ax > 0
1645	0	0	if length $ay > 0
1646	0	0	if length $au > 0
1649	0	0	length $s1 > 255 && length $s2 > 255 ? :
	0	0	$s1 eq '' || $s2 eq '' ? :
1660	0	0	$_ =~ /^([-+=]):\s*/ ? :
1663	0	0	$_[1] =~ m[\n*[-+=]:] ? :
1676	0	0	if $_[2]
1677	0	0	/^\s*([^=]+)\s*=\s*(.*)$/ ? :
1679	0	0	$v =~ s/\\x([0-9a-fA-F]{2})/chr hex $1;/eg ? :
	0	0	$v =~ /^\(/ ? :
	0	0	!defined($v) ? :
	0	0	!defined($n) || $n eq '' ? :
1690	0	0	s/\\x([0-9a-fA-F]{2})/chr hex $1;/eg ? :
	0	0	/^\(/ ? :
	0	0	!defined($_) ? :
1691	0	0	$v =~ s/\\x([0-9a-fA-F]{2})/chr hex $1;/eg ? :
	0	0	$v =~ /[,;]/ ? :
	0	0	$v =~ /^[^\(\)]+[=]/ ? :
1705	0	0	ref $_ ? :
1707	0	0	ref $_[1] eq 'HASH' ? :
	0	0	ref $_[1] eq 'ARRAY' ? :
	0	0	!ref($_[1]) ? :
1731	0	0	ref $_[2] eq 'HASH' ? :
	0	0	ref $_[2] eq 'ARRAY' ? :
	0	0	!ref($_[2]) ? :
	0	0	$#_ < 2 ? :
1745	0	0	@_ == 0 || $_[0] =~ /^\d+$/i ? :
1746	0	0	@_ == 1 ? :
	0	0	@_ == 0 ? :
1762	0	0	@_ < 2 || !$_[1] ? :
1767	0	0	unless $ts =~ /(\d+)/
1769	0	0	if $m eq 'yyyy' or $m eq '%Y'
1771	0	0	if $m eq 'm' and $th{$m}
1772	0	0	if $m ne 'M'
1792	0	0	if ($] >= 5.008 and eval 'use Encode; 1') { }
1793	0	0	/8859-5/i ? :
	0	0	/koi/i ? :
	0	0	/ansi|1251/i ? :
	0	0	/oem|866/i ? :
1799	0	0	Encode::is_utf8($_) ? :
	0	0	if defined $_ and $_ ne ''
1807	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) { }
1812	0	0	if defined $_
1814	0	0	@s > 1 ? :
1826	0	0	unless defined $_
1838	0	0	if not defined $_ or $_ eq ''
1853	0	0	$$s{-'c'}{-'htmlclass'} ? :
	0	0	unless $o{-'class'}
1855	0	0	unless ($o{-'value'})
1857	0	0	unless $o{-'title'}
1858	0	0	unless $o{-'style'}
1860	0	0	$_ =~ /^-(.+)/ ? :
1862	0	0	$o{$k} eq '...' ? :
	0	0	$t =~ /^value$/i ? :
1877	0	0	unless defined $_
1880	0	0	/^lt$/i ? :
	0	0	/^gt$/i ? :
	0	0	/^quot$/i ? :
	0	0	/^amp$/i ? :
1893	0	0	unless defined $_
1902	0	0	unless defined $_
1911	0	0	$_[1] =~ /\?/ ? :
1920	0	0	$_[$i] =~ /^-/ ? :
	0	0	ref $_[$i + 1] ? :
1930	0	0	unless defined $v
1947	0	0	unless defined $v
1960	0	0	unless defined $v
1962	0	0	int(length($1) / 2) * 2 == length $1 ? :
1963	0	0	int(length($1) / 2) * 2 == length $1 ? :
1971	0	0	substr($_[$#_], 0, 1) eq "\n" ? :
	0	0	$#_ + 1 != 2 * int(($#_ + 1) / 2) ? :
1976	0	0	$_[$_] ne 'href' ? :
1985	0	0	substr($_[$_], 0, 1) eq '-' ? :
	0	0	!ref($_[$_ + 1]) ? :
	0	0	defined $_[$_ + 1] ? :
	0	0	$_[$_] ? :
2002	0	0	ref $_ ne 'ARRAY' ? :
2003	0	0	$_ ne 'href' ? :
2005	0	0	if $_
2008	0	0	substr($_, 0, 1) eq '-' ? :
	0	0	!ref($$v{$_}) ? :
	0	0	defined $$v{$_} ? :
2014	0	0	if exists $$v{$_}
2021	0	0	defined $v ? :
	0	0	ref $v eq 'ARRAY' ? :
	0	0	ref $v eq 'CODE' && ($v = &{$v;}) && 0 ? :
	0	0	$c eq '0' ? :
	0	0	!defined($c) ? :
	0	0	defined $v ? :
	0	0	ref $v eq 'ARRAY' ? :
	0	0	ref $v eq 'CODE' && ($v = &{$v;}) && 0 ? :
	0	0	exists $$v{0} ? :
	0	0	grep({eval { do { $v = $$v{$_} } } if exists $$v{$_};} '', '-data') ? :
	0	0	ref $_[$[ + 4] eq 'HASH' && eval { do { $v = $_[$[ + 4]; $c = $$v{'-'} || $$v{'-tag'} || 'tag' } } ? :
	0	0	ref $_[$[ + 4] eq 'ARRAY' ? :
	0	0	!ref($_[$[ + 4]) ? :
	0	0	!$n ? :
2045	0	0	if ($] >= 5.008 and eval 'use Encode; 1')
2048	0	0	if $cp
2050	0	0	if $cp
2054	0	0	unless $t
2062	0	0	if ($] >= 5.008 and eval 'use Encode; 1')
2064	0	0	if $cp
2066	0	0	if $cp
2067	0	0	if $cp
2071	0	0	unless $t
2084	0	0	if $_[0]{-'cgi'}
2085	0	0	unless (eval 'use CGI (); 1' and eval 'use CGI (); 1')
2093	0	0	unless ($_[0]{-'cgi'})
2099	0	0	if ($_[0]{-'cgi'}{'.cgi_error'})
2104	0	0	$HS eq ';' ? :
2105	0	0	if (($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/i or $ENV{'MOD_PERL'} and not $ENV{'PERL_SEND_HEADER'})
2109	0	0	if ($ENV{'PERLXS'})
2111	0	0	if (($ENV{'GATEWAY_INTERFACE'} || '') =~ /PerlEx/)
2118	0	0	if ($#_ > 0)
2121	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') { }
2126	0	0	if $v =~ m[[\\/]([^\\/]+)$]
2133	0	0	if $_[0]{-'c'}{-'url'}
2137	0	0	if ($ENV{'PERLXS'} or ($ENV{'GATEWAY_INTERFACE'} || '') =~ /PerlEx/)
2138	0	0	$_[0]{-'c'}{-'url'} =~ m[/$] || $ENV{'SCRIPT_NAME'} =~ m[^/] ? :
	0	0	if not $_[0]{-'c'}{-'url'} =~ m[\w/\w] and $ENV{'SCRIPT_NAME'}
2148	0	0	if $_[0]{-'dbi'}
2149	0	0	ref $_[0]{-'dbiarg'} ? :
2153	0	0	if (not $_[0]{-'dbistart'}) { }
	0	0	elsif (ref $_[0]{-'dbistart'} eq 'CODE') { }
	0	0	elsif (ref $_[0]{-'dbistart'} eq 'ARRAY') { }
2162	0	0	unless $_[0]{-'dbi'}->err
2169	0	0	if ($_[0]{-'dbi'}->err)
2178	0	0	if ($_[1]) { }
2183	0	0	unless $_[0]{-'dbidsn'}
2189	0	0	if $ENV{'GATEWAY_INTERFACE'} =~ /PerlEx/
2190	0	0	if $ENV{'MOD_PERL'}
2191	0	0	unless eval 'use DBI; 1;'
2192	0	0	ref $_[0]{-'dbiarg'} ? :
2193	0	0	if ($c =~ /^DBI:Proxy:hostname=127\.0\.0\.1;/i)
2199	0	0	ref $_[0]{-'dbiarg'} ? :
2200	0	0	if $r
2201	0	0	if (--$i)
2202	0	0	$c =~ /hostname=([^;]+)/ ? :
2203	0	0	$c =~ /port=([^;]+)/ ? :
2205	0	0	if $x =~ /^\\\\\?\\/
2206	0	0	if $x =~ /(?:PerlIS|PerlEx)\d*\.dll$/i
2210	0	0	if ($^O eq 'MSWin32') { }
2221	0	0	unless Win32::Process::Create($Win32::Process::Create::ProcessObj, $x, $a, 0, &CREATE_NEW_CONSOLE, '.')
2226	0	0	if system 1, $a
2235	0	0	ref $_[0]{-'dbiarg'} ? :
2245	0	0	unless defined $_[1]
2246	0	0	$_[1] =~ /^(['"])(.*)['"]$/ ? :
2247	0	0	unless $q
2251	0	0	if $q ne $q1
2263	0	0	@_ > 1 ? :
	0	0	@_ > 2 ? :
2278	0	0	@_ > 2 ? :
2283	0	0	unless $_[1]
2284	0	0	unless $$DBIx::Web::CACHE{$_[0]}{'-dbm/' . $_[1]}
2296	0	0	unless $_[1]
2297	0	0	if ($_[1] eq '*')
2300	0	0	unless $k =~ m[^-dbm/]
2305	0	0	unless $$DBIx::Web::CACHE{$_[0]}{'-dbm/' . $_[1]}
2314	0	0	unless $_[1]
2315	0	0	if ($_[1] eq '*')
2318	0	0	unless $k =~ m[^-dbm/]
2323	0	0	unless $$DBIx::Web::CACHE{$_[0]}{'-dbm/' . $_[1]}
2334	0	0	substr($_[0], 0, 1) eq '-' ? :
2335	0	0	ref $_[$#_] eq 'CODE' ? :
2340	0	0	if ($^O eq 'MSWin32' or $^X =~ /(?:perlis|perlex)\d*\.dll$/i) { }
2342	0	0	if (not $sub) { }
2343	0	0	$^X =~ /(?:perlis|perlex)\d*\.dll$/i ? :
	0	0	if (not $opt =~ /h/ and $^X =~ /(?:perlis|perlex)\d*\.dll$/i ? !($_[0] =~ /^(?:xcopy|xcacls|cacls)/) : 1) { }
2352	0	0	if $] >= 5.008
2353	0	0	if (system(@_) == -1)
2357	0	0	if $] >= 5.008
2362	0	0	unless open WTRFH, '|-', join(' ', @_) . ' >nul 2>&1' and defined *WTRFH
2364	0	0	if $sub
2372	0	0	if ($pid) { }
2373	0	0	if ($sub)
2380	0	0	unless $opt =~ /h/
2388	0	0	unless $r
2389	0	0	if ($r and $r > 0 and $opt =~ /i/)
2390	0	0	if (not $o) { }
2394	0	0	if $r and not $opt =~ /i/
2398	0	0	if ($o)
2402	0	0	!$r ? :
2408	0	0	if $^O ne 'MSWin32'
2414	0	0	unless $o
2415	0	0	if (ref $rc eq 'HASH') { }
2420	0	0	unless %$rc
2426	0	0	unless @$rc
2434	0	0	if $^O ne 'MSWin32'
2439	0	0	unless $o
2440	0	0	if $_
2442	0	0	$$f{'Path'} =~ m[^\Q$mask\E[\\/]*(.+)]i ? :
2443	0	0	unless $n and grep /^\Q$n\E$/i, @$list
2451	0	0	!$_[0]{-'output'} ? :
	0	0	if !$_[0]{-'output'} ? print(@_[1 .. $#_]) : &{$_[0]{-'output'};}(@_)
2472	0	0	if (not $_[0]{-'smtp'}) { }
	0	0	elsif (scalar @_ > 1 and not $_[1]) { }
	0	0	elsif ($_[0]{-'smtp'}) { }
2474	0	0	if $_[0]{-'smtp'}
2478	0	0	if (ref $_[1])
2482	0	0	if $_[0]{-'smtp'}
2487	0	0	$_[0]{-'smtphost'} ? :
2491	0	0	if not $_[0]{-'smtp'} or $@
2493	0	0	if ref $_[1]
2499	0	0	$_[1] =~ /^([^\\]+)\\(.+)$/ ? :
	0	0	index($_[1], '@') < 0 && $_[0]{-'smtpdomain'} ? :
2509	0	0	if $_[1] =~ /
2511	0	0	unless ($d =~ s/<([^<>]+)>/'<' . $_[0]->smtpAdr($_[1]) . '>';/e)
2520	0	0	unless $$s{-'smtphost'}
2527	0	0	if ref $a{-'from'} eq 'CODE'
2529	0	0	if ref $a{-'to'} eq 'CODE'
2530	0	0	$a{-'to'} =~ /^\s*(.*)\s*$/ ? :
	0	0	if $a{-'to'} and not ref $a{-'to'} and $a{-'to'} =~ /[,;]/
2533	0	0	ref $a{-'to'} ? :
	0	0	if $a{-'to'}
2538	0	0	if ref $a{-'recipient'} eq 'CODE'
2539	0	0	$a{-'recipient'} =~ /^\s*(.*)\s*$/ ? :
	0	0	if $a{-'recipient'} and ref $a{-'recipient'} and $a{-'recipient'} =~ /[,;]/
2541	0	0	unless $a{-'recipient'}
2543	0	0	ref $a{-'recipient'} ? :
2545	0	0	unless (defined $a{-'data'})
2548	0	0	!defined($a{-'pout'}{$_}) ? :
2554	0	0	$a{-'pout'} ? :
	0	0	ref $a{-'subject'} ? :
	0	0	ref $a{-'subject'} eq 'CODE' ? :
	0	0	if ref $a{-'subject'} or not defined $a{-'subject'}
2560	0	0	$koi ? :
2563	0	0	$koi ? :
2570	0	0	ref $a{-'to'} ? :
	0	0	ref $a{-'to'} ? :
	0	0	$koi ? :
	0	0	if $a{-'to'}
2574	0	0	$a{-'pout'} || $a{-'html'} ? :
2579	0	0	if ($a{-'pout'})
2587	0	0	$a{-'pcmd'} ? :
2603	0	0	unless $$s{-'smtphost'}
2607	0	0	$a{-'sender'} =~ /<\s*([^<>]+)\s*>/ ? :
	0	0	unless $s->smtp->mail($a{-'sender'} =~ /<\s*([^<>]+)\s*>/ ? $1 : $a{-'sender'})
2608	0	0	$_ && /<\s*([^<>]+)\s*>/ ? :
2611	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'})
2614	0	0	unless $s->smtp->data($a{-'data'})
2616	0	0	unless $s->smtp->dataend
2637	0	0	unless (-d $p)
2638	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
2640	0	0	if $_[1] ne 'rfa'
2644	0	0	if ($ENV{'OS'} and $ENV{'OS'} =~ /Windows_NT/i)
2646	0	0	/([^\@]+)\@([^\@]+)/ ? :
2658	0	0	$_[0]{-'w32xcacls'} ? :
	0	0	ref $_[0]{-'fswtr'} ? :
	0	0	$_[0]{-'w32xcacls'} ? :
2665	0	0	if -d $_[1]
2666	0	0	if ref $_[1]
2668	0	0	$_[1] =~ m[([\\/])] ? :
2669	0	0	$_[1] =~ m[^([\\/]+[^\\/]+[\\/]|\w:[\\/]+)(.+)] ? :
2672	0	0	unless (-d $a)
2673	0	0	if not $_[0]{-'log'} or ref $_[0]{-'log'}
2674	0	0	unless mkdir $a, 511
2685	0	0	if (do { -e $_[0] }) { }
2693	0	0	$_[0] =~ m(([^/\\]+)$)i ? :
2701	0	0	$pth eq '' ? :
	0	0	unless opendir DIR, $pth eq '' ? './' : $pth
2703	0	0	if $_ eq '.' or $_ eq '..' or not $_ =~ /^$msk$/i
2706	0	0	unless closedir DIR
2713	0	0	$_ =~ m[[\\/]([^\\/]+)$] ? :
2719	0	0	$_ =~ m[[\\/]([^\\/]+)$]l ? :
	0	0	!(-d $a) && -d $b ? :
	0	0	-d $a && !(-d $b) ? :
2732	0	0	$_[0] =~ /^\-/ || $_[0] eq '' ? :
2737	0	0	if (-d $e) { }
	0	0	elsif (-f $e and not unlink($e)) { }
2738	0	0	if ($opt =~ /r/i and not $s->pthRm($opt, "$e/*")) { }
	0	0	elsif (not rmdir $e) { }
2743	0	0	unless $opt =~ /i/i
2748	0	0	unless $opt =~ /i/i
2757	0	0	unless -d $_[1]
2760	0	0	if scalar @g > 1 or scalar @g == 1 and not $g[0] =~ /\.htaccess$/i
2763	0	0	$d =~ m[^(.+)[\\/][^\\/]+$] ? :
2769	0	0	if $^O ne 'MSWin32'
2772	0	0	if lc($$s{-'c'}{-'pthStamp'} || '') eq lc $p
2777	0	0	unless $ow
2780	0	0	if $ow
2783	0	0	$_ =~ /\s/ ? :
2785	0	0	/([^\@]+)\@([^\@]+)/ ? :
2787	0	0	$_ =~ /\s/ ? :
2789	0	0	/([^\@]+)\@([^\@]+)/ ? :
2795	0	0	$$s{-'w32xcacls'} ? :
	0	0	ref $$s{-'fswtr'} ? :
	0	0	ref $$s{-'fsrdr'} ? :
	0	0	$$s{-'fsrdr'} ? :
	0	0	$$s{-'w32xcacls'} ? :
2805	0	0	defined $_[1] && $_[1] =~ /^-/ ? :
2806	0	0	$src =~ m[([\\/])] || $dst =~ m[([\\/])] ? :
2809	0	0	if (not $opt =~ /d/i) { }
	0	0	elsif (not $opt =~ /i/i) { }
	0	0	elsif (not eval { do { $s->pthMk($dst) } }) { }
2817	0	0	if (-f $src)
2818	0	0	$src =~ m[[\\/]([^\\/]+)$] ? :
	0	0	$opt =~ /d/i || -d $dst ? :
2821	0	0	if -e $d1
2822	0	0	$^O eq 'MSWin32' ? :
	0	0	if ($^O eq 'MSWin32' ? Win32::CopyFile($src, $d1, 1) : eval 'use File::Copy (); 1' && File::Copy::syscopy($src, $d1)) { }
	0	0	elsif ($opt =~ /i/) { }
2835	0	0	if ($opt =~ /p/i and $opt =~ /d/i)
2838	0	0	$opt =~ /\*/ && !($src =~ m[([^\\/]+)$] && $1 =~ /\*/) ? :
2842	0	0	$s1 =~ m[[\\/]([^\\/]+)$] ? :
2843	0	0	if (-d $s1) { }
2844	0	0	unless $opt =~ /r/i
2845	0	0	$opt =~ /i/i ? :
	0	0	unless $s->pthCp('-rd*' . ($opt =~ /i/i ? 'i' : ''), $s1, $d1)
2849	0	0	if -e $d1
2850	0	0	$^O eq 'MSWin32' ? :
	0	0	if ($^O eq 'MSWin32' ? Win32::CopyFile($s1, $d1, 1) : eval 'use File::Copy (); 1' && File::Copy::syscopy($s1, $d1)) { }
	0	0	elsif ($opt =~ /i/) { }
2880	0	0	if $$s{-'var'} and not $lck
2881	0	0	if $$s{-'var'} and $$s{-'var'}{'_handle'}
2885	0	0	unless (-f $fn)
2893	0	0	unless ($lck)
2903	0	0	if (not $_[0]{-'var'} && $_[0]{-'var'}{'_handle'}) { }
	0	0	elsif (($_[1] || 2) eq 2 and ($_[0]{-'var'}{'_handle'}{-'lock'} || 0) ne 2) { }
2919	0	0	!($$s{-'var'} && $$s{-'var'}{'_handle'}) ? :
2933	0	0	if ref $_[0]{-'log'}
2942	0	0	unless ref $_[0]{-'log'}
2948	0	0	unless $_[0]{-'log'} or $_[0]{-'logm'}
2949	0	0	if $_[0]{-'log'} and not ref $_[0]{-'log'}
2950	0	0	if $_[0]{-'log'}
2953	0	0	if $_[0]{-'logm'} and not $_[0]{-'c'}{-'logm'}
2954	0	0	if $_[0]{-'logm'} and scalar @{$_[0]{-'c'}{-'logm'};} > $_[0]{-'logm'}
2955	0	0	$TW32 ? :
	0	0	if $_[0]{-'logm'}
2974	0	0	defined $_ && $_ =~ /^-\w+[\d\w]*$/ ? :
2978	0	0	$i == 2 && $_[1] =~ /^dbi/ && $v =~ /^(?:keDel|kePut|affected|single|fetch)\b/i ? :
	0	0	$i == 2 && $_[1] =~ /^dbi/ && $v =~ /^(?:select|insert|update|delete|drop|commit|rollback|fetch)\s+/i ? :
	0	0	$v =~ /^-\w+[\d\w]*$/ ? :
	0	0	$v =~ /^\d+$/ ? :
	0	0	isa($v, 'HASH') ? :
	0	0	ref $v eq 'ARRAY' ? :
	0	0	!defined($v) ? :
2993	0	0	$r =~ /^(.+?)[\s,;=>]*$/ ? :
3004	0	0	$_[0]{-'userln'} ? :
	0	0	if $_[0]{-'c'}{-'user'}
3007	0	0	ref $_[0]{-'user'} ? :
	0	0	$_[0]{-'unames'} ? :
	0	0	$_[0]{-'user'} ? :
3010	0	0	$_[0]{-'c'}{-'user'} =~ /^([^\@]+)\@(.+)$/ ? :
	0	0	$_[0]{-'c'}{-'user'} =~ /^([^\\]+)\\(.+)$/ ? :
	0	0	$_[0]{-'usernt'} ? :
3015	0	0	$_[0]{-'userln'} ? :
3020	0	0	if $_[0]{-'c'}{-'userln'}
3023	0	0	$un =~ /^([^\@]+)\@(.+)$/ ? :
	0	0	$un =~ /^([^\\]+)\\(.+)$/ ? :
3026	0	0	eval('use Sys::Hostname; Sys::Hostname::hostname()') =~ /\Q$d\E$/i ? :
	0	0	$^O eq 'MSWin32' && lc $d eq lc $s->w32domain ? :
	0	0	!$d ? :
3043	0	0	if $_[0]{-'c'}{-'unames'}
3045	0	0	ref $_[0]{-'unames'} ? :
	0	0	$2 eq '@' ? :
	0	0	!defined($_[0]{-'usernt'}) && $_[0]->user =~ /^([^\\\@]+)([\\\@])([^\\\@]+)$/ ? :
	0	0	$_[0]->user ne $_[0]->userln ? :
	0	0	$_[0]{-'user'} ? :
	0	0	$_[0]{-'unames'} ? :
3064	0	0	if not $_[1] and $_[0]{-'c'}{-'ugroups'}
3067	0	0	ref $_[0]{-'ugroups'} eq 'CODE' ? :
	0	0	if $_[0]{-'ugroups'}
3074	0	0	if ($ug)
3081	0	0	if ($fn = $$s{-'AuthGroupFile'} || $$s{-'PlainGroupFile'} || ($$s{-'ldap'} && $s->ugfile('ugf_ldap') || $$s{-'w32ldap'} && $s->ugfile('ugf_w32ldap') || $^O eq 'MSWin32' && $s->ugfile('ugf_w32')) && $s->pthForm('var', 'uagroup') and -f $fn) { }
3091	0	0	unless $r =~ /[:\s](?:\Q$un\E|\Q$ul\E)(?:\s|\Z)/i
3092	0	0	unless $r =~ /^([^:]+):/
3096	0	0	unless @$ug
3103	0	0	if ($ug) { }
3105	0	0	$rs =~ /^([^:]+):/ ? :
	0	0	if $rs
3109	0	0	$s->uguest ? :
	0	0	$$s{-'ugadd'} ? :
3113	0	0	if (not defined $$s{-'usernt'}) { }
	0	0	elsif ($$s{-'usernt'}) { }
3116	0	0	$_ =~ /\@/ ? :
3120	0	0	$_ =~ /\\/ ? :
3123	0	0	if ($$s{-'ugflt'})
3125	0	0	&$fg($s, $_) ? :
3128	0	0	if ($$s{-'ugadd'})
3130	0	0	ref $$s{-'ugadd'} eq 'CODE' ? :
3131	0	0	ref $ugadd eq 'HASH' ? :
	0	0	ref $ugadd eq 'ARRAY' ? :
3136	0	0	if defined $e and not grep(/^\Q$e\E$/i, @$ug)
3141	0	0	if ($$s{-'ugflt1'})
3145	0	0	if $rl
3146	0	0	unless $_[1]
3148	0	0	unless $$DBIx::Web::CACHE{-'ugroups'}
3149	0	0	if %{$$DBIx::Web::CACHE{-'ugroups'};} > 200
3158	0	0	if ($_[1]) { }
	0	0	elsif ($_[0]{-'c'}{-'ugnames'}) { }
3178	0	0	if $_[0]{-'c'}{-'ugrexp'}
3187	0	0	if defined $j and &$e($j)
	0	0	if defined $i and &$e($i)
	0	0	if (ref $i) { }
3200	0	0	if exists $_[0]{-'c'}{-'uadmwtr'}
3206	0	0	if exists $_[0]{-'c'}{-'uadmrdr'}
3213	0	0	defined $_[0] && substr($_[0], 0, 1) eq '-' ? :
3214	0	0	ref $_[0] eq 'CODE' ? :
3215	0	0	$_[0] && !($o =~ /u/) ? :
	0	0	ref $_[0] ? :
3221	0	0	if ($$s{-'uglist'}) { }
	0	0	elsif ($$s{-'AuthUserFile'} or $$s{-'AuthGroupFile'}) { }
	0	0	elsif ($$s{-'PlainUserFile'} || $$s{-'ldap'} && $s->ugfile('ugf_ldap') || $$s{-'w32ldap'} && $s->ugfile('ugf_w32ldap') || $^O eq 'MSWin32' && $s->ugfile('ugf_w32') and $fn = $$s{-'PlainUserFile'} || $s->pthForm('var', 'ualist') and -f $fn) { }
3228	0	0	if ($fm and not ref $fm and -f $fn)
3231	0	0	unless $r =~ /^\Q$fm\E:/i
3237	0	0	unless ref $fm and @$fm
3239	0	0	if $fm and not ref $fm && @$fm
3241	0	0	if ($o =~ /u/ and $fn and -f $fn)
3244	0	0	unless $r =~ /^([^:]+):/
3246	0	0	if $fu and not &$fu($s, $en) or $fc and not &$fc($s, $en)
3248	0	0	if ($fm)
3250	0	0	if ($el eq $e)
3251	0	0	unless $rl
3258	0	0	if ($o =~ /g/ and $fn and -f $fn)
3261	0	0	unless $r =~ /^([^:]+):/
3263	0	0	if $fg and not &$fg($s, $en) or $fc and not &$fc($s, $en)
3265	0	0	if ($fm)
3267	0	0	if ($el eq $e)
3268	0	0	unless $rl
3275	0	0	ref $r eq 'HASH' ? :
3288	0	0	if ($fm and not ref $fm)
3290	0	0	$fm =~ /\@\Q$dn\E$/i ? :
	0	0	$fm =~ /^\Q$dn\E\\/i ? :
	0	0	!$dn ? :
3297	0	0	if (-f $fn)
3300	0	0	unless $rr =~ /^\Q$vn\E:/i
3307	0	0	unless ref $fm and scalar @$fm
3314	0	0	unless &$fc($s, $en, $ef, $ep, $ed, $em, $ei)
	0	0	if ($fc) { }
	0	0	elsif ($fm) { }
3317	0	0	if ($el eq $e)
3318	0	0	unless $rl
3320	0	0	$dn && $ef =~ /\@/ ? :
	0	0	$en =~ /^([^\@]+)\@([^\@]+)$/ ? :
	0	0	$en =~ /[\\]/ ? :
	0	0	$dn && $ef =~ /\@/ ? :
	0	0	$en =~ /^([^\\]+)\\([^\\]+)$/ ? :
	0	0	$en =~ /[\@]/ ? :
	0	0	$$s{-'usernt'} ? :
3323	0	0	$en =~ /[\@\\]/ && !($o =~ /[<>]/) ? :
3324	0	0	if $o =~ /d/
3326	0	0	if ($o =~ /g/ and $ec =~ /^g/i)
3327	0	0	if $fg and not &$fg($s, $en, $ef, $ep, $ed, $em, $ei)
3328	0	0	if (ref $r eq 'ARRAY') { }
	0	0	elsif ($o =~ /\@/) { }
	0	0	elsif ($ed) { }
3332	0	0	if ($em) { }
	0	0	elsif ($o =~ /c/ and $ei and $ei =~ /\b([\w\d_+-]+\@[\w\d.]+)\b/) { }
3340	0	0	$o =~ /d/ ? :
3346	0	0	unless $ed
3347	0	0	$1 ? :
	0	0	!$2 || $o =~ /d/ ? :
	0	0	length($ed) + length($ev) + 3 > 60 ? :
	0	0	$o =~ /[<>]/ ? :
	0	0	$o =~ /d/ && $o =~ /c/ ? :
	0	0	$ed =~ /^\Q$en\E\s*([,.-:]*)\s*(.*)/i ? :
	0	0	!$ed ? :
3362	0	0	if length $$r{$en} > 57
3366	0	0	if ($o =~ /u/ and $ec =~ /^u/i)
3367	0	0	if $fu and not &$fu($s, $en, $ef, $ep, $ed, $em, $ei)
3368	0	0	if (ref $r eq 'ARRAY') { }
	0	0	elsif ($o =~ /\@/) { }
3372	0	0	if ($em) { }
	0	0	elsif ($o =~ /c/ and $ei and $ei =~ /\b([\w\d_+-]+\@[\w\d.]+)\b/) { }
3380	0	0	$o =~ /d/ ? :
3394	0	0	if ($$s{-'ugadd'} and $r and $o =~ /g/ and not $o =~ /\@/)
3396	0	0	ref $$s{-'ugadd'} eq 'CODE' ? :
3397	0	0	if (ref $ugadd eq 'HASH' and ref $r eq 'HASH') { }
3400	0	0	unless $$r{$e}
3404	0	0	ref $ugadd eq 'HASH' ? :
	0	0	ref $ugadd eq 'ARRAY' ? :
3409	0	0	if (ref $r eq 'HASH') { }
3410	0	0	unless $$r{$e}
3413	0	0	unless grep /^\Q$e\E$/i, @$r
3418	0	0	if ref $r eq 'ARRAY'
3434	0	0	unless $_[0]{-'c'}{-'udisp'}{lc $_[1]}
3438	0	0	if (ref $v)
3440	0	0	if $_[0]{-'udispq'} and ref $DBIx::Web::CACHE
3444	0	0	unless $v or not $_[0]{-'udispq'} and $^O eq 'MSWin32' and w32udisp(@_)
3447	0	0	$_[0]{-'udisp'} =~ /\w/ ? :
	0	0	!$_[0]{-'udisp'} ? :
	0	0	ref $_[0]{-'udisp'} ? :
	0	0	$_[0]{-'udispq'} && ref $DBIx::Web::CACHE && $$DBIx::Web::CACHE{-'udisp'} ? :
	0	0	$_[0]{-'c'}{-'udisp'} ? :
	0	0	$_[0]{-'AuthUserFile'} ? :
	0	0	!defined($_[1]) || $_[1] eq '' ? :
3450	0	0	if $_[0]{-'udispq'} and ref $DBIx::Web::CACHE
3452	0	0	$_[0]{-'udisp'} =~ /\w/ ? :
	0	0	!$_[0]{-'udisp'} ? :
	0	0	unless $_[0]{-'c'}{-'udisp'}{lc $_[1]} or not $_[0]{-'udispq'} and $^O eq 'MSWin32' and w32udisp(@_, !$_[0]{-'udisp'} ? () : ($_[0]{-'udisp'} =~ /\w/ ? '-ud' . $_[0]{-'udisp'} : '-ugdc'))
3468	0	0	ref $DBIx::Web::CACHE && $$DBIx::Web::CACHE{-'udisp'} ? :
	0	0	$_[0]{-'c'}{-'udisp'} ? :
	0	0	$_[0]{-'AuthUserFile'} ? :
	0	0	!defined($_[1]) || $_[1] eq '' ? :
3469	0	0	if ref $DBIx::Web::CACHE
3478	0	0	unless $fs
3481	0	0	if -f $fg and time - [stat $fg]->[9] < 14400
3486	0	0	$call eq 'ugf_ldap' ? :
	0	0	$call eq 'ugf_w32ldap' ? :
	0	0	$call eq 'ugf_w32' ? :
	0	0	if ref $_[0] and !$mo || $mo eq 's'
3492	0	0	if $mo and $mo eq 's'
3493	0	0	if (not $mo) { }
	0	0	elsif ($mo eq 'q') { }
3494	0	0	if (not -f $fg) { }
	0	0	elsif ($mo = $s && $$s{-'endh'}) { }
3498	0	0	if ($$mo{'ugfile'}) { }
	0	0	elsif ($^O eq 'MSWin32' and eval 'use Win32::Process; 1') { }
3501	0	0	unless ($$s{-'w32IISdpsn'} and $$s{-'c'}{-'RevertToSelf'})
3503	0	0	$^X =~ /.dll$/i ? :
	0	0	$^X =~ m[^(.+)([\\/])[^\\/]+\.dll$]i ? :
3511	0	0	unless Win32::Process::Create($Win32::Process::Create::ProcessObj, $cmd[0], join(' ', @cmd), 0, &DETACHED_PROCESS | &CREATE_NO_WINDOW, '.')
3525	0	0	if (ref $s and $$s{-'w32IISdpsn'} and $$s{-'w32IISdpsn'} < 2 and $$s{-'c'}{-'RevertToSelf'}) { }
3530	0	0	$call =~ /^(?:ugf_ldap)$/ ? :
3557	0	0	unless open FG, "+>>$fg.tmp" or $s and &{$$s{-'die'};}($s->lng(0, 'ugfile') . ": open('$fg.tmp') -> $!" . $$s{-'ermd'})
3560	0	0	unless open FL, "+>>$fl.tmp" or $s and &{$$s{-'die'};}($s->lng(0, 'ugfile') . ": open('$fl.tmp') -> $!" . $$s{-'ermd'})
3563	0	0	unless -f $fg
3571	0	0	if ($call eq 'ugf_w32') { }
	0	0	elsif ($call eq 'ugf_w32ldap') { }
	0	0	elsif ($call eq 'ugf_ldap') { }
3595	0	0	unless open FW, "+>>$fg" and flock FW, 2 and truncate FW, 0 and seek FW, 0, 0 and do { while (defined(my $rr = )) { do { print FW $rr }; }; 1 } and flock FW, 8 and close FW or $s and $s->die($s->lng(0, 'ugfile') . ": open('${fg}') -> $!")
3602	0	0	unless open FW, "+>>$fl" and flock FW, 2 and truncate FW, 0 and seek FW, 0, 0 and do { while (defined(my $rr = )) { do { print FW $rr }; }; 1 } and flock FW, 8 and close FW or $s and $s->die($s->lng(0, 'ugfile') . ": open('${fl}') -> $!")
3608	0	0	if $s
3629	0	0	if $s
3631	0	0	!$hdn || $lds ? :
	0	0	!$ldn ? :
3632	0	0	!$hdu || $lds ? :
	0	0	!$ldu ? :
3634	0	0	unless $_[1]
3636	0	0	unless $om
3642	0	0	if (not $oe && $$oe{'Class'} && $$oe{'Name'} or substr($$oe{'Name'}, -1, 1) eq '$' or substr($$oe{'Name'}, -1, 1) eq '&') { }
3647	0	0	$$oe{'Parent'} =~ m[([^\\/]+)$] ? :
3649	0	0	$ldn ? :
	0	0	lc $$oe{'Parent'} ne ($ldn ? $ldc : $hdc) ? :
3659	0	0	if (not $oe && $$oe{'Class'} && $$oe{'Name'} && $$oe{'groupType'} or substr($$oe{'Name'}, -1, 1) eq '$' or substr($$oe{'Name'}, -1, 1) eq '&') { }
3664	0	0	if ($$oe{'groupType'} eq '2')
3665	0	0	$$oe{'Parent'} =~ m[([^\\/]+)$] ? :
3669	0	0	unless ($dnl{$dn} or $dn =~ /^(?:nt authority|builtin)$/)
3682	0	0	unless $du and &$df($s, $du)
3684	0	0	if $s
3687	0	0	unless $od and $$od{'Class'}
3691	0	0	$dn eq $ldn || $dn eq $hdn ? :
3692	0	0	unless ($hdn and $ldn and $dn eq $hdn)
3697	0	0	if not $oe && $$oe{'Class'} && $$oe{'Name'} or substr($$oe{'Name'}, -1, 1) eq '$' or substr($$oe{'Name'}, -1, 1) eq '&'
3698	0	0	if $$oe{'AccountDisabled'}
3699	0	0	if $$oe{'Name'} =~ /^(?:SYSTEM|INTERACTIVE|NETWORK|IUSR_|IWAM_|HP ITO |opc_op|patrol|SMS |SMS&_|SMSClient|SMSServer|SMSService|SMSSvc|SMSLogon|SMSInternal|SMS Site|SQLDebugger|sqlov|SharePoint|RTCService)/i
3700	0	0	$dp ? :
3714	0	0	if not $oe && $$oe{'Class'} && $$oe{'Name'} or substr($$oe{'Name'}, -1, 1) eq '$' or substr($$oe{'Name'}, -1, 1) eq '&'
3718	0	0	if $dn ne ($lds || $hdn) and $$oe{'groupType'} eq '4'
3720	0	0	if $$oe{'Name'} =~ /^(?:Domain Controllers|Domain Computers|Pre-Windows 2000|RAS and IAS Servers|MTS Trusted|SMSInternal|NetOp Activity)/i
3722	0	0	$dp ? :
	0	0	$$oe{'groupType'} ne '4' ? :
3732	0	0	!$dp ? :
3753	0	0	unless $_[0]
3756	0	0	if (not ref $oe && $$oe{'Class'} && ($$oe{'cn'} || $$oe{'Name'})) { }
	0	0	elsif ($$oe{'Class'} =~ /^(?:container|organizationalUnit|builtinDomain)$/i) { }
	0	0	elsif (($$oe{'sAMAccountName'} || $$oe{'cn'} || $$oe{'Name'} || '') =~ /\$$/) { }
	0	0	elsif ($$oe{'Class'} =~ /^(?:user|group)$/i) { }
3769	0	0	unless $$hm{$_[0]}
3772	0	0	if ($$hg{$_}) { }
	0	0	elsif (not $$hm{$_}) { }
3778	0	0	$ll ? :
	0	0	$v =~ /\\/ ? :
	0	0	$v =~ /^$ld\\/i ? :
3784	0	0	$ll ? :
	0	0	$v =~ /\\/ ? :
	0	0	$v =~ /^$ld\\/i ? :
	0	0	$a ? :
3788	0	0	$ll ? :
	0	0	ref $aq ? :
3789	0	0	ref $e ? :
3793	0	0	$pl =~ /\bDC=/ ? :
3794	0	0	if $s
3796	0	0	$pl ? :
3799	0	0	unless (ref $od)
3800	0	0	$s ? :
3806	0	0	unless $$oe{'GUID'}
3807	0	0	if $pl and $pw || !$ll and $$oe{'Class'} =~ /^(?:group)$/i and ($$oe{'groupType'} || 0) & 4
3811	0	0	$pl ? :
3812	0	0	$pw ? :
3815	0	0	if ($$oe{'Class'} =~ /^(?:group)$/i)
3820	0	0	if (not $om && $$om{'Class'}) { }
	0	0	elsif ($$om{'Class'} =~ /^(foreignSecurityPrincipal)$/) { }
3822	0	0	if ($$om{'foreignIdentifier'}) { }
3829	0	0	$$om{'Parent'} =~ m[([^\\/]+)$] && lc $1 ne lc $lh ? :
	0	0	$pl ? :
3836	0	0	if ($on)
3839	0	0	$s ? :
	0	0	unless $og
3852	0	0	$$om{'Parent'} =~ m[([^\\/]+)$] ? :
3853	0	0	if $k and lc $k ne lc($pw || $ld)
3860	0	0	$ll ? :
	0	0	ref $aq ? :
3861	0	0	ref $e ? :
3862	0	0	$pl =~ /\bDC=/ ? :
3863	0	0	if $s
3865	0	0	$pl ? :
3868	0	0	unless (ref $od)
3869	0	0	$s ? :
3875	0	0	unless $$oe{'GUID'}
3876	0	0	if not $pl and $$oe{'Class'} =~ /^(?:user)$/i
3878	0	0	if $pl and $pw || !$ll and $$oe{'Class'} =~ /^(?:group)$/i and ($$oe{'groupType'} || 0) & 4
3882	0	0	$pl ? :
3884	0	0	if $en =~ /^(?:Domain Controllers|Domain Computers|Pre-Windows 2000|RAS and IAS Servers|MTS Trusted|SMSInternal|NetOp Activity)/i
3885	0	0	if $en =~ /^(?:SYSTEM|INTERACTIVE|NETWORK|IUSR_|IWAM_|HP ITO |opc_op|patrol|SMS |SMS&_|SMSClient|SMSServer|SMSService|SMSSvc|SMSLogon|SMSInternal|SMS Site|SQLDebugger|sqlov|SharePoint|RTCService)/i
3886	0	0	!($$oe{'Class'} =~ /^(?:group)$/i && $$oe{'groupType'} & 4) ? :
3899	0	0	if $el
3901	0	0	if $el and not $pw and $pl
3904	0	0	if $el and not $pw and not $pl
3907	0	0	!$pw ? :
	0	0	$el ? :
	0	0	if $pl
3920	0	0	unless $s
3924	0	0	$$s{-'ldapfu'} && $$s{-'ldapfg'} ? :
3928	0	0	$qf ? :
3934	0	0	if $q->entry($i)->get_value('member')
3939	0	0	unless $$hm{$_[0]}
3943	0	0	if ($$hg{$_}) { }
	0	0	elsif (not $$hm{$_}) { }
3948	0	0	$$hn{$_} ? :
3952	0	0	$$hn{$_} ? :
	0	0	$a ? :
3966	0	0	utf8dec($s, $q->entry($i)->get_value('objectClass') || '') =~ /person|user/i ? :
3970	0	0	unless $ei
3971	0	0	!$v ? :
3977	0	0	$$hm{$dn} ? :
3986	0	0	if $el
3988	0	0	$el ? :
	0	0	if @en
4010	0	0	if defined $_[0]{-'w32IISdpsn'} and not $_[0]{-'w32IISdpsn'} or $_[0]{-'c'}{-'RevertToSelf'} or $^O ne 'MSWin32' or not +($ENV{'SERVER_SOFTWARE'} || '') =~ /IIS/ or $ENV{'FCGI_SERVER_VERSION'}
4027	0	0	$_ ? :
	0	0	$o && $o->Call && $l ne (eval { do { Win32::LoginName() } } || '') ? :
4032	0	0	if $^O ne 'MSWin32'
4034	0	0	if (ref $_[0]{-'fswtr'}) { }
	0	0	elsif ($_[0]{-'fswtr'} and $u eq lc $_[0]{-'fswtr'}) { }
4035	0	0	if $u eq lc $e
4040	0	0	if $u eq 'system'
4041	0	0	if ($] >= 5.008 and eval 'use Win32; 1' and Win32::IsAdminUser())
4043	0	0	if (Win32::LookupAccountName('', $u, $dom, $sid, $sit))
4046	0	0	if $sit eq '5'
4054	0	0	unless $_[0]{'ADSystemInfo'}
4060	0	0	unless w32adhi($_[0])->{'DomainShortName'} or eval { do { Win32::NodeName() } }
4066	0	0	if 'Win32::OLE'->GetObject('LDAP://' . Win32::NodeName())
4072	0	0	$_[1] =~ /^([^\@]+)@(.+)/ ? :
	0	0	$_[1] =~ /^([^\\]+)\\(.+)/ ? :
4083	0	0	if $^O ne 'MSWin32'
4084	0	0	if not defined $_[1] or $_[1] eq ''
4085	0	0	$_[1] =~ /^([^\@]+)@(.+)/ ? :
	0	0	$_[1] =~ /^([^\\]+)\\(.+)/ ? :
4092	0	0	$_[2] && $_[2] =~ /c/ && $$o{'Class'} eq 'Group' ? :
	0	0	$$o{'Class'} eq 'User' ? :
	0	0	!$o ? :
4107	0	0	if ($uif =~ /^([^\\]+)\\(.+)/) { }
	0	0	elsif ($uif =~ /^([^\@]+)\@(.+)/) { }
4113	0	0	unless $oh
4115	0	0	unless $ou
4116	0	0	$$ou{'Parent'} =~ m[([^\\/]+)$] ? :
	0	0	lc $$oh{'Parent'} eq lc $$ou{'Parent'} ? :
4123	0	0	if not $og && $$og{'Class'} or $$og{'groupType'} ne '2'
4131	0	0	if not $og && $$og{'Class'} or $$og{'groupType'} ne '4'
4133	0	0	if not $om && $$om{'Class'} or $$om{'Class'} ne 'User' and $$om{'Class'} ne 'Group'
4136	0	0	if $p ne $mc
4142	0	0	unless $mc
4143	0	0	if ($mc eq $uc)
4160	0	0	unless $u
4165	0	0	!($v =~ /[\@\\]/) ? :
	0	0	$h && $$h{lc $v} ? :
	0	0	$v && $d && $v =~ /\@\Q$d\E/i ? :
	0	0	!$v ? :
4179	0	0	if $_[0]{-'c'}{-'ldap'}
4182	0	0	unless $a
4185	0	0	if (ref $a eq 'CODE') { }
4190	0	0	unless eval 'use Net::LDAP; 1'
4191	0	0	ref $a eq 'HASH' ? :
	0	0	ref $a eq 'ARRAY' ? :
4192	0	0	unless $r
4196	0	0	!$a ? :
	0	0	ref $a eq 'HASH' ? :
	0	0	ref $a eq 'ARRAY' ? :
	0	0	unless $r->bind(ref $a eq 'ARRAY' ? @$a : (ref $a eq 'HASH' ? %$a : (!$a ? ('version', 3) : $a)))
4205	0	0	$_[0]{-'ldapsearch'}{'filter'} ? :
	0	0	$a{'filter'} ? :
	0	0	$_[0]{-'ldapsearch'} && $_[0]{-'ldapsearch'}{'filter'} && $a{'filter'} ? :
4214	0	0	$_[0]{-'ldapsearch'} ? :
	0	0	$f ? :
4217	0	0	if $r->code
4225	0	0	!($_[1] =~ /[=]/) ? :
	0	0	$#_ < 2 ? :
4230	0	0	if $r->count > 1
4238	0	0	ref $_[1] ? :
4242	0	0	ref $v eq 'ARRAY' ? :
	0	0	!defined($v) ? :
4250	0	0	unless $o
4251	0	0	unless $r
4252	0	0	unless $a
4253	0	0	$$s{-'ldapfu'} && $$s{-'ldapfg'} ? :
	0	0	$o =~ /g/ ? :
	0	0	$o =~ /u/ ? :
	0	0	$o =~ /ug/ || !($o =~ /[ug]/) ? :
	0	0	$f =~ /[=]/ ? :
4261	0	0	ref $f eq 'CODE' ? :
4262	0	0	$f && !($o =~ /u/) ? :
	0	0	$f =~ /[=]/ ? :
	0	0	ref $f ? :
4265	0	0	$fq ? :
	0	0	if $fm and not ref $fm
4269	0	0	$fq ? :
4271	0	0	if (ref $r eq 'ARRAY') { }
4274	0	0	if ref $fm and not grep(/^\Q$v\E$/i, @$fm)
4282	0	0	if ref $fm and not grep(/^\Q$v\E$/i, @$fm)
4283	0	0	$o =~ /[<>]/ ? :
4293	0	0	ref $u ? :
4295	0	0	unless $g
4314	0	0	if $_[0]{-'table'}{$_[1]} and $_[0]{-'table'}{$_[1]}{'.mdeTable'}
4321	0	0	if $$s{-'mdeTable'} and not $$s{-'table'}{$tn}
4323	0	0	unless $$s{-'table'}{$tn}
4330	0	0	if (ref $$tm{-'field'} eq 'ARRAY')
4332	0	0	if not ref $f or ref $f ne 'HASH'
4333	0	0	if $$f{-'fld'}
4335	0	0	unless exists $$f{-'flg'}
4337	0	0	if ($$f{-'flg'} =~ /k/)
4338	0	0	if (not $$tm{-'key'}) { }
	0	0	elsif (not grep({$_ eq $$f{-'fld'};} @{$$tm{-'key'};})) { }
4345	0	0	if ($$f{-'flg'} =~ /w/)
4346	0	0	if (not $$tm{-'wkey'}) { }
	0	0	elsif (not grep({$_ eq $$f{-'fld'};} @{$$tm{-'wkey'};})) { }
4354	0	0	if not $$f{-'flg'} =~ /w/ and $$tm{-'wkey'} and grep {$_ eq $$f{-'fld'};} @{$$tm{-'wkey'};}
4356	0	0	if not $$f{-'flg'} =~ /k/ and $$tm{-'key'} and grep {$_ eq $$f{-'fld'};} @{$$tm{-'key'};}
4357	0	0	if not $$f{-'flg'} =~ /e/ and $$f{-'edit'}
4369	0	0	$_[0]{-'mdlTable'} ? :
4375	0	0	ref $_[1][0] ? :
	0	0	!ref($_[1]) ? :
	0	0	ref $_[1] eq 'HASH' ? :
4376	0	0	!$_[0]{-'dbi'} ? :
	0	0	$_[3] =~ /\d+/ && $_[3] =~ /^[+-]{0,1}[\d]+(?:\.[\d]+){0,1}$/ ? :
	0	0	!defined($_[3]) ? :
	0	0	!$_[0]{-'dbi'} ? :
	0	0	!$_[0]{-'dbi'} ? :
	0	0	$_[3] =~ /\d/ && $_[3] =~ /^[+-]{0,1}[\d]+(?:\.[\d]+){0,1}$/ ? :
	0	0	!defined($_[3]) ? :
	0	0	$$t{-'mdefld'}{$_[2]}{-'flg'} =~ /[9n]/ ? :
	0	0	$$t{-'mdefld'}{$_[2]}{-'flg'} =~ /["']/ ? :
	0	0	!(ref $t && $$t{-'mdefld'} && $$t{-'mdefld'}{$_[2]} && $$t{-'mdefld'}{$_[2]}{-'flg'}) ? :
4403	0	0	if ($#_ > 1)
4406	0	0	!defined($_[1]{$_}) || $_[1]{$_} eq '' ? :
4411	0	0	ref $_[0]{-'tn'}{-'ridSubject'} eq 'CODE' ? :
	0	0	unless ref $_[0]{-'tn'}{-'ridSubject'} eq 'CODE' ? &{$_[0]{-'tn'}{-'ridSubject'};}(@_) : join(' ', map({!defined($_[1]{$_}) || $_[1]{$_} eq '' ? () : $_[1]{$_};} @{$_[0]{-'tn'}{-'ridSubject'};}))
4418	0	0	unless $_[1]{-'racReader'} or $_[0]{-'racReader'}
4421	0	0	unless $_[1]{-'racWriter'} or $_[0]{-'racWriter'}
4422	0	0	unless $_[0]{-'table'}{$_[1]}{-'racReader'} or $_[0]{-'racReader'}
4423	0	0	unless $_[0]{-'table'}{$_[1]}{-'racWriter'} or $_[0]{-'racWriter'}
4424	0	0	ref $_[1] ? :
	0	0	!$_[0]{-'rac'} || $_[0]->uadmrdr ? :
4426	0	0	ref $r && @$r ? :
4432	0	0	ref $_[1] ? :
	0	0	!$_[0]{-'rac'} || $_[0]->uadmwtr ? :
4442	0	0	if ($_[2])
4443	0	0	ref $_[1] ? :
4444	0	0	if exists $$m{$_[2]} and not $$m{$_[2]}
4452	0	0	if $$m{-'racActor'} or $_[0]{-'racActor'} or $$m{-'racManager'} or $_[0]{-'racManager'} or $$m{-'racPrincipal'} or $_[0]{-'racPrincipal'} or $$m{-'racUser'} or $_[0]{-'racUser'} or $$m{-'racWriter'} or $_[0]{-'racWriter'} or $$m{-'rvcUpdBy'} or $_[0]{-'rvcUpdBy'}
4464	0	0	ref $_[1] ? :
4465	0	0	$_[2] eq 'users' ? :
	0	0	$_[2] eq 'user' ? :
	0	0	$_[2] eq 'principals' ? :
	0	0	$_[2] eq 'principal' ? :
	0	0	$_[2] eq 'managers' ? :
	0	0	$_[2] eq 'manager' ? :
	0	0	$_[2] eq 'actors' ? :
	0	0	$_[2] eq 'actor' ? :
	0	0	$_[2] eq 'authors' ? :
	0	0	$_[2] eq 'author' ? :
	0	0	$_[2] eq 'updater' ? :
	0	0	$_[2] eq 'creator' ? :
	0	0	$_[2] eq 'all' ? :
4515	0	0	ref $r && @$r ? :
4521	0	0	unless $_[1]
4523	0	0	!$_[1] ? :
4525	0	0	!$m || $$m{-'rvcInsBy'} || $_[0]{-'rvcInsBy'} || !$m || $$m{-'rvcUpdBy'} || $_[0]{-'rvcUpdBy'} ? :
	0	0	!$m || $$m{-'racWriter'} || $_[0]{-'racWriter'} ? :
	0	0	$#$v > 0 ? :
	0	0	!($v = !$m || $$m{-'racActor'} || $_[0]{-'racActor'}) ? :
	0	0	$#$v > 0 ? :
	0	0	!($v = !$m || $$m{-'racManager'} || $_[0]{-'racManager'}) ? :
	0	0	$#$v > 0 ? :
	0	0	!($v = !$m || $$m{-'racPrincipal'} || $_[0]{-'racPrincipal'}) ? :
	0	0	$#$v > 0 ? :
	0	0	!($v = !$m || $$m{-'racUser'} || $_[0]{-'racUser'}) ? :
4540	0	0	if $_[2] and not grep({$_ eq $_[2];} @l)
4546	0	0	if $_[2]
4556	0	0	unless $_[2] and $_[1]{-'racReader'} || $_[0]{-'racReader'} || $_[1]{-'racWriter'} || $_[0]{-'racWriter'}
4558	0	0	$_[0]{-'racReader'} ? :
	0	0	$_[1]{-'racReader'} ? :
	0	0	$_[0]{-'racWriter'} ? :
	0	0	$_[1]{-'racWriter'} ? :
4560	0	0	if $e eq $_[2]
4568	0	0	if $$m{-'table'}
4570	0	0	unless $_ and $m and $$m{-'mdefld'} and $$m{-'mdefld'}{$_} and $s->lnglbl($$m{-'mdefld'}{$_}, '-fld')
4572	0	0	$l ? :
	0	0	$n =~ /^(?:managers|principals|users)$/i ? :
	0	0	$n =~ /^(?:manager|principal|user)$/i ? :
	0	0	unless join ', ', $l ? map({$_ unless $_ and $m and $$m{-'mdefld'} and $$m{-'mdefld'}{$_} and $s->lnglbl($$m{-'mdefld'}{$_}, '-fld');} @$l) : (), $n =~ /^(?:manager|principal|user)$/i ? '! ' . $s->mddUrole($m, 'actor') : ($n =~ /^(?:managers|principals|users)$/i ? '! ' . $s->mddUrole($m, 'actors') : ())
4588	0	0	unless $_[1]{-'table'} or $_[1]{-'form'} and $_[0]{-'form'}{$_[1]{-'form'}} and $_[0]{-'form'}{$_[1]{-'form'}}{-'table'}
4596	0	0	if substr($_, 0, 1) ne '-'
4614	0	0	$_[2]{'id'} ? :
	0	0	$m && $$m{-'key'} ? :
4624	0	0	unless $m
4626	0	0	if ($$m{-'wkey'})
4631	0	0	%$r ? :
4653	0	0	$_[2]{'id'} ? :
	0	0	$_[1]{-'table'} && $_[0]{-'table'}{$_[1]{-'table'}}{-'key'} ? :
	0	0	$_[1]{-'where'} ? :
	0	0	$_[1]{-'key'} ? :
	0	0	$_[1]{-'key'} && !ref($_[1]{-'key'}) ? :
4668	0	0	$_[2] =~ /([^\Q$RISM0\E]+)\Q$RISM1\E((?:.(?!\Q$RISM1\E))+)$/ ? :
	0	0	ref $_[0]{-'idsplit'} ? :
	0	0	!$_[0]{-'idsplit'} ? :
4692	0	0	if $_[0]{$t} and not $t eq '-recInsID' && $tbl && $$tbl{$t}
4693	0	0	if $tbl and $$tbl{$t}
4694	0	0	if $frm and $$frm{$t} and $$frm{$t} ne $$tbl{$t}
4707	0	0	if (my $m = $$s{-'table'}{$$a{-'table'}}{-'recIndex0R'})
4711	0	0	unless ref $$s{-'table'}{$x}{-'ixcnd'}
4713	0	0	$r && &{$$i{-'ixcnd'};}($s, $a, $r) ? :
4714	0	0	$d && &{$$i{-'ixcnd'};}($s, $a, $n) ? :
4716	0	0	unless $$q[0]
4720	0	0	if ref $_
4722	0	0	$$i{-'field'} && ref $$i{-'field'} eq 'HASH' ? :
	0	0	$$i{-'field'} && ref $$i{-'field'} eq 'ARRAY' ? :
	0	0	$$i{-'ixrec'} ? :
4724	0	0	ref $v eq 'ARRAY' ? :
	0	0	!ref($v) ? :
4728	0	0	eval { do { $s->dbiIns({-'table', $x, -'key', $k}, $r) } } ? :
	0	0	$$q[1] eq '-' ? :
4741	0	0	$_[3] ? :
	0	0	!$_[0]{-'table'}{$_[1]}{-'ixcnd'} ? :
4753	0	0	unless @i
4754	0	0	if ($c)
4775	0	0	ref $_[1] ? :
4783	0	0	defined $_[2]{$_} ? :
4796	0	0	unless $$m{-'rfdName'} or $_[0]{-'rfdName'}
4801	0	0	$_[2]{$$m{-'rvcActPtr'} or $_[0]{-'rvcActPtr'} or '-none'} ? :
	0	0	$_[2]{$$m{-'rvcActPtr'} or $_[0]{-'rvcActPtr'} or '-none'} ? :
	0	0	$_[0]{-'cgibus'} ? :
4810	0	0	unless $_[0]{$_[1]}
4833	0	0	($ENV{'REMOTE_ADDR'} || '') ne '127.0.0.1' ? :
	0	0	!$_[0]{$_[1]} ? :
	0	0	$_[1] ne '-urf' ? :
	0	0	$_[1] eq '-path' ? :
	0	0	($ENV{'REMOTE_ADDR'} || '') ne '127.0.0.1' ? :
	0	0	$_[0]{-'urf'} eq $_[0]{-'url'} || substr($_[0]{-'urf'}, 7) eq $_[0]{-'path'} ? :
	0	0	!$_[0]{$_[1]} ? :
	0	0	$_[1] ne '-urf' ? :
	0	0	$_[0]{-'cgibus'} ? :
	0	0	ref $_[2] ? :
	0	0	!ref($_[3]) ? :
4843	0	0	ref $_[1] ? :
4850	0	0	unless not $v
4856	0	0	$_[2] ? :
4868	0	0	if ($e and not -d $p)
4869	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
4873	0	0	if $e
	0	0	if (-d $p) { }
4876	0	0	if ($$r{-'file'} and $w)
4877	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
4879	0	0	ref $_[1] ? :
4881	0	0	defined $$r{$_} ? :
	0	0	if $wr
4883	0	0	defined $$r{$_} ? :
	0	0	if $ww
4884	0	0	if ($wr or $ww)
4886	0	0	$2 eq '@' ? :
	0	0	$ld ? :
	0	0	$_ =~ /^([^\\\@]+)([\\\@])([^\\\@]+)$/ ? :
4887	0	0	ref $_ ? :
	0	0	!$_ ? :
4902	0	0	if ($wr || $ww and $^O eq 'MSWin32' and Win32::IsWinNT())
4935	0	0	if ($e and $ww) { }
4936	0	0	/([^\@]+)\@([^\@]+)/ ? :
4937	0	0	$$s{-'w32xcacls'} ? :
	0	0	$u =~ /\s/ ? :
	0	0	$$s{-'w32xcacls'} ? :
4944	0	0	/([^\@]+)\@([^\@]+)/ ? :
	0	0	$wr ? :
4945	0	0	$$s{-'w32xcacls'} ? :
	0	0	$u =~ /\s/ ? :
	0	0	$$s{-'w32xcacls'} ? :
4954	0	0	/([^\@]+)\@([^\@]+)/ ? :
	0	0	$_ ? :
4956	0	0	$$s{-'w32xcacls'} ? :
	0	0	$u =~ /\s/ ? :
	0	0	$$s{-'w32xcacls'} ? :
4965	0	0	if ($w and $w =~ /^\d+$/)
4978	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
4979	0	0	ref $_[1] ? :
4980	0	0	unless $fd
4982	0	0	unless -d $fp
4985	0	0	if $_[0]->pthCp('-rdp*', $fp, $tp)
4992	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
4993	0	0	ref $_[1] && $_[1]{-'file'} ? :
4994	0	0	-d $p ? :
4995	0	0	if $p and ref $_[1]
5002	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
5003	0	0	ref $_[1] && $_[1]{-'file'} ? :
5005	0	0	if $p and ref $_[1] and not -d $p
5018	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
5020	0	0	ref $_[$#_] ? :
5026	0	0	if $_[0]{-'w32IISdpsn'} and not $_[0]{-'c'}{-'RevertToSelf'}
5028	0	0	$fn =~ m[[\\/]([^\\/]+)$] ? :
5035	0	0	unless File::Copy::copy($fh, $_[0]->rfdPath(-'path', @_[1 .. $#_ - 1], $fn))
5042	0	0	if $_[0]->uadmin
5043	0	0	if ref $_[3] or not $_[3] and $#_ > 3
5045	0	0	unless $_[3] and ref $_[2]
5047	0	0	if exists $_[2]{-'editable'} and not $_[2]{-'editable'} && $_[3]
5050	0	0	if $#_ > 3
5052	0	0	if ref $_[2]{-'editable'} and exists $_[2]{-'editable'}{$_[3]}
5056	0	0	if (not ref $f) { }
	0	0	elsif ($$f{-'cmdt'}) { }
	0	0	elsif ($$f{-'table'}) { }
5059	0	0	unless (exists $$r{-'editable'})
5060	0	0	!$f ? :
	0	0	ref $f ? :
5061	0	0	unless $mt
5064	0	0	unless $$r{-'editable'}
5066	0	0	unless $n
5067	0	0	unless ref $$r{-'editable'}
5068	0	0	if ($n =~ /^(-racOwner)$/) { }
	0	0	elsif (substr($n, 0, 1) eq '-') { }
5070	0	0	!$f ? :
	0	0	ref $f ? :
5074	0	0	if not $nf && exists $$r{$nf} or lc $$r{$nf} eq lc $s->user
5081	0	0	!$f ? :
	0	0	ref $f ? :
5082	0	0	$$r{$_} ? :
5083	0	0	unless $mt and $$mt{$n} or $$s{$n}
5087	0	0	!defined($$r{$n}) || $$r{$n} eq '' ? :
5098	0	0	ref $rn ? :
5099	0	0	unless ref $rr
5101	0	0	if ($fo eq '-recRead')
5103	0	0	if $$c{-'cmd'} and not $$c{-'cmd'} =~ /^(?:recRead)$/
5108	0	0	if ref $$rr{-'editable'} and exists $$rr{-'editable'}{-'racWriter'} and not $$rr{-'editable'}{-'racWriter'}
5109	0	0	unless $$rr{-'editable'}
5110	0	0	unless $$rr{-'editable'} or $$rr{-'new'}
5112	0	0	ref $_ ne 'HASH' || !$$_{-'fld'} || exists $$_{-'edit'} && (!$$_{-'edit'} || ref $$_{-'edit'}) || $$_{-'flg'} && !($$_{-'flg'} =~ /[aeu]/) ? :
5120	0	0	!grep({$n eq $_;} @_[5 .. $#_]) ? :
	0	0	!$n ? :
5123	0	0	!$$c{-'cmdt'} ? :
	0	0	if $fo =~ /^(\w)!/
5125	0	0	unless ref $$rr{-'editable'}
5126	0	0	unless $$rr{-'editable'}{-'fr'}
5127	0	0	$fo eq 'x' ? :
	0	0	$fo eq 'v' ? :
	0	0	if $fo and not ref $fo and $fo =~ /\w/
5131	0	0	if ($$c{-'cmd'} and $$c{-'cmd'} =~ /^(?:recRead|recForm)$/ and not $$c{-'edit'}) { }
	0	0	elsif ($$c{-'cmd'} and $$c{-'cmd'} =~ /^(?:recNew|recRead|recForm|recDel)$/) { }
5133	0	0	if grep /^-recDel$/, @fn
5138	0	0	if (ref $fo and $rn and defined $$rn{$fn} and not grep({$$rn{$fn} eq $_;} @$fo))
5142	0	0	if $fn eq '-recDel'
5148	0	0	if $fn eq '-recDel'
5149	0	0	if (not $fo or substr($fn, 0, 1) eq '-') { }
	0	0	elsif (ref $fo) { }
5154	0	0	if (ref $rn and ref $fo eq 'ARRAY')
5162	0	0	unless defined $$rn{$fn} and grep {$$rn{$fn} eq $_;} @$fo
5165	0	0	if (ref $rn and ref $rb) { }
	0	0	elsif (not $rb) { }
5166	0	0	if ($fo == 1) { }
	0	0	elsif ($fo == 2) { }
5170	0	0	defined $$rn{$fn} ? :
	0	0	defined $$rb{$fn} ? :
	0	0	if (defined $$rn{$fn} ? $$rn{$fn} : '') ne (defined $$rb{$fn} ? $$rb{$fn} : '')
5181	0	0	if ($fo == 1) { }
	0	0	elsif ($fo == 2) { }
5189	0	0	if ($ds)
5194	0	0	ref $$fh{$$ds[0]} ? :
	0	0	if $ds and !$$fh{$$ds[0]} || ref $$fh{$$ds[0]} eq 'ARRAY' and $$c{-'cmdt'}{-'mdefld'} and $$c{-'cmdt'}{-'mdefld'}{$$ds[0]} and $$c{-'cmdt'}{-'mdefld'}{$$ds[0]}{-'inp'} and ref $$c{-'cmdt'}{-'mdefld'}{$$ds[0]}{-'inp'}{-'values'} eq 'ARRAY'
5201	0	0	if $$c{-'cmd'} and $$c{-'cmd'} eq 'recDel' or $$c{-'cmd'} and not $$c{-'cmd'} =~ /^(?:recRead|recForm)$/ and $ds and $rn and $$rn{$$ds[0]} and $$rn{$$ds[0]} eq $$ds[1]
5216	0	0	@_ < 3 && ref $_[1] ? :
5217	0	0	exists $$a{-'data'} ? :
	0	0	$$a{-'data'} ? :
5224	0	0	unless $$c{$w}
5227	0	0	unless $$c{$w}
5233	0	0	if $$s{-'rac'} and $$m{-'racWriter'} || $$s{-'racWriter'}
5247	0	0	@_ < 3 && ref $_[1] ? :
5248	0	0	exists $$a{-'data'} ? :
	0	0	$$a{-'data'} ? :
5256	0	0	if not exists $$d{$_}
	0	0	if $r
5258	0	0	unless $$c{$w}
	0	0	unless $$d{$$c{$w}}
5260	0	0	if $r and $$r{-'editable'} or $$d{-'new'} and $$s{-'rac'} and $$m{-'racWriter'} || $$s{-'racWriter'}
5272	0	0	if $$s{-'serial'} and $$s{-'serial'} == 2
5274	0	0	@_ < 3 && ref $_[1] ? :
5275	0	0	exists $$a{-'data'} ? :
	0	0	$$a{-'data'} ? :
5285	0	0	unless $$c{$w}
5288	0	0	unless $$c{$w}
5294	0	0	if ($p)
5298	0	0	if ($a eq $d) { }
5303	0	0	if ($$a{-'from'}) { }
5307	0	0	if $b
5310	0	0	if not $$a{-'file'} and $t and $$t{-'file'}
5311	0	0	if not $$a{-'file'} and $p and $$p{-'file'}
5312	0	0	if $$a{-'file'}
5313	0	0	if $$m{-'index'} or $$s{-'index'}
5315	0	0	if $t and $$t{-'file'} or $p and $$p{-'file'}
5316	0	0	if $r
5320	0	0	$j == 1 ? :
	0	0	if $r
5326	0	0	if not $$a{-'file'} and $p and $$p{-'file'}
5327	0	0	if $$a{-'file'}
5328	0	0	if $$m{-'index'} or $$s{-'index'}
5331	0	0	if $r and $$s{-'rac'} and $$m{-'racWriter'} || $$s{-'racWriter'}
5333	0	0	if ($r)
5338	0	0	if $r
5346	0	0	$_[0]{-'table'}{$_[1]}{-'expr'} =~ /\s/ ? :
	0	0	!($_[0]{-'table'}{$_[1]} && $_[0]{-'table'}{$_[1]}{-'expr'}) ? :
5355	0	0	$_[0]{-'table'}{$_[1]}{-'expr'} =~ /\s/ ? :
	0	0	$_[0]{-'table'}{$_[1]}{-'expr'} =~ /^([^\s]+\s+AS\s+[^\s]+)/i ? :
	0	0	!($_[0]{-'table'}{$_[1]} && $_[0]{-'table'}{$_[1]}{-'expr'}) ? :
5373	0	0	if (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbi') { }
	0	0	elsif (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbm') { }
	0	0	elsif (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'xmr') { }
5387	0	0	$$s{-'dbiph'} ? :
	0	0	$$s{-'dbiph'} ? :
5390	0	0	unless $db->do(@c)
5392	0	0	if $$s{-'affected'} < 0
5393	0	0	if $$s{-'affected'} > 1 or $$a{-'save'}
5394	0	0	if defined $$a{-'sel'} and not $$a{-'sel'}
5395	0	0	if ($$s{-'dbiph'})
5402	0	0	defined $$d{$_} ? :
5403	0	0	$$s{-'dbiph'} ? :
5407	0	0	@v ? :
5416	0	0	unless $s->dbmTable($f)->kePut(@c)
5427	0	0	if not $$s{-'debug'} or defined $$s{-'dbiexpl'} and not $$s{-'dbiexpl'}
5428	0	0	ref $_[0] ? :
5446	0	0	if $$s{-'serial'} and $$s{-'serial'} == 2
5448	0	0	@_ < 3 && ref $_[1] ? :
5449	0	0	exists $$a{-'data'} ? :
	0	0	$$a{-'data'} ? :
5466	0	0	unless $x
5469	0	0	$v && (!$$a{-'version'} || $$a{-'version'} eq '-') ? :
	0	0	ref $$a{-'version'} ? :
5472	0	0	unless $$c{$w}
5475	0	0	unless $$c{-'rvcUpdBy'}
5477	0	0	if $t1
5479	0	0	unless $$s{$_}
	0	0	if ($w or $o or $v or $i or grep {$$m{$_} unless $$s{$_};} '-recForm0R', '-recFlim0R', '-recEdt0R', '-recChg0R', '-recUpd0R', '-recChg0W', '-recUpd1R') { }
5483	0	0	if $$s{-'affect'} and $j > $$s{-'affect'}
5487	0	0	if $w and not $s->ugmember(map({$$r{$_};} @$w))
5488	0	0	if $b
5490	0	0	if ($v and $$r{$v} and !$o || defined $$r{$$o[0]} && $$r{$$o[0]} ne $$o[1] or $x and defined $$r{$$x[0]} and $$r{$$x[0]} eq $$x[1] and !defined($$d{$$x[0]}) || $$d{$$x[0]} eq $$x[1]) { }
	0	0	elsif ($o and ($$r{$$o[0]} || '') eq $$o[1] and defined $$d{$$o[0]} and $$d{$$o[0]} ne $$o[1] and !$x || defined $$d{$$x[0]} && $$d{$$x[0]} ne $$x[1] and $$r{$v}) { }
	0	0	elsif ($o and ($$r{$$o[0]} || '') ne $$o[1] and ($$d{$$o[0]} || '') eq $$o[1]) { }
	0	0	elsif ($v and !$u || defined $$r{$$u[0]} && !grep({$$r{$$u[0]} eq $_;} @{$u;}[1 .. $#$u])) { }
5513	0	0	if $$r{-'file'}
5514	0	0	if $i
5524	0	0	if $$r{-'file'}
5525	0	0	if $$r{-'file'}
5526	0	0	if $$m{-'index'} or $$s{-'index'}
5528	0	0	if $$n{-'file'}
5548	0	0	if ($r and $$r{-'file'} and !$u || $$a{-'file'} || $$d{$$u[0]} && grep({$$d{$$u[0]} eq $_;} @{$u;}[1 .. $#$u]))
5549	0	0	if ($$a{-'file'} and !$$r{-'file'} || $$r{-'file'} ne $$a{-'file'})
5556	0	0	if $t2 and $t1 and exists $$r{$t2} || $$m{-'mdefld'} && $$m{-'mdefld'}{$t2} || ($$m{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbm'
5561	0	0	if $i
5562	0	0	if $i
5568	0	0	if ($$a{-'file'} and !$$r{-'file'} || $$r{-'file'} ne $$a{-'file'})
5573	0	0	if $r and $$r{-'file'}
5580	0	0	if $r and $$r{-'file'} and $u and $$n{$$u[0]} and not grep({$$n{$$u[0]} eq $_;} @{$u;}[1 .. $#$u])
5581	0	0	if $i
5583	0	0	if ($n)
5584	0	0	if $j == 1
5589	0	0	if $$s{-'affected'}
5597	0	0	if $$s{-'affect'} and ($$s{-'affected'} || 0) != $$s{-'affect'}
5599	0	0	if ($r and ($$s{-'affected'} || 0) == 1) { }
	0	0	elsif ($r) { }
5600	0	0	if $b
5602	0	0	$w ? :
	0	0	if $$s{-'rac'}
5624	0	0	unless $n
5625	0	0	if ref $n and not $$n{-'table'}
5627	0	0	if ($n and not $n =~ /^-/) { }
5628	0	0	ref $n ? :
5630	0	0	if (not $_[4] and ref $_[2] and ref $_[3]) { }
	0	0	elsif (not $_[2] and ref $_[3] and ref $_[4]) { }
	0	0	elsif (ref $_[2] eq 'HASH') { }
	0	0	elsif (ref $_[2]) { }
	0	0	elsif ($_[2] and not ref $_[2]) { }
5640	0	0	if (ref $_[2]{$k}) { }
5663	0	0	if (grep {not defined $$a{-'data'}{$_};} keys %{$$a{-'data'};} or grep {not defined $$a{-'key'}{$_};} keys %{$$a{-'key'};})
5669	0	0	@_ < 3 && ref $n ? :
5671	0	0	if $$s{-'serial'} and $$s{-'serial'} == 2
5673	0	0	exists $$a{-'data'} ? :
	0	0	$$a{-'data'} ? :
5680	0	0	ref $n ? :
5682	0	0	unless $x
5685	0	0	$v && (!$$a{-'version'} || $$a{-'version'} eq '-') ? :
	0	0	ref $$a{-'version'} ? :
5687	0	0	if (ref $n and $$n{-'excl'} and $$n{-'version'} and $v and $$a{-'version'} and ref $_[4] eq 'HASH')
5690	0	0	defined $$kv{$_} ? :
5715	0	0	if (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbi') { }
	0	0	elsif (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbm') { }
5716	0	0	defined $$dp{$_} && defined $$d{$_} && $$dp{$_} eq $$d{$_} || !(defined $$dp{$_} || defined $$d{$_}) ? :
	0	0	if $dp
5721	0	0	if $dp and not scalar keys %$d
5723	0	0	$$s{-'dbiph'} ? :
	0	0	!$$a{-'key'} ? :
5724	0	0	if $$s{-'dbiph'}
5749	0	0	$$s{-'dbiph'} ? :
	0	0	$$a{-'where'} ? :
	0	0	$$a{-'version'}[1] ? :
	0	0	ref $$a{-'version'} ? :
	0	0	ref $$a{-'key'}{$_} ? :
	0	0	$$s{-'dbiph'} ? :
5752	0	0	unless $db->do(@c)
5754	0	0	if $$s{-'affected'} < 0
5756	0	0	if not $$s{-'affected'} and $$a{-'save'} || $$s{-'table'}{$f}{-'ixcnd'}
5760	0	0	if not $$s{-'affected'} and $$a{-'optrec'} || $$s{-'table'}{$f}{-'optrec'}
5764	0	0	if $$s{-'affected'} > 1 or $$a{-'save'}
5765	0	0	if defined $$a{-'sel'} and not $$a{-'sel'}
5766	0	0	if not $$s{-'affect'} and $DBI::rows <= 0
5767	0	0	if ($$s{-'dbiph'})
5768	0	0	unless defined $$d{$_}
5771	0	0	defined $$d{$_} ? :
5777	0	0	defined $$a{-'key'}{$_} ? :
	0	0	exists $$d{$_} ? :
	0	0	defined $$d{$_} ? :
5778	0	0	$$s{-'dbiph'} ? :
	0	0	$$a{-'where'} ? :
5788	0	0	@v ? :
5796	0	0	unless ($dp)
5804	0	0	if $$s{-'affect'} and $j > $$s{-'affect'}
5806	0	0	if (not $dp) { }
5812	0	0	!$dp ? :
5819	0	0	unless ($$s{-'affected'})
5820	0	0	if $$a{-'save'} or $$s{-'table'}{$f}{-'ixcnd'}
5822	0	0	if $$a{-'optrec'} or $$s{-'table'}{$f}{-'optrec'}
5826	0	0	$$s{-'affected'} > 1 ? :
5836	0	0	ref $$a{-'key'}{$_} ? :
	0	0	!exists($$a{-'key'}{$_}) ? :
5837	0	0	$$a{-'key'} ? :
5849	0	0	unless ref $$a{-'key'}{$v}
5851	0	0	$$a{-'key'} ? :
5854	0	0	unless %$wk
5857	0	0	if substr($o, 0, 1) ne '-'
5858	0	0	$o =~ /^-[af]/ ? :
	0	0	$e ? :
	0	0	@$k ? :
5866	0	0	if ($wk)
5878	0	0	$d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? :
	0	0	ref $v ? :
	0	0	!defined($v) ? :
	0	0	!defined($d) ? :
	0	0	$ko && (!defined($v) || $v eq '') ? :
	0	0	if $ko && (!defined($v) || $v eq '') ? defined $d && $d ne '' : (!defined($d) ? defined $v : (!defined($v) ? defined $d : (ref $v ? !grep({$d eq $_;} @$v) : ($d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? $d != $v : $d ne $v))))
5890	0	0	$d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? :
	0	0	ref $v ? :
	0	0	!defined($v) ? :
	0	0	!defined($d) ? :
	0	0	$ko && (!defined($v) || $v eq '') ? :
	0	0	if $ko && (!defined($v) || $v eq '') ? defined $d && $d lt '' : (!defined($d) ? defined $v : (!defined($v) ? 0 : (ref $v ? !grep({$d ge $_;} @$v) : ($d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? $d < $v : $d lt $v))))
5902	0	0	$d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? :
	0	0	ref $v ? :
	0	0	!defined($v) ? :
	0	0	!defined($d) ? :
	0	0	$ko && (!defined($v) || $v eq '') ? :
	0	0	if $ko && (!defined($v) || $v eq '') ? !defined($d) || $d le '' : (!defined($d) ? 1 : (!defined($v) ? !defined($d) : (ref $v ? !grep({$d gt $_;} @$v) : ($d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? $d <= $v : $d le $v))))
5914	0	0	$d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? :
	0	0	ref $v ? :
	0	0	!defined($v) ? :
	0	0	!defined($d) ? :
	0	0	$ko && (!defined($v) || $v eq '') ? :
	0	0	if $ko && (!defined($v) || $v eq '') ? defined $d && $d gt '' : (!defined($d) ? 0 : (!defined($v) ? defined $d : (ref $v ? !grep({$d le $_;} @$v) : ($d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? $d > $v : $d gt $v))))
5926	0	0	$d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? :
	0	0	ref $v ? :
	0	0	!defined($v) ? :
	0	0	!defined($d) ? :
	0	0	$ko && (!defined($v) || $v eq '') ? :
	0	0	if $ko && (!defined($v) || $v eq '') ? !defined($d) || $d ge '' : (!defined($d) ? !defined($v) : (!defined($v) ? 0 : (ref $v ? !grep({$d lt $_;} @$v) : ($d =~ /^[\d\.]+\$/ && $v =~ /^[\d\.]+\$/ ? $d >= $v : $d ge $v))))
5931	0	0	$ws eq 'lt' ? :
	0	0	$ws eq 'le' ? :
	0	0	$ws eq 'gt' ? :
	0	0	$ws eq 'ge' ? :
	0	0	$ws eq 'eq' || $ws eq 'all' ? :
5935	0	0	if ($wr)
5937	0	0	$$a{-'uname'} ? :
5938	0	0	$$a{-'urole'} =~ /^(?:managers|principals|users)$/i ? :
	0	0	$$a{-'urole'} =~ /^(?:manager|principal|user)$/i ? :
5945	0	0	if $_[2]{$v} =~ /(?:^|,|;)\s*\Q$n\E\s*(?:,|;|$)/i
5948	0	0	if $_[2]{$v} =~ /(?:^|,|;)\s*\Q$n\E\s*(?:,|;|$)/i
5954	0	0	$$a{-'urole'} && !$$a{-'uname'} ? :
5959	0	0	unless ref $wv and @$wv
5964	0	0	if (defined $wc and not ref $wc and $wc)
5970	0	0	if ($wm =~ /(?
5976	0	0	if ($wa)
5979	0	0	!($v =~ /^(?:and|or|eq|ge|gt|le|lt)$/i) ? :
5991	0	0	if !$wv || !$_[2]{$$wv[0]} && (!($$wv[1] && $_[2]{$$wv[1]}) || $_[2]{$$wv[1]} ne $$wv[2]) and !$ws || &$ws(@_) and !$wc || &$wc(@_) and !$wa || ugmember($s, map({$_[2]{$_};} @$wa)) and !$wr || &$wr(@_) and !$ft || grep({$_[2]{$_} =~ /\Q$ft\E/i if defined $_[2]{$_};} keys %{$_[2];})
5994	0	0	$wv ? :
	0	0	$wk ? :
	0	0	$we ? :
	0	0	$wa ? :
	0	0	$wr ? :
	0	0	$ft ? :
	0	0	$wf ? :
	0	0	$e ? :
6005	0	0	!$$s{-'c'}{-'dbmSeek'} ? :
6016	0	0	$$s{-'dbiph'} ? :
	0	0	!$$a{-'key'} ? :
	0	0	unless @cn
6018	0	0	unless @cn
6020	0	0	!$kc || ref $kc || substr($kc, 0, 1) ne '-' ? :
6023	0	0	if $kc eq '='
6025	0	0	ref $$a{-'table'} ? :
6026	0	0	if $f =~ /^([^\s]+)/
6028	0	0	!$t && $m ? :
6034	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	!defined($$a{-'key'}{$_}) ? :
	0	0	$$s{-'keyqn'} && (!defined($$a{-'key'}{$_}) || $$a{-'key'}{$_} eq '') ? :
	0	0	ref $$a{-'key'}{$_} ? :
6038	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	!defined($_) ? :
	0	0	$$s{-'keyqn'} && (!defined($_) || $_ eq '') ? :
	0	0	ref $_ ? :
6042	0	0	@v ? :
6049	0	0	@{$$a{-'key'}{$_};} ? :
6058	0	0	$$s{-'dbiph'} ? :
6062	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	!defined($$a{-'key'}{$_}) ? :
	0	0	$$s{-'keyqn'} && (!defined($$a{-'key'}{$_}) || $$a{-'key'}{$_} eq '') ? :
	0	0	ref $$a{-'key'}{$_} ? :
6066	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	$kc =~ /=/ ? :
	0	0	!$kc ? :
	0	0	!defined($_) ? :
	0	0	$$s{-'keyqn'} && (!defined($_) || $_ eq '') ? :
	0	0	ref $_ ? :
6069	0	0	@v ? :
6076	0	0	@{$$a{-'key'}{$_};} ? :
6090	0	0	!$_[3] ? :
	0	0	unless $_[4] and $_[5] and @{$_[4];} and @{$_[5];}
6100	0	0	$o =~ /\b(?:regexp_like)/i ? :
	0	0	$o =~ /\b(?:similar)\b/i ? :
	0	0	$o =~ /~\*/i || !$o && $e =~ /\bDBI:(?:pg|postgresql)\b/i ? :
	0	0	$o =~ /\b(?:rlike|regexp)\b/i || !$o && $e =~ /\bDBI:(?:mysql)\b/i ? :
6122	0	0	$e eq 'RLIKE' ? :
	0	0	$e eq 'SIMILAR TO' ? :
	0	0	!$e || $o =~ /\b(?:like|eq|=)\b/i ? :
6126	0	0	!$o || $o =~ /\b(?:lc|lower)\b/i ? :
	0	0	$o =~ /\b(?:lc|lower)\b/i ? :
	0	0	$o =~ /\b(?:lc|lower)\b/i ? :
	0	0	$e =~ /\b(?:regexp_like)/i ? :
	0	0	ref $l ? :
6131	0	0	if (ref $l and @_ > 6 and !$o || $o =~ /\b(?:filter|sub)\b/i)
6138	0	0	unless exists $_[3]{$v}
6141	0	0	if defined $_[3]{$v} and $_[3]{$v} =~ /(?:^|,|;)\s*\Q$n\E\s*(?:,|;|$)/i
6144	0	0	unless not $e
6146	0	0	unless (exists $_[3]{$v})
6147	0	0	if ($w)
6155	0	0	if defined $_[3]{$v} and $_[3]{$v} =~ /(?:^|,|;)\s*\Q$n\E\s*(?:,|;|$)/i
6160	0	0	$_[3] && $_[3] =~ /not/i ? :
6172	0	0	$o =~ /\b(?:lc|lower)\b/i ? :
6179	0	0	!$o || $o =~ /\b(?:lc|lower)\b/i ? :
6184	0	0	$_[3] ? :
	0	0	$o =~ /\b(?:lc|lower)\b/i ? :
	0	0	$o =~ /\b(?:lc|lower)\b/i ? :
	0	0	$o =~ /\b(?:eq|=)\b/i ? :
	0	0	!ref($l) ? :
	0	0	!ref($l) && $e =~ /\b(?:regexp_like)\b/i ? :
	0	0	!defined($l) ? :
6193	0	0	if $$s{-'serial'} and $$s{-'serial'} == 2
6195	0	0	@_ < 3 && ref $_[1] ? :
6196	0	0	exists $$a{-'data'} ? :
	0	0	$$a{-'data'} ? :
6207	0	0	unless $$s{$_}
	0	0	if ($w || $i and not $x or grep {$$m{$_} unless $$s{$_};} '-recDel0R', '-recDel1R') { }
6211	0	0	if $$s{-'affect'} and $j > $$s{-'affect'}
6215	0	0	if $w and not $s->ugmember(map({$$r{$_};} @$w))
6216	0	0	if $x and defined $$r{$$x[0]} and $$r{$$x[0]} eq $$x[1]
6219	0	0	if $b
6221	0	0	if not $x and $$r{-'file'}
6222	0	0	if not $x and $i
6224	0	0	$$a{$_} ? :
	0	0	$x ? :
6229	0	0	$$a{$_} ? :
	0	0	$x ? :
6233	0	0	if $$s{-'affect'} and ($$s{-'affected'} || 0) != $$s{-'affect'}
6235	0	0	if $r
6248	0	0	if (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbi') { }
	0	0	elsif (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbm') { }
6261	0	0	$$a{-'where'} ? :
	0	0	ref $$a{-'key'}{$_} ? :
	0	0	$$s{-'dbiph'} && $$a{-'key'} ? :
6265	0	0	unless $s->dbi->do(@c)
6267	0	0	if $$s{-'affected'} < 0
6276	0	0	if $$s{-'affect'} and $j > $$s{-'affect'}
6281	0	0	unless defined $$s{-'affected'}
6284	0	0	if $$s{-'affected'}
6292	0	0	if (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbi') { }
	0	0	elsif (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbm') { }
6295	0	0	unless $s->dbi->do(@c)
6299	0	0	if (-e $n)
6302	0	0	unless unlink $n
6312	0	0	ref $_ ? :
	0	0	@_ < 3 && ref $_[1] ? :
6317	0	0	unless $$m{-'rvcDelState'} or $$s{-'rvcDelState'}
6321	0	0	$m && (!$$a{-'version'} || $$a{-'version'} eq '-') ? :
	0	0	ref $$a{-'version'} ? :
6323	0	0	!$$a{-'urole'} || $$a{-'urole'} eq 'all' ? :
6344	0	0	ref $_ ? :
	0	0	@_ < 3 && ref $_[1] ? :
6350	0	0	ref $$a{-'data'} ne 'ARRAY' ? :
6353	0	0	unless $$m{-'rvcDelState'} or $$s{-'rvcDelState'}
6354	0	0	if defined $$a{-'version'} and not ref $$a{-'version'} and $m and !$$a{-'version'} || $$a{-'version'} eq '-'
6359	0	0	if $r
6368	0	0	if ($r) { }
6376	0	0	if $$a{-'test'}
6377	0	0	unless $$a{-'optrec'} and $$m{-'optrec'}
6382	0	0	if ($r and $$s{-'rac'})
6386	0	0	unless $$m{-'racWriter'} or $$s{-'racWriter'}
	0	0	unless $$m{-'racReader'} or $$s{-'racReader'}
6387	0	0	if not $s->uadmrdr and $$m{-'racWriter'} || $$s{-'racWriter'} || $$m{-'racReader'} || $$s{-'racReader'} and not $s->ugmember(map({$$r{$_};} @{[] unless $$m{-'racWriter'} or $$s{-'racWriter'};}, @{[] unless $$m{-'racReader'} or $$s{-'racReader'};}))
6390	0	0	unless $$m{-'racWriter'} or $$s{-'racWriter'}
	0	0	if $s->uadmwtr or $s->ugmember(map({$$r{$_};} @{[] unless $$m{-'racWriter'} or $$s{-'racWriter'};}))
6392	0	0	if $$m{-'rfa'} or $$s{-'rfa'}
6403	0	0	if $qry and $qry eq 'default'
6406	0	0	if ($qry and $$s{-'wikq'} and not $$s{-'table'}{$qry})
6408	0	0	if $rk
6411	0	0	if $qry and $tn ne $qry
6413	0	0	if defined $$tm{-'wikn'} and not $$tm{-'wikn'}
6414	0	0	unless $$tm{-'wikn'} or $$s{-'wikn'}
6416	0	0	ref $$tm{-'wikn'} ? :
	0	0	ref $$s{-'wikn'} ? :
	0	0	$$tm{-'wikn'} ? :
6419	0	0	unless $$tm{-'mdefld'}{$f}
6423	0	0	unless $fn
6432	0	0	if ($$rr{$fv}) { }
6433	0	0	$fu ? :
	0	0	if $fu ? $ru gt ($$rr{$fu} || '') : $rl
6441	0	0	$fu ? :
	0	0	if $fu ? $ru gt ($$rr{$fu} || '') : $rl > 1
6449	0	0	if $rl == 2
6451	0	0	if ref $rk and not $$rk{-'cmd'}
6459	0	0	ref $_ ? :
	0	0	@_ < 3 && ref $_[1] ? :
6470	0	0	unless $rvc{-'rvcActPtr'} and $rvc{-'rvcUpdWhen'}
6472	0	0	if ref $rvc{-'key'}
6495	0	0	if ($l > 10485760)
6503	0	0	if $$m{-'rfa'} or $$s{-'rfa'}
6510	0	0	if not ref $v and defined $v
6514	0	0	if $rvx{$f} or not defined $$pv{$f} || defined $$r1{$f}
6516	0	0	$f ne $rva ? :
	0	0	unless $f ne $rva ? !defined($$pv{$f}) && defined $$r1{$f} || defined $$pv{$f} && !defined($$r1{$f}) || $$pv{$f} ne $$r1{$f} : 1
6523	0	0	if (not $cv) { }
	0	0	elsif (length $cv > 255 or $cv =~ /[\n\r]/ or $$m{-'mdefld'} and $$m{-'mdefld'}{$f} and $$m{-'mdefld'}{$f}{-'inp'} and grep {$$m{-'mdefld'}{$f}{-'inp'}{$_};} '-rows', '-arows', '-htmlopt') { }
6532	0	0	if ($$m{-'mdefld'} and $$m{-'mdefld'}{$f} and $$m{-'mdefld'}{$f}{-'inp'} and $$m{-'mdefld'}{$f}{-'inp'}{-'htmlopt'}) { }
6542	0	0	if defined $cv
6551	0	0	if ($fn and $$r[$i][3]{-'file'} || $$r[$i][1] lt $ft)
6556	0	0	if ($$r[$i][3]{-'file'})
6562	0	0	if $fn
6574	0	0	unless $n
6575	0	0	if ref $n and not $$n{-'table'}
6577	0	0	ref $n ? :
6581	0	0	unless ($$m{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbi'
6584	0	0	unless $$m{-'rvcDelState'} or $$s{-'rvcDelState'}
6588	0	0	$m && (!$$n{-'version'} || $$n{-'version'} eq '-') ? :
	0	0	ref $$n{-'version'} ? :
6590	0	0	if ($$n{-'excl'})
6592	0	0	defined $$kv{$_} ? :
6600	0	0	unless $$c{-'rvcUpdWhen'}
6605	0	0	if ref $_[$i] ne 'ARRAY'
6609	0	0	if not defined $$d{$f} or $$d{$f} eq ''
6613	0	0	unless %{$$a{-'key'};}
6619	0	0	unless $r
6622	0	0	if (ref $_[$#_] eq 'CODE') { }
	0	0	elsif (ref $_[$#_] eq 'ARRAY') { }
6627	0	0	if defined $$r{$f}
6647	0	0	if (not $c) { }
	0	0	elsif ($c eq '(') { }
	0	0	elsif ($c =~ /['"]/) { }
	0	0	elsif ($c eq ',') { }
6648	0	0	unless $q =~ /#[\w]+[\w\d]+\(/
6652	0	0	if (substr($2, 0, 1) eq '#') { }
6655	0	0	if $q1 =~ /^\(\s*(.*?)\)\s*$/
6657	0	0	if ($c1 =~ /^(?:ftext|fulltext|qftext)$/i) { }
	0	0	elsif ($c1 =~ /^(?:urole)$/i) { }
6658	0	0	$q1[0] =~ /^['"](.*?)['"]$/ ? :
	0	0	!defined($q1[0]) ? :
6667	0	0	unless $v
6671	0	0	!defined($q1[0]) ? :
6685	0	0	if ($2 eq ')') { }
6697	0	0	if $2 eq $c
6706	0	0	if ($2 eq $c) { }
6707	0	0	$r =~ /^\s*(.*?)\s*$/ ? :
6715	0	0	$r =~ /^\s*(.*?)\s*$/ ? :
	0	0	if $r ne ''
6728	0	0	$_ =~ /\./ ? :
6733	0	0	$$_{-'fld'} =~ /\./ ? :
	0	0	$$_{-'expr'} ? :
6737	0	0	if ref $_ eq 'HASH' and $$_{-'fld'} and ($$_{-'flg'} || '') =~ /[akwuql]/
6748	0	0	$_ =~ /\./ ? :
	0	0	$$_{-'fld'} =~ /\./ ? :
	0	0	defined $$_{-'expr'} ? :
	0	0	ref $_ ne 'HASH' ? :
	0	0	!ref($_) ? :
6752	0	0	if $_
6769	0	0	$_ =~ /\./ ? :
6774	0	0	$$s{-'table'}{$f}{-'ftext'} ? :
	0	0	ref $$a{-'data'} eq 'ARRAY' ? :
	0	0	$$s{-'table'}{$f}{-'field'} ? :
	0	0	$$s{-'table'}{$f}{-'ftext'} ? :
6783	0	0	$u ? :
	0	0	$u ? :
	0	0	$u ? :
	0	0	$r =~ /^(?:managers|principals|users)$/i ? :
	0	0	$r =~ /^(?:manager|principal|user)$/i ? :
6824	0	0	ref $t ? :
	0	0	if $f =~ /^([^\s]+)/
6827	0	0	if (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbi') { }
	0	0	elsif (($$s{-'table'}{$f}{-'dbd'} || $$s{-'dbd'} || $$s{-'tn'}{-'dbd'}) eq 'dbm') { }
6831	0	0	$$s{-'dbiph'} ? :
	0	0	!$$a{-'key'} ? :
6833	0	0	$$s{-'dbiph'} ? :
	0	0	!$$a{-'key'} ? :
6834	0	0	ref $$a{-'key'}{$_} ? :
6847	0	0	$v =~ /\./ ? :
	0	0	$$v{-'fld'} =~ /\./ ? :
	0	0	defined $$v{-'expr'} ? :
	0	0	ref $v ne 'HASH' ? :
	0	0	!ref($v) ? :
6859	0	0	$$_[$#_] =~ /(JOIN|,)$/i ? :
	0	0	!ref($_) ? :
6873	0	0	ref $$a{$_} ? :
6874	0	0	$v =~ /^\s*(?:,|CROSS|JOIN|INNER|STRAIGHT_JOIN|LEFT|NATURAL|RIGHT|OUTER)\b/i ? :
	0	0	!$v ? :
6889	0	0	!ref($_) ? :
6924	0	0	$$a{-'keyord'} && $$a{-'keyord'} =~ /^-[db]/ ? :
	0	0	!($_ =~ /[\s,]/) ? :
	0	0	ref $_ ? :
6947	0	0	$$a{-'select'} ? :
	0	0	ref $$a{-'data'} ne 'ARRAY' ? :
	0	0	!ref($$a{-'data'}) ? :
	0	0	!$$a{-'data'} ? :
	0	0	$$a{-'join0'} ? :
	0	0	ref $t ? :
	0	0	$$a{-'join1'} ? :
	0	0	!ref($$a{-'where'}) ? :
	0	0	$$a{-'where'} ? :
	0	0	$$a{-'version'}[1] ? :
	0	0	ref $$a{-'version'} ? :
	0	0	$$a{-'urole'} && !$$a{-'uname'} || $s->uadmrdr ? :
	0	0	!$$a{-'urole'} ? :
	0	0	!$$a{-'ftext'} ? :
	0	0	scalar @cn || $$a{-'where'} || ref $$a{-'version'} || $$a{-'urole'} || $$a{-'ftext'} ? :
	0	0	ref $$a{-'group'} ? :
	0	0	$$a{-'group'} ? :
	0	0	$$a{-'keyord'} && $$a{-'keyord'} =~ /^-[db]/ ? :
	0	0	!($$a{-'order'} =~ /[\s,]/) ? :
	0	0	substr($$a{-'order'}, 0, 1) eq '-' ? :
	0	0	$$a{-'order'} =~ /^-[db]/ ? :
	0	0	ref $$a{-'order'} ? :
	0	0	$$a{-'keyord'} =~ /-[db]/ ? :
	0	0	$$a{-'keyord'} ? :
	0	0	$$a{-'order'} ? :
	0	0	$$a{-'limit'} && $s->dbiEng('mysql') ? :
	0	0	$$a{-'having'} ? :
6959	0	0	@cv ? :
6961	0	0	unless $r->execute(@cv)
6962	0	0	if $cf or 1
6968	0	0	if not $$s{-'affect'} or $$s{-'affect'} > 1
6969	0	0	if $$s{-'debug'} and $s->dbiEng('mysql')
6973	0	0	unless defined $r
6974	0	0	if ($$a{-'data'} and ref $$a{-'data'} eq 'ARRAY') { }
	0	0	elsif (my $m = $$s{-'table'}{$f}{-'field'}) { }
6980	0	0	if ref $_ eq 'HASH'
	0	0	ref $m eq 'HASH' ? :
6989	0	0	if ($_[0]{-'dbi'})
6991	0	0	unless $_[0]{-'dbi'}->commit
6999	0	0	if ($_[0]{-'dbi'})
7001	0	0	unless $_[0]{-'dbi'}->rollback
7017	0	0	if ($$s{-'setup'} and not $ARGV[0] and !$$s{-'diero'} || $$s{-'diero'} ne 'e')
7021	0	0	if $ds > $dv
7024	0	0	if ($ARGV[0] and $ARGV[0] =~ /^-/)
7028	0	0	if ($ARGV[0] eq '-reindex') { }
	0	0	elsif ($ARGV[0] eq '-setup') { }
	0	0	elsif ($ARGV[0] eq '-call') { }
7049	0	0	if (not $s or $s->ineval)
7051	0	0	if ($s and $$s{-'diero'} and $$s{-'diero'} eq 'o')
7056	0	0	if $$s{-'pcmd'}
7059	0	0	if ($ermu and $e =~ /^\Q$ermu\E(.*)/) { }
7061	0	0	unless $ermu
7063	0	0	if *fatalsToBrowser{'CODE'}
7065	0	0	unless $$s{-'c'}{-'htmlstart'}
7074	0	0	if ($e =~ /\Q$ermd\E/) { }
	0	0	elsif ($e =~ /[\n\r]/) { }
7081	0	0	if ($h2 =~ /\s+(?:at\s+)*line\s+\d+\s+at\s+[^\s]+?\s+line\s+\d+\s*$/) { }
	0	0	elsif ($h2 =~ /\s+at\s+[^\s]+?\s+line\s+\d+$/) { }
7095	0	0	$h2 ? :
7111	0	0	if ($$s{-'diero'} and $$s{-'diero'} eq 'o')
7112	0	0	if ($ermu) { }
7115	0	0	if ($$s{-'diero'}) { }
	0	0	elsif ($ENV{'MOD_PERL'} or ($ENV{'GATEWAY_INTERFACE'} || '') =~ /PerlEx/) { }
	0	0	elsif (*fatalsToBrowser{'CODE'}) { }
7123	0	0	if (not $r) { }
7148	0	0	unless *CGI::Carp::set_message{'CODE'}
7180	0	0	if ($$s{-'pcmd'}{-'login'} and $s->uguest)
7187	0	0	if ($$s{-'pcmd'}{-'search'} and length $$s{-'pcmd'}{-'search'} > 1) { }
	0	0	elsif ($$s{-'search'}) { }
7191	0	0	ref $$s{-'search'} ? :
7192	0	0	if not defined $$s{-'c'}{-'search'} or $$s{-'c'}{-'search'} =~ /\b_frame=RIGHT\b/ and not $$s{-'pcmd'}{-'search'} and not $on =~ /^(?:default|start|index)$/
7198	0	0	if ($$s{-'pcmd'}{-'search'} and $$s{-'c'}{-'search'} =~ /\b_frame=RIGHT\b/)
7201	0	0	if $sch =~ /^?/
7202	0	0	$$s{-'lang'} ? :
7227	0	0	if ($$s{-'pcmd'}{-'frame'} and $$s{-'pcmd'}{-'frame'} eq 'set')
7229	0	0	$$s{-'lang'} ? :
	0	0	uc($ENV{'REQUEST_METHOD'} || '') ne 'GET' ? :
	0	0	$$s{-'pcmd'}{-'form'} eq 'default' ? :
7258	0	0	if ($on =~ /\.psp$/i and $oa =~ /^(?:frmCall|recForm|recList)$/)
7260	0	0	if $on =~ m[[\\/]\.+[\\/]]
7262	0	0	$0 =~ m[^(.+[\\/])[^\\/]+$] ? :
7269	0	0	if ($$s{-'pcmd'}{-'wikn'})
7271	0	0	if ($v)
7276	0	0	if $$v{-'cmd'}
7282	0	0	if (!$$s{-'pcmd'}{-'form'} || $$s{-'pcmd'}{-'form'} eq 'default' and $$s{-'pcmd'}{-'key'} || $$s{-'pdta'})
7285	0	0	if $$s{-'pcmd'}{-'form'}
7290	0	0	if ($$s{-'form'} and $$s{-'form'}{$on}) { }
	0	0	elsif ($$s{-'table'} and $s->mdeTable($on)) { }
7293	0	0	unless $om
7295	0	0	$oc eq 't' ? :
7298	0	0	if $$s{-'cgiRun0A'}
7300	0	0	if $$s{-'table'} and $$s{-'pcmd'}{-'table'} and $s->mdeTable($$s{-'pcmd'}{-'table'}) and $$s{-'table'}{$$s{-'pcmd'}{-'table'}}{-'cgiRun0A'}
7305	0	0	if $om and $$om{-'cgiRun0A'}
7310	0	0	unless defined $e
7311	0	0	unless $e
7312	0	0	if $oa eq 'frmHelp'
7318	0	0	$oa =~ /^rec(.+)/ ? :
	0	0	$og =~ /^rec(.+)/ ? :
7321	0	0	unless defined $e
7322	0	0	unless $e
7323	0	0	if $oa eq 'frmHelp'
7325	0	0	unless ref $e
7326	0	0	if not ref $e || -f $e and $0 =~ m[[^\\/]+$]
7328	0	0	$e =~ /\.psp$/i ? :
	0	0	ref $e ? :
7338	0	0	$og =~ /rec(New|Read|Del|QBF)/ ? :
7343	0	0	if not defined $v or ref $v
7344	0	0	unless $v
7348	0	0	if not $nxt and $og eq 'recNew' and $oc eq 'f' and not exists $$om{-'recNew'} and not exists $$om{-'recForm'} and not $$om{-'field'} and $$om{-'table'} and $s->mdeTable($$om{-'table'}) and not $$s{-'table'}{$$om{-'table'}}{-'ixcnd'}
7355	0	0	if $nxt
7361	0	0	if (ref(my $e = $$om{"-$oa"}) eq 'CODE') { }
7373	0	0	$oa =~ /^rec(.+)/ ? :
	0	0	$og =~ /^rec(.+)/ ? :
7376	0	0	unless defined $e
7377	0	0	unless $e
7378	0	0	if $oa eq 'frmHelp'
7380	0	0	$e =~ /\.psp$/i ? :
	0	0	ref $e ? :
7395	0	0	if $s->cgiHook('recFormRWQ')
7396	0	0	if $s->cgiHook('recList')
7397	0	0	if $s->cgiHook('frmHelp')
7414	0	0	$$s{-'lng'} =~ /^([^ ;,]+)/ ? :
7416	0	0	unless defined($$d{$k} || $$d{$k} eq '')
7417	0	0	if ($k =~ /^_(quname)__S$/) { }
	0	0	elsif ($k =~ /^(.+)__S$/) { }
	0	0	elsif ($k =~ /^(.+)__R$/) { }
	0	0	elsif ($k =~ /^(.+)__O$/) { }
	0	0	elsif ($k =~ /^_(new|file)$/) { }
	0	0	elsif ($k =~ /^_(cmd|cmg|frmCall|frmName\d*|frmLso|frmLsc|frmHelp|recNew|recRead|recPrint|recXML|recHist|recEdit|recIns|recUpd|recDel|recForm|recList|recQBF|submit.*|app.*|form|key|wikn|wikq|proto|urm|qjoin|qkey|qwhere|qurole|quname|qftext|qversion|version|qorder|qkeyord|qlist|qlimit|qdisplay|qftwhere|qftord|qftlimit|edit|backc|login|print|xml|hist|refresh|style|frame|search)(?:\.[xXyY]){0,1}$/i) { }
7441	0	0	if not $k =~ /^_(key|proto|qkey|qftext)/i and $v =~ /^\s*(.+?)\s*$/
7443	0	0	if ($k =~ /^(.+)\.[xXyY]$/)
7448	0	0	if ($c =~ /^(?:rec|frmCall|frmHelp|submit)/i) { }
	0	0	elsif ($c eq 'frmLso' and $v =~ /,/) { }
7464	0	0	unless $$c{-'cmg'} or $$c{-'cmd'}
7466	0	0	$$c{-'cmg'} eq 'recList' ? :
	0	0	!$$c{-'cmg'} ? :
	0	0	unless $$c{-'cmd'}
7469	0	0	$$c{-'cmd'} eq 'recForm' ? :
	0	0	unless $$c{-'cmg'}
7474	0	0	if $$c{-'key'} and not ref $$c{-'key'} and $$s{-'idsplit'}
7476	0	0	if not $$c{-'form'} and $$c{-'table'}
7479	0	0	if ($$c{-'frmLso'} and $$c{-'frmLso'} eq 'recQBF')
7484	0	0	if ($$c{-'cmd'} eq 'frmCall')
7486	0	0	if ($frm eq '-frame=set') { }
7491	0	0	$frm =~ /[&.^]+\s*$/ ? :
	0	0	$frm =~ /[+]+\s*$/ ? :
7496	0	0	$frm =~ /^(.+)(?:\s*[+&.^]+\s*)$/ ? :
7497	0	0	if ($frm ne ($$c{-'form'} || ''))
7502	0	0	if $$c{-'cmd'} eq 'recList' or $$c{-'cmg'} eq 'recList'
7511	0	0	if ($$c{-'cmd'} eq 'recNew') { }
	0	0	elsif ($$c{-'cmd'} eq 'recEdit') { }
	0	0	elsif ($$c{-'cmd'} eq 'recQBFReset') { }
	0	0	elsif ($$c{-'cmd'} eq 'recPrint') { }
	0	0	elsif ($$c{-'cmd'} eq 'recXML') { }
	0	0	elsif ($$c{-'cmd'} eq 'recHist') { }
	0	0	elsif ($$c{-'cmd'} eq 'frmHelp') { }
	0	0	elsif (not $$c{-'cmd'} =~ /^(recIns|recUpd|recForm)/) { }
7535	0	0	if $$c{-'cmd'} =~ /^(?:recXML|recQBF)$/
7544	0	0	if $$c{-'cmg'} ne $$c{-'cmd'}
7550	0	0	if ($$c{-'cmd'} =~ /recList/ and $$c{-'key'})
7555	0	0	if ($$c{-'cmd'} =~ /recList/ and $$c{-'cmg'} =~ /recQBF/) { }
	0	0	elsif ($$c{-'cmd'} =~ /recQBF/ and $$c{-'cmg'} =~ /recList/) { }
7557	0	0	unless %{$$c{-'qkey'};}
7558	0	0	unless $$c{$k}
7565	0	0	if defined $$c{-'qkey'}{$_} and $$c{-'qkey'}{$_} ne ''
7568	0	0	if ref $$c{-'qkey'}
7574	0	0	unless ($$c{-'cmd'} =~ /recList/)
7577	0	0	$$c{-'cmd'} eq 'recForm' || $$c{-'cmd'} eq 'recIns' || $$c{-'cmd'} eq 'frmHelp' || ($$c{-'cmd'} eq 'recRead' || $$c{-'cmg'} eq 'recRead') || ($$c{-'cmd'} eq 'recList' || $$c{-'cmg'} eq 'recList') ? :
7591	0	0	unless $_[0]{-'pcmd'}{-'cmd'}
7593	0	0	unless $_[1]
7602	0	0	$$c{-'cmd'} eq 'recDel' ? :
	0	0	grep({$$c{-'cmd'} eq $_;} 'recIns', 'recUpd') ? :
	0	0	$$c{-'cmd'} eq 'recForm' ? :
	0	0	$_[1] eq 'recCommit' && $$c{-'cmd'} =~ /^rec(New|Form|Read|Ins|Upd|Del|List)/ ? :
	0	0	$_[1] eq 'recList' && $$c{-'cmd'} eq 'recList' ? :
	0	0	$_[1] =~ /^recForm/ && !($$c{-'cmd'} =~ /app|Help/) && (!($_[1] =~ /^recForm([RWDQL]+)/) || $_[1] =~ /[WR]/ && $$c{-'cmg'} =~ /^rec(Form|Read)/ || $_[1] =~ /[W]/ && $$c{-'cmg'} =~ /^rec(New|Form|Read|Ins|Upd)/ || $_[1] =~ /[D]/ && $$c{-'cmg'} =~ /^rec(Del)/ || $_[1] =~ /[Q]/ && $$c{-'cmg'} eq 'recQBF' || $_[1] =~ /[L]/ && $$c{-'cmg'} eq 'recList') ? :
	0	0	$_[1] eq 'cmgNext' ? :
	0	0	$_[1] eq 'recOp' && $$c{-'cmd'} =~ /^rec(New|Form|Read|Edit|Ins|Upd|Del)/ ? :
	0	0	$_[1] eq $$c{-'cmd'} ? :
7630	0	0	if ($u =~ m[/$])
7633	0	0	$u1 =~ m[^\w+://[^/]+(.+)] ? :
7653	0	0	if not defined $_[$i + 1] or $_[$i + 1] eq ''
7654	0	0	$_[$i] =~ /^-/ ? :
	0	0	ref $_[$i + 1] ? :
7657	0	0	if ($v{'_all'})
7661	0	0	$_ =~ /^-/ ? :
	0	0	if (defined $$s{-'pcmd'}{$_} and $$s{-'pcmd'}{$_} ne '' and $n = $_ =~ /^-/ ? '_' . substr($_, 1) : $_ and not $n =~ /_(?:frmName|cmg|cmh|cmdf|cmdt|backc|ui)/i and not exists $v{$n})
7666	0	0	ref $$s{-'pcmd'}{$_} ? :
7670	0	0	if $m and $l > $m
7672	0	0	defined $v ? :
7684	0	0	substr($_[0], 0, 1) eq '-' ? :
7690	0	0	if ($i =~ /<(!DOCTYPE|html|head)/i and $`)
7693	0	0	if ($b and $i =~ /(]*>)/i)
7697	0	0	if ($opt =~ /e/i and $i =~ /]*>/i)
7699	0	0	if $i =~ m[]i
7702	0	0	if (not $i =~ /<(\%@|\%|script)\s*(language\s*=\s*|)*\s*(PerlScript|Perl|)*\s*(runat\s*=\s*Server|)*[\s>]*/i) { }
	0	0	elsif ($2 and not $3 or not $3 and $tl eq '1') { }
	0	0	elsif ($1) { }
7715	0	0	if ($i =~ m[\s*(\%>|)]i) { }
7724	0	0	if not $ts && $tc or $ts eq '%@'
7729	0	0	if ($ts eq '%') { }
	0	0	elsif ($ts eq 'SCRIPT') { }
7738	0	0	substr($_[0], 0, 1) eq '-' ? :
7742	0	0	unless ($f =~ m[^(/|\w:[\\/])] or -e $f)
7744	0	0	unless $u
7752	0	0	uc($ENV{'REQUEST_METHOD'} || '') ne 'POST' ? :
	0	0	ref $$s{-'httpheader'} ? :
	0	0	unless $o =~ /e/
7757	0	0	unless $c
7760	0	0	if $@
7768	0	0	unless $om
7769	0	0	unless $oc
7770	0	0	unless $od
7773	0	0	if ($$oc{-'table'} and $oa =~ /^rec/) { }
	0	0	elsif ($oa =~ /^(recForm|frmHelp)/) { }
7774	0	0	if ($oa =~ /^recList/) { }
	0	0	elsif ($oa =~ /^recQBF/ or $og =~ /^rec(?:List|QBF)/) { }
	0	0	elsif ($oa =~ /^rec(?:Read)/) { }
7782	0	0	if (ref $$oc{-'key'})
7784	0	0	if ($m and $$m{-'key'})
7787	0	0	if (exists $$oc{-'key'}{$e}) { }
7794	0	0	if $f
7798	0	0	if defined $$oc{$_}
7803	0	0	ref $$om{-'recRead'} eq 'HASH' ? :
7807	0	0	if $oa =~ /^rec(?:New|Form|Ins|Upd|Del)/
7809	0	0	if $oa =~ /^rec(?:Form|Ins|Upd|Del)/
7815	0	0	if defined $$oc{$_}
7816	0	0	$oa =~ /^rec(?:Upd|Del)/ ? :
7820	0	0	if $oa =~ /^rec(?:Read)/ and not $$oc{-'edit'}
7823	0	0	if $oa =~ /^rec(?:Read|Ins|Upd)/ and $$oc{-'edit'}
7826	0	0	if $oa =~ /^rec(?:New)/
7828	0	0	if $$oc{-'edit'} and $oa =~ /^rec(?:Ins|Upd|Del)/
7832	0	0	if defined $$oc{$_}
7836	0	0	if ref $$om{-'recRead'} eq 'HASH' and $oa =~ /^rec(?:Ins|Upd)/
7839	0	0	if $$oc{-'edit'} and $oa =~ /^rec(?:Read|New)/
7841	0	0	if $oa =~ /^rec(?:Ins|Upd)/
7843	0	0	if $oa =~ /^rec(?:New|Form|Ins|Upd|Read)/
7858	0	0	unless $on
7860	0	0	$on ? :
	0	0	$on ? :
	0	0	$on ? :
	0	0	$on ? :
	0	0	$on ? :
	0	0	$on ? :
	0	0	$s->cgiHook('frmHelp') ? :
	0	0	$s->cgiHook('recFormQ') ? :
	0	0	$s->cgiHook('recOp') ? :
	0	0	ref $$s{-'htmlstart'} && $$s{-'htmlstart'}{-'class'} ? :
	0	0	$$s{-'pcmd'}{-'xml'} ? :
7880	0	0	uc($ENV{'REQUEST_METHOD'} || '') ne 'POST' ? :
	0	0	ref $$s{-'httpheader'} ? :
	0	0	$$s{-'pcmd'}{-'xml'} ? :
7923	0	0	if $om
7925	0	0	($$s{-'pcmd'} && $$s{-'pcmd'}{-'cmd'} || '') eq 'frmHelp' ? :
7926	0	0	$v ? :
7935	0	0	substr($_, 0, 1) eq '-' ? :
	0	0	defined $$s{-'pcmd'}{$_} && $$s{-'pcmd'}{$_} ne '' ? :
7947	0	0	$$s{-'c'}{-'httpheader'} ? :
	0	0	$$s{-'pcmd'}{-'style'} ? :
	0	0	ref $$s{-'xmlstart'} ? :
	0	0	$$s{-'pcmd'}{-'refresh'} ? :
	0	0	$s->cgiHook('recFormRWQ') && $$s{-'pcmd'}{-'edit'} ? :
	0	0	$$s{-'pcmd'}{-'frame'} ? :
	0	0	ref $$s{-'htmlstart'} ? :
	0	0	$$s{-'pcmd'}{-'style'} ? :
	0	0	$$s{-'pcmd'}{-'xml'} ? :
	0	0	$$s{-'pcmd'}{-'refresh'} ? :
	0	0	$$s{-'pcmd'}{-'xml'} ? :
7958	0	0	if *warningsToBrowser{'CODE'}
7965	0	0	if ($$s{-'pcmd'}{-'xml'}) { }
7973	0	0	$$s{-'pcmd'}{-'frame'} ? :
	0	0	!($$s{-'c'}{-'jswload'} && grep({$_ =~ /'BASE'/ if $_ =~ /\.target/;} @{$$s{-'c'}{-'jswload'};})) ? :
	0	0	$$s{-'c'}{-'search'} =~ /^\?/ ? :
	0	0	$$s{-'pcmd'}{-'search'} && $$s{-'c'}{-'search'} ? :
7994	0	0	unless $_[0]{-'c'}{-'jswload'}
8001	0	0	if $#_
8002	0	0	unless $_[0]{-'c'}{-'jswload'}
8013	0	0	if $$s{-'pcmd'}{-'xml'} or $$s{-'pcmd'}{-'print'}
8014	0	0	unless $on
8016	0	0	ref $$s{-'pcmd'}{"-$_"} ? :
	0	0	!defined($$s{-'pcmd'}{"-$_"}) ? :
	0	0	!defined($$s{-'pcmd'}{"-$_"}) || $$s{-'pcmd'}{"-$_"} eq '' && !($_ =~ /^(?:qkey|qwhere|qurole)$/) ? :
8020	0	0	$$s{-'pcmd'}{-'cmg'} ne 'recQBF' ? :
8042	0	0	if $$s{-'pcmd'}{-'xml'} or $$s{-'pcmd'}{-'print'}
8043	0	0	unless $on
8045	0	0	unless $om
8053	0	0	$$s{-'c'}{-'htmlclass'} ? :
8059	0	0	if ($$s{-'logo'}) { }
	0	0	elsif ($$s{-'icons'}) { }
8063	0	0	$$s{-'c'}{-'search'} ? :
8066	0	0	$$c{-'frame'} ? :
	0	0	$$c{-'frame'} ? :
	0	0	$g ne 'recList' ? :
8072	0	0	if ($s->uguest and $$s{-'login'})
8076	0	0	if ($g eq 'recList') { }
	0	0	elsif ($g eq 'recQBF') { }
	0	0	elsif ($g eq 'recDel') { }
	0	0	elsif ($s->cgiHook('recOp')) { }
8078	0	0	unless $$s{-'menuchs'}
8081	0	0	!$$c{-'frame'} || $$c{-'frame'} =~ /^(?:TOP|BOTTOM)$/ ? :
	0	0	if $$s{-'menuchs'}
8088	0	0	exists $$c{-'frmLso'} ? :
	0	0	ref $$om{-'frmLso'} eq 'CODE' ? :
	0	0	if $$om{-'frmLso'}
8091	0	0	if $$s{-'menuchs'}
8093	0	0	if $$s{-'menuchs1'}
8095	0	0	if $$s{-'menuchs'}
8099	0	0	ref $_ eq 'HASH' ? :
	0	0	!ref($_) ? :
	0	0	if ($s->uguest) { }
	0	0	elsif ($$om{-'recNew'} or $$om{-'recForm'} or $on and grep {(!ref($_) ? $_ : (ref $_ eq 'HASH' ? $$_{-'val'} : $$_[0])) =~ /^\Q$on\E\+/;} @{[] unless $$s{-'menuchs1'} or $$s{-'menuchs'};}) { }
	0	0	elsif ($$om{-'table'} and not $$om{-'field'} and $$s{-'table'}{$$om{-'table'}} and not $$s{-'table'}{$$om{-'table'}}{-'ixcnd'} and do { my $on = $$om{-'table'}; grep {(!ref($_) ? $_ : (ref $_ eq 'HASH' ? $$_{-'val'} : $$_[0])) =~ /^\Q$on\E\+/;} @{[] unless $$s{-'menuchs1'} or $$s{-'menuchs'};} }) { }
8101	0	0	unless $$s{-'menuchs1'} or $$s{-'menuchs'}
8114	0	0	ref $_ eq 'HASH' ? :
	0	0	!ref($_) ? :
	0	0	unless $$s{-'menuchs1'} or $$s{-'menuchs'}
8136	0	0	$e && $n ? :
8139	0	0	$e && $n ? :
8142	0	0	unless $n
8144	0	0	unless $n or $e
8146	0	0	unless $n or $e
8148	0	0	if not $n || $e and $$ot{-'rvcActPtr'} || $$s{-'rvcActPtr'}
8151	0	0	if not $n || $e and $ea
8153	0	0	if $e
8154	0	0	if $e and not $n
8155	0	0	unless $n or $e or $s->uguest
8159	0	0	if $e
8160	0	0	if not $n and $ea and not ref $ea && $$ea{-'recDel'}
8163	0	0	if ($a ne 'frmHelp')
8185	0	0	defined $$c{-'qkey'} ? :
	0	0	(defined $$c{-'qkey'} ? $$c{-'qkey'} : $$om{-'query'} && $$om{-'query'}{-'qkey'}) ? :
	0	0	$$c{-'qkeyord'} =~ /^-*[db]/ ? :
	0	0	$$c{-'qkeyord'} ? :
	0	0	$$c{-'qwhere'} =~ m(^(?:\[\[\]\]|/\*\*/)+(.*)) ? :
	0	0	!$$c{-'qwhere'} ? :
	0	0	$$c{-'qjoin'} =~ /^\s*(?:CROSS|JOIN|INNER|STRAIGHT_JOIN|LEFT|NATURAL|RIGHT|OUTER)\b/i ? :
	0	0	$$c{-'qjoin'} ? :
	0	0	$$c{-'qurole'} ? :
	0	0	$$c{-'quname'} ? :
	0	0	$$c{-'qftext'} ? :
	0	0	$$c{-'qversion'} ? :
	0	0	$$c{-'qorder'} =~ /^-[db]/ ? :
	0	0	!($$c{-'qorder'} =~ /^-/) ? :
	0	0	$$c{-'qorder'} ? :
	0	0	$g ne 'recList' ? :
8209	0	0	unless $$om{-'frmLso1C'}
8210	0	0	$g eq 'recList' && ($$om{-'frmLso1C'} || $$ot{-'frmLso1C'} && !exists($$om{-'frmLso1C'})) ? :
8214	0	0	ref $$s{-'banner'} ? :
	0	0	$$s{-'banner'} ? :
	0	0	$mc ? :
	0	0	!$mc ? :
	0	0	$e ? :
	0	0	!$$c{-'refresh'} ? :
	0	0	!$$s{-'icons'} ? :
8215	0	0	$v ? :
8253	0	0	$_[0]{-'c'}{-'htmlclass'} ? :
8256	0	0	($ENV{'HTTP_USER_AGENT'} || '') =~ /MSIE/ ? :
8259	0	0	if (not $_[0]{-'icons'}) { }
	0	0	elsif ($_[1] =~ /^
	0	0	elsif ($_[1] eq 'logo') { }
	0	0	elsif ($_[1] eq 'login') { }
	0	0	elsif ($_[1] eq 'schpane') { }
	0	0	elsif ($_[1] eq 'home') { }
	0	0	elsif ($_[1] eq 'back') { }
8260	0	0	if ($_[1] =~ /^
	0	0	elsif ($_[1] eq 'logo') { }
	0	0	elsif ($_[1] eq 'login') { }
	0	0	elsif ($_[1] eq 'back') { }
8265	0	0	ref $_[0]{-'logo'} eq 'CODE' ? :
8272	0	0	!$_[3] || $_[3] < 2 ? :
8294	0	0	ref $_[0]{-'logo'} eq 'CODE' ? :
	0	0	$_[0]{-'logo'} ? :
8303	0	0	$tdb ? :
	0	0	$tdb ? :
8316	0	0	$fr ? :
8318	0	0	$fr ? :
	0	0	$fr ? :
8329	0	0	$_[0]{-'pcmd'}{-'frame'} ? :
8333	0	0	$tdb ? :
	0	0	$tdb ? :
8343	0	0	($ENV{'HTTP_USER_AGENT'} || '') =~ /MSIE/ ? :
	0	0	!$_[3] || $_[3] < 2 ? :
8355	0	0	!$jo ? :
8356	0	0	$tdb ? :
	0	0	$jo ? :
	0	0	$tdb ? :
8370	0	0	ref $_[2] ? :
	0	0	!$_[2] ? :
	0	0	defined $_[2] && !$_[2] ? :
8377	0	0	$_[1] =~ /^(?:recNew)$/ && $hl =~ /_proto=/ ? :
	0	0	$_[1] =~ /^(?:recRead|recPrint|recXML|recHist|recEdit|recNew|frmHelp)$/ ? :
	0	0	!$hl ? :
8383	0	0	$tdb ? :
	0	0	$tdb ? :
	0	0	$tdb ? :
	0	0	!$hl ? :
8404	0	0	$_[0]{-'c'}{-'htmlclass'} ? :
8408	0	0	($_[0]{-'pcmd'}{'-' . $_[1]} || '') eq '-all' ? :
	0	0	$_[1] eq 'frmLso' ? :
	0	0	$_[1] eq 'frmName' ? :
8451	0	0	/([+&.^]*)$/l ? :
	0	0	!$_ ? :
	0	0	!($_[1] =~ /^frmName/l) ? :
	0	0	ref $_ eq 'ARRAY' ? :
	0	0	!ref($_) ? :
8453	0	0	if $o
8454	0	0	if ref $o
8455	0	0	!$f1 && $x && substr($x, 0, 1) eq '+' ? :
8463	0	0	if not $_ && $n and $_[1] =~ /^frmName/l
8466	0	0	$i && $n eq $i ? :
	0	0	$n eq '' || $l =~ /^[-]+/l ? :
8477	0	0	ref $_ eq 'ARRAY' ? :
	0	0	!ref($_) ? :
	0	0	if (not !ref($_) ? $_ : (ref $_ eq 'ARRAY' ? $$_[0] : $_) and $li) { }
8480	0	0	ref $v eq 'ARRAY' ? :
8486	0	0	$_[0]{-'icons'} ? :
	0	0	$_[0]{-'menuchs1'} && $_[1] eq 'frmName' ? :
	0	0	$_[1] eq 'frmName' ? :
	0	0	$_[1] eq 'frmName1' ? :
	0	0	$_[1] eq 'frmLso' ? :
	0	0	$li ? :
	0	0	ref $li eq 'ARRAY' ? :
	0	0	!$li ? :
	0	0	$i eq '' || $i =~ /^[-]+/l ? :
	0	0	$_[1] =~ /^frmName/l ? :
	0	0	$i eq '' ? :
	0	0	$_[0]{-'icons'} ? :
8509	0	0	unless ($_[0]{-'menuchs'})
8511	0	0	if ($_[0]{-'form'})
8513	0	0	if $_ ne 'default'
8519	0	0	if ($_[0]{-'table'})
8521	0	0	unless ref $_[0]{-'table'}{$_} ne 'HASH'
8528	0	0	if ($_[0]{-'menuchs'} and not $_[0]->uguest)
8532	0	0	($m = $_[0]{-'table'}{$$_[0]}) ? :
	0	0	($m = $_[0]{-'form'}{$$_[0]}) ? :
8539	0	0	if (@{$_[0]{-'menuchs'};} < 6) { }
8542	0	0	ref $_[0]{-'menuchs1'}[0] eq 'HASH' ? :
	0	0	!ref($_[0]{-'menuchs1'}[0]) ? :
	0	0	if ($_[0]{-'menuchs1'} and !ref($_[0]{-'menuchs1'}[0]) ? $_[0]{-'menuchs1'}[0] : (ref $_[0]{-'menuchs1'}[0] eq 'HASH' ? $_[0]{-'menuchs1'}[0]{-'val'} : $_[0]{-'menuchs1'}[0][0]))
8557	0	0	unless $m
8559	0	0	$$m{-'table'} ? :
	0	0	exists $$m{-'null'} ? :
8564	0	0	if (($c && $$c{-'cmg'} || '') eq 'recNew')
8568	0	0	if ref $f ne 'HASH'
8569	0	0	defined $$f{-'null'} && $$v{$$f{-'fld'}} eq $$f{-'null'} ? :
	0	0	$$v{$$f{-'fld'}} eq $mn ? :
	0	0	defined $mn ? :
	0	0	exists $$f{-'null'} ? :
	0	0	!defined($$v{$$f{-'fld'}}) ? :
	0	0	if exists $$v{$$f{-'fld'}} and !defined($$f{-'flg'}) || $$f{-'flg'} =~ /[aeu]/
8580	0	0	if ($cc =~ /^rec(?:Ins|Upd)/)
8581	0	0	if $$f{-'flg'} and $$f{-'flg'} =~ /[m]/ and !defined($$r{$$f{-'fld'}}) || $$r{$$f{-'fld'}} eq ''
8586	0	0	if ($$f{-'chk'})
8589	0	0	if ($@) { }
8595	0	0	if scalar @xx
8597	0	0	%$r ? :
8604	0	0	unless $m
8605	0	0	unless $c
8606	0	0	unless $d
8607	0	0	if ($$c{-'cmg'} || '') eq 'recDel'
8611	0	0	$em || $qm ? :
	0	0	$qm ? :
	0	0	$c && $$c{-'print'} ? :
8614	0	0	$$m{-'table'} ? :
8619	0	0	$$c{-'xml'} ? :
8624	0	0	if ($qm)
8626	0	0	unless $d and %$d
8627	0	0	ref $$d{$_} ? :
8631	0	0	if $$c{-'frmLso'} and $$c{-'frmLso'} =~ /^-/
8634	0	0	ref $$c{-'frmLso'} eq 'ARRAY' ? :
	0	0	ref $$c{-'frmLso'} eq 'ARRAY' ? :
	0	0	$$c{-'frmLso'} ? :
	0	0	$qm && $$c{-'frmLso'} ? :
	0	0	unless $$c{-'xml'}
8664	0	0	$$c{-'hist'} ? :
8668	0	0	unless $rhe
8669	0	0	if ($$c{-'hist'})
8684	0	0	unless $$m{-'field'} or $$m{-'query'} and $$m{-'query'}{-'data'}
8689	0	0	if ($$c{-'xml'}) { }
	0	0	elsif ($$c{-'hist'}) { }
	0	0	elsif ($f eq '') { }
	0	0	elsif ($f =~ /^(\n*)(\t*)$/) { }
	0	0	elsif ($f eq "\f") { }
	0	0	elsif ($f eq '