# ---------------------------------------------------------------------------
#     PVERLIB.PL
#
#      Ver: 8_4_8
# ---------------------------------------------------------------------------
# SSI Web - Web Surveying System
# Copyright Sawtooth Software, Inc. 1998-2015. All rights reserved.
# Orem, UT  USA  (801) 477-4700
#
# Any modification of this script will be considered violation of
# copyright (with the exception of the first line which can be
# modified to reflect the correct path to the Perl interpreter)
#
# Any use of this script or its code for purposes outside of
# the systems created by Sawtooth Software is prohibited.
# ---------------------------------------------------------------------------
 use strict; package pverlib8_4_8; sub _cec { my ($__efa, $__efb) = @_; $authlib8_4_8::_bym = 1; my ($__efc, $__efd, $__efe, $__eff) = (0) x 4; my $__eay = ""; my ($__eev,$__efg,$__efh,$__eca,$__efi) = (0) x 5; my $__eaz = ""; my $__eba = 0; my $__ebb = 0; my $__ebc = 0; my $__ebd = 0; my $__ebe = 0; my $__ebf = 0; my $__ebg = 0; my $__ebh = 0; $__ebd = $authlib8_4_8::_bzj->[$__efa - 1]; $__ebe = $__ebd->{'_g'}; $__ebb = @{$__ebe}; if (exists($__ebd->{'_a'})) { if (!exists($ciwlib8_4_8::_bkl{'remove_rand'})) { my $__ebi = 0; ($__eba, $__ebi) = ciwlib8_4_8::_bjg($__ebd, 0, $__efb, $__ebb, $__efa); } } for($__efc = 0; $__efc < $__ebb; $__efc++) { if ($__eba) { $__eev = $__eba->[$__efc]; } else { $__eev = $__efc; } $__ebf = $__ebe->[$__eev]; $__eay = $__ebf->{'_bgt'}; $__efh = $__ebf->{'_bgu'}; $authlib8_4_8::_byf = $__eay; if ($__efh == &authlib8_4_8::_CCA || $__efh == &authlib8_4_8::_CCB) { my $__ebj = authlib8_4_8::_bpl($__eay, 1); if (exists $__ebj->{'_hn'}) { if (exists $__ebj->{'_hn'}) { my $__ebk = 0; my $__ebl = 0; my $__ebm = 0; ($__eay, $__ebk, $__ebl, $__ebm) = acalib8_4_8::_cew($__ebj, $__eay, $__efh, 0); } } } if (!exists($authlib8_4_8::_bzi{"hid_q_" . $__eay}) && ($__efa != 1)) { next; } $__efg = $__ebf->{'_w'}; seek $authlib8_4_8::_byh, $__efg, 0; $__ebg = authlib8_4_8::_bps(1); if (exists $__ebg->{'_bfa'}) { $__ebd->{'_bfa'} .= "\n" . $__ebg->{'_bfa'}; } if ($__efh != &authlib8_4_8::_CBY && $__efh != &authlib8_4_8::_CBZ && $__efh != &authlib8_4_8::_CCM) { $__efd++; if ($__efh == &authlib8_4_8::_CBU) { my $__ebn = $__ebg; if (exists $__ebn->{'_vq'}) { my $__ebo = @{$__ebn->{'_vq'}->{'_vr'}}; _cei($__eay,$__ebn->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } $__eca = $authlib8_4_8::_bzi{$__eay}; $__efi = _ceq($__eca); if ($__efi) { ciwlib8_4_8::_big($__eay,$__ebn->{'_bds'},'_ey',$__efd,1,$__ebo,0); last; } if ($__eca < 1 || $__eca > $__ebo) { ciwlib8_4_8::_big($__eay,$__ebn->{'_bds'},'_ex',$__efd,1,$__ebo,0); last; } } elsif(exists $__ebn->{'_uu'}) { if ($__ebn->{'_uu'}->{'_bgu'} eq "numeric") { _cei($__eay,$__ebn->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } $__eca = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__eay}); $__efi = authlib8_4_8::_bsk($__eca, 0); if ($__efi) { ciwlib8_4_8::_big($__eay,$__ebn->{'_bds'},'_ey',$__efd,$__ebn->{'_bgp'},$__ebn->{'_aop'},0); last; } my $__ebp = $__ebn->{'_uu'}->{'_bgp'}; my $__ebq = $__ebn->{'_uu'}->{'_aop'}; if (($__eca < $__ebp) || ($__eca > $__ebq)) { ciwlib8_4_8::_big($__eay,$__ebn->{'_bds'},'_ex',$__efd,$__ebp,$__ebq,0); last; } } } } elsif ($__efh == &authlib8_4_8::_CBV) { my $__ebr = $__ebg; my $__ebs = ""; my $__ebt = authlib8_4_8::_bss($__ebr->{'_bcs'}); if ($__ebr->{'_bgu'} eq "radio") { if (exists($__ebr->{'_bdq'})) { _cei($__eay,$__ebr->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } } if (exists($authlib8_4_8::_bzi{$__eay}) && defined($authlib8_4_8::_bzi{$__eay})) { $__eca = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__eay}); $__ebs = $__eay . "_" . $__eca . "_other"; $__ebh = _cee($__ebr, $__ebs, $__efd); if (!$__ebh) { last; } } if ($authlib8_4_8::_bzi{$__eay}) { if (!_cer($authlib8_4_8::_bzi{$__eay}, $__ebt)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eay . "'.", ""); } } } elsif ($__ebr->{'_bgu'} eq "check") { _cej($__ebr, $__eay,$__efd); if ($ciwlib8_4_8::_bkn) { last; } } else { $__eca = $authlib8_4_8::_bzi{$__eay}; if ((exists($__ebr->{'_bdq'})) && ($__eca eq "")) { ciwlib8_4_8::_big($__eay,$__ebr->{'_bds'},'_eu',$__efd,0,0,0); last; } if ($__eca) { if (!_cer($__eca, $__ebt)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eay . "'.", ""); } } } } elsif ($__efh == &authlib8_4_8::_CBW) { my $__ebu = $__ebg; if (exists($__ebu->{'_bdq'})) { _cei($__eay,$__ebu->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } } $__eca = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__eay}); if ($__eca ne "") { $__efi = authlib8_4_8::_bsk($__eca, (exists $__ebu->{'_aoe'})); if ($__efi) { ciwlib8_4_8::_big($__eay,$__ebu->{'_bds'},'_ey',$__efd,$__ebu->{'_bgp'},$__ebu->{'_aop'},0); last; } my $__ebv = ""; if (exists $__ebu->{'_aod'}) { $__ebv = $__ebu->{'_aod'}; } $__eca =~ s/,/\./; $__ebu->{'_bgp'} =~ s/,/\./; $__ebu->{'_aop'} =~ s/,/\./; $__ebv =~ s/,/\./; authlib8_4_8::_btm($__ebu); if (($__eca < $__ebu->{'_bgp'} || $__eca > $__ebu->{'_aop'})) { if($__ebv ne "" && $__eca == $__ebv) { } else { ciwlib8_4_8::_big($__eay,$__ebu->{'_bds'},'_ex',$__efd,$__ebu->{'_bgp'},$__ebu->{'_aop'},0); last; } } } } elsif ($__efh == &authlib8_4_8::_CBX) { my $__ebw = $__ebg; if (exists($authlib8_4_8::_bzi{$__eay}) && defined($authlib8_4_8::_bzi{$__eay})) { $__eca = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__eay}); } if($__ebw->{'_bgp'} > 0) { _cei($__eay,$__ebw->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } if (length($__eca) < $__ebw->{'_bgp'}) { ciwlib8_4_8::_big($__eay,$__ebw->{'_bds'},'_ez',$__efd,$__ebw->{'_bgp'}, $__ebw->{'_aop'},0); last; } } if (length($__eca) > $__ebw->{'_aop'}) { ciwlib8_4_8::_big($__eay,$__ebw->{'_bds'},'_fa',$__efd,$__ebw->{'_bgp'}, $__ebw->{'_aop'},0); last; } } elsif ($__efh == &authlib8_4_8::_CCA) { my $__ebx = 0; my $__eby = $__ebg; my $__ebz = ""; if (exists $__eby->{'_bds'}) { $__ebz = $__eby->{'_bds'}; } $__eaz = "hid_" . $__eay . "_levels"; my $__ebo = @{$__eby->{'_vq'}->{'_vr'}}; if (exists $authlib8_4_8::_bzi{$__eaz}) { $__ebx = $authlib8_4_8::_bzi{$__eaz}; for ($__efe = 0; $__efe < $__ebx; $__efe++) { $__eaz = $__eay . "_" . ($__efe+1); _cei($__eaz, $__ebz, $__efd); if ($ciwlib8_4_8::_bkn) { last; } my $__eca = $authlib8_4_8::_bzi{$__eaz}; if ($__eca < 1 || $__eca > $__ebo) { ciwlib8_4_8::_big($__eay,$__ebz,'_ex',$__efd,1,$__ebo,0); last; } } if ($ciwlib8_4_8::_bkn) { last; } } } elsif ($__efh == &authlib8_4_8::_CCB) { my $__ecb = $__ebg; my $__ebz = ""; if (exists $__ecb->{'_bds'}) { $__ebz = $__ecb->{'_bds'}; } my $__ebo = @{$__ecb->{'_vq'}->{'_vr'}}; _cei($__eay,$__ebz,$__efd); if ($ciwlib8_4_8::_bkn) { last; } my $__eca = $authlib8_4_8::_bzi{$__eay}; if ($__eca < 1 || $__eca > $__ebo) { ciwlib8_4_8::_big($__eay,$__ebz,'_ex',$__efd,1,$__ebo,0); last; } } elsif ($__efh == &authlib8_4_8::_CCC) { my $__ecc = $__ebg; my $__ebz = ""; if (exists $__ecc->{'_bds'}) { $__ebz = $__ecc->{'_bds'}; } my $__ebo = @{$__ecc->{'_vq'}->{'_vr'}}; _cei($__eay,$__ebz,$__efd); if ($ciwlib8_4_8::_bkn) { last; } my $__eca = $authlib8_4_8::_bzi{$__eay}; if ($__eca < 1 || $__eca > $__ebo) { ciwlib8_4_8::_big($__eay,$__ebz,'_ex',$__efd,1,$__ebo,0); last; } } elsif ($__efh == &authlib8_4_8::_CCD) { my $__ecd = $__ebg; my $__ebz = ""; if (exists $__ecd->{'_bds'}) { $__ebz = $__ecd->{'_bds'}; } my $__ece = $__ecd->{'_xa'}; my $__ecf = $__ecd->{'_mk'}; my $__ecg = ""; my $__ech = ""; if ($__eay =~ m/(.*?_Calibration)/i) { $__ech = $1; } if ($__ece == 1) { $__ecf = 1; } for ($__efe = 1; $__efe <= $__ecf; $__efe++) { if ($__ece == 1) { $__ecg = $__eay; } else { $__ecg = $__ech . $__efe; } if (exists $authlib8_4_8::_bzi{$__ecg}) { _cei($__ecg, $__ebz, $__efd); if ($ciwlib8_4_8::_bkn) { last; } else { $__eca = $authlib8_4_8::_bzi{$__ecg}; $__efi = _ceq($__eca); if ($__efi) { ciwlib8_4_8::_big($__ecg,$__ebz,'_ey',$__efd,$__ecd->{'_bgp'},$__ecd->{'_aop'},0); last; } elsif (($__eca < $__ecd->{'_bgp'} || $__eca > $__ecd->{'_aop'})) { ciwlib8_4_8::_big($__ecg,$__ebz,'_ex',$__efd,$__ecd->{'_bgp'},$__ecd->{'_aop'},0); last; } } } } if ($ciwlib8_4_8::_bkn) { last; } } elsif (($__efh == &authlib8_4_8::_CCE) || ($__efh == &authlib8_4_8::_CCF)) { my $__eci = $__ebg; my $__ecj = 0; my $__eck = ""; my $__ecf = $__eci->{'_os'}; if (exists $__eci->{'_pm'}) { $__ecf++; } if (exists $authlib8_4_8::_bzi{"hid_Custom_CBC_" . $__eay}) { $__efd--; if (exists $authlib8_4_8::_bzi{"hid_Custom_CBC_" . $__eay . "_No_Verification"}) { next; } $__eay = $authlib8_4_8::_bzi{"hid_Custom_CBC_" . $__eay}; $__ecj = 1; } if (exists $__eci->{'_bds'}) { $__eck = $__eci->{'_bds'}; } if (exists $__eci->{'_rf'}) { if ($__ecj) { $__efh = &authlib8_4_8::_CCG; } my $__ecl = $__eci->{'_rf'}; my $__ecm = 0; $__ecm = authlib8_4_8::_btp($__ecf); $__ecl->{'_bkv'} = $__ecm; $__ecl->{'_bdq'} = 1; my ($__efj, $__efk) = _cef($__ecl,$__eay,$__efh,$__efd); if ($__efj == 1) { ciwlib8_4_8::_big($__eay,$__eck,'_fh',$__efd,0,$__efk,$__ecl); return 0; } elsif ($__efj == 2) { ciwlib8_4_8::_big($__eay,$__eck,'_eu',$__efd,0,0,0); return 0; } elsif ($__efj == 3) { ciwlib8_4_8::_big($__eay,$__eck,'_ey',$__efd,0,$__ecl->{'_akj'},0); return 0; } elsif ($__efj == 4) { ciwlib8_4_8::_big($__eay,$__eck,'_ex',$__efd,0,$__ecl->{'_akj'},0); return 0; } } elsif (exists $__eci->{'_rr'}) { my $__ecn = "_b"; my $__eco = "_w"; if($__ecj) { $__ecn = "best"; $__eco = "worst"; } _cei($__eay . $__ecn, $__eck, $__efd); if ($ciwlib8_4_8::_bkn) { last; } _cei($__eay . $__eco, $__eck, $__efd); if ($ciwlib8_4_8::_bkn) { last; } _ceh($__eay, $__ecn, $__eco, $__eck, $__efd); if ($ciwlib8_4_8::_bkn) { last; } my $__ecp = $authlib8_4_8::_bzi{$__eay . $__ecn}; my $__ecq = $authlib8_4_8::_bzi{$__eay . $__eco}; if (1 > $__ecp || $__ecp > $__ecf) { ciwlib8_4_8::_big($__eay,$__eck,'_ex',$__efd,1,$__ecf,0); last; } if (1 > $__ecq || $__ecq > $__ecf) { ciwlib8_4_8::_big($__eay,$__eck,'_ex',$__efd,1,$__ecf,0); } } else { _cei($__eay,$__eck,$__efd); if ($ciwlib8_4_8::_bkn) { last; } my $__eca = $authlib8_4_8::_bzi{$__eay}; if (1 > $__eca || $__eca > $__ecf) { ciwlib8_4_8::_big($__eay,$__eck,'_ex',$__efd,1,$__ecf,0); } } if ($ciwlib8_4_8::blnGlobalVerifyErrorFlag eq "" && exists $__eci->{'_pp'}) { my $__ecr = ""; my $__ecs = ""; if (exists $__eci->{'_pp'}->{'_bds'}) { $__ecs = $__eci->{'_pp'}->{'_bds'}; } if ($__ecj) { if ($__eay =~ m/(.*?)_(.*?)/) { $__ecr = $1; } } else { $__ecr = $__eay; } $__ecr .= "_none"; _cei($__ecr,$__ecs,$__efd); if ($ciwlib8_4_8::_bkn) { last; } my $__eca = $authlib8_4_8::_bzi{$__ecr}; if ($__eca != 1 && $__eca != 2) { ciwlib8_4_8::_big($__eay,$__ecs,'_ex',$__efd,1,2,0); } } if ($ciwlib8_4_8::_bkn) { last; } } elsif ($__efh == &authlib8_4_8::_CCU) { my $__ebx = 0; my $__ect = $__ebg; my $__ebz = ""; if (exists $__ect->{'_bds'}) { $__ebz = $__ect->{'_bds'}; } $__eaz = "hid_" . $__eay . "_levels"; my $__ebo = @{$__ect->{'_vq'}->{'_vr'}}; if (exists $authlib8_4_8::_bzi{$__eaz}) { $__ebx = $authlib8_4_8::_bzi{$__eaz}; for ($__efe = 0; $__efe < $__ebx; $__efe++) { $__eaz = $__eay . "_" . ($__efe+1); _cei($__eaz, $__ebz, $__efd); if ($ciwlib8_4_8::_bkn) { last; } my $__eca = $authlib8_4_8::_bzi{$__eaz}; if ($__eca < 1 || $__eca > $__ebo) { ciwlib8_4_8::_big($__eay,$__ebz,'_ex',$__efd,1,$__ebo,0); last; } } if ($ciwlib8_4_8::_bkn) { last; } } } elsif ($__efh == &authlib8_4_8::_CCG || $__efh == &authlib8_4_8::_CCH) { my ($__efl) = 0; my ($__efe) = 0; my ($__efm) = ""; my ($__efn) = ""; my ($__efo) = ""; my $__ecu = 0; my %__ecv = (); my %__ecw = (); my $__ecx = 0; my $__ecy = 0; my $__ecz = 0; my $__eda = 0; my $__edb = ""; my $__edc = 0; my $__edd = 0; my $__ede = ""; my $__edf = ""; my $__edg = 0; if($__efh == &authlib8_4_8::_CCH) { my @__edh = (); my @__edi = (); $__eaz = "hid_row_list_" . $__eay; if ((exists $authlib8_4_8::_bzi{$__eaz}) && (defined $authlib8_4_8::_bzi{$__eaz})) { @__edh = split(",", $authlib8_4_8::_bzi{$__eaz}); $__eaz = "hid_col_list_" . $__eay; if ((exists $authlib8_4_8::_bzi{$__eaz}) && (defined $authlib8_4_8::_bzi{$__eaz})) { $__edg = 1; @__edi = split(",", $authlib8_4_8::_bzi{$__eaz}); $__efl = authlib8_4_8::_bsf($__ebg, 0, \@__edh, \@__edi); my $__edj = @__edh; for ($__efe = 0; $__efe < $__edj; $__efe++) { $__ede = $__eay . "_r" . $__edh[$__efe] . "_other"; if ((exists $authlib8_4_8::_bzi{$__ede}) && (defined $authlib8_4_8::_bzi{$__ede})) { if ((exists $authlib8_4_8::_bzi{"hid_" . $__ede}) && (defined $authlib8_4_8::_bzi{"hid_" . $__ede})) { $__ecz = 1; $__ecv{$__edh[$__efe]} = $__ede; } } } my $__edk = @__edi; for ($__efe = 0; $__efe < $__edk; $__efe++) { $__ede = $__eay . "_c" . $__edi[$__efe] . "_other"; if ((exists $authlib8_4_8::_bzi{$__ede}) && (defined $authlib8_4_8::_bzi{$__ede})) { if ((exists $authlib8_4_8::_bzi{"hid_" . $__ede}) && (defined $authlib8_4_8::_bzi{"hid_" . $__ede})) { $__ecz = 1; $__ecw{$__edi[$__efe]} = $__ede; } } } } } } else { $__efl = $__ebg->{'_any'}; $__edg = 1; } if ($__edg) { my $__edl = @{$__efl}; for($__efe = 0; $__efe < $__edl; $__efe++) { $__ecu = $__efl->[$__efe]; $__efo = $__ecu->{'_bgt'}; $__efn = $__ecu->{'_bds'}; $__efm = ref($__ecu); if ($__efm eq "ComboVar") { if(exists $authlib8_4_8::_bzi{$__efo}) { if (exists($__ecu->{'_bdq'})) { _cei($__efo,$__efn,$__efd); if ($ciwlib8_4_8::_bkn) { return 0; } $__eca = $authlib8_4_8::_bzi{$__efo}; if ($__eca eq "") { ciwlib8_4_8::_big($__efo,$__efn,'_eu',$__efd,0,0,0); return 0; } } if ($__efh == &authlib8_4_8::_CCH && $authlib8_4_8::_bzi{$__efo}) { my $__ebt = authlib8_4_8::_bss($__ecu->{'_bcs'}); if (!_cer($authlib8_4_8::_bzi{$__efo}, $__ebt)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__efo . "'.", ""); } } } } elsif($__efm eq "OpenEndVar") { if (exists $authlib8_4_8::_bzi{$__efo}) { $__eca = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__efo}); if ($__ecu->{'_bgp'} > 0) { _cei($__efo,$__efn,$__efd); if ($ciwlib8_4_8::_bkn) { return 0; } if (length($__eca) < $__ecu->{'_bgp'}) { ciwlib8_4_8::_big($__efo,$__efn,'_ez',$__efd,$__ecu->{'_bgp'},$__ecu->{'_aop'},0); return 0; } } if (length($__eca) > $__ecu->{'_aop'}) { ciwlib8_4_8::_big($__efo,$__efn,'_fa',$__efd,$__ecu->{'_bgp'},$__ecu->{'_aop'},0); return 0; } } } elsif($__efm eq "NumericVar") { if (exists $authlib8_4_8::_bzi{$__efo}) { $__eca = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__efo}); if($__eca eq "") { if (exists($__ecu->{'_bdq'})) { _cei($__efo,$__efn,$__efd); if ($ciwlib8_4_8::_bkn) { return 0; } } } else { $__efi = authlib8_4_8::_bsk($__eca, (exists $__ecu->{'_aoe'})); if ($__efi) { ciwlib8_4_8::_big($__efo,$__efn,'_ey',$__efd,$__ecu->{'_bgp'},$__ecu->{'_aop'},0); return 0; } my $__ebv = ""; if (exists $__ecu->{'_aod'}) { $__ebv = $__ecu->{'_aod'}; } $__eca =~ s/,/\./; $__ecu->{'_bgp'} =~ s/,/\./; $__ecu->{'_aop'} =~ s/,/\./; $__ebv =~ s/,/\./; authlib8_4_8::_btm($__ecu); $__eca =~ s/,/\./; if (($__eca < $__ecu->{'_bgp'}) || ($__eca > $__ecu->{'_aop'})) { if($__ebv ne "" && $__eca == $__ebv) { } else { ciwlib8_4_8::_big($__efo,$__efn,'_ex',$__efd,$__ecu->{'_bgp'},$__ecu->{'_aop'},0); return 0; } } } } } elsif($__efm eq "CheckVar") { my $__edm = 0; my $__edn = 0; my @__edo = (); if ($__efh == &authlib8_4_8::_CCH) { @__edo = @{$__ecu->{'_bkv'}}; } else { my $__edp = $__ecu->{'_aoq'}; for ($__edm = 1; $__edm <= $__edp; $__edm++) { push @__edo, $__edm; } } my $__edq = @__edo; my $__edr = ""; my @__eds = (); my $__edt = 0; my $__edu = 0; my $__edv = 0; my $__edw = $__edq; if (exists($__ecu->{'_bgp'}) && exists($__ecu->{'_aop'})) { $__edv = $__ecu->{'_bgp'}; $__edw = $__ecu->{'_aop'}; if ($__edq < $__edw) { $__edw = $__edq; } if ($__edq < $__edv) { $__edv = $__edq; } } $__eaz = "hid_noneabove_" . $__eay; if ((exists $authlib8_4_8::_bzi{$__eaz}) && (defined $authlib8_4_8::_bzi{$__eaz})) { $__edr = $authlib8_4_8::_bzi{$__eaz}; @__eds = split(",", $__edr); } foreach $__edm (@__edo) { if ($__efh == &authlib8_4_8::_CCH) { $__eaz = $__efo; $__eaz =~ s/\*/$__edm/; } else { $__eaz = $__efo . "_" . $__edm; } if ((exists $authlib8_4_8::_bzi{$__eaz}) && (defined $authlib8_4_8::_bzi{$__eaz})) { if ($authlib8_4_8::_bzi{$__eaz} eq "1" || $authlib8_4_8::_bzi{$__eaz} == "1") { if (@__eds) { for ($__edt = 0; $__edt < @__eds; $__edt++) { if ($__edm == $__eds[$__edt]) { $__edu = 1; if ($__edv > 1) { $__edv = 1; } last; } } } $__edn++; } } if ($__efh == &authlib8_4_8::_CCH) { my $__eca = $authlib8_4_8::_bzi{$__eaz}; if ($__eca) { if ($__eca !~ m/^[0-1]$/o) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eaz . "'.", ""); } } } } my $__edx = 1; $__eaz = "hid_" . $__efo . "_count"; if (exists $authlib8_4_8::_bzi{$__eaz}) { my $__edy = $authlib8_4_8::_bzi{$__eaz}; if ($__edy == 0) { $__edx = 0; } elsif($__edy < $__edv) { $__edv = $__edy; } } if ($__edx) { if ($__edu && ($__edn > 1)) { ciwlib8_4_8::_big($__efo,$__efn,'_axu',$__efd,$__edv,$__edw,0); return 0; } elsif($__edn < $__edv) { ciwlib8_4_8::_big($__efo,$__efn,'_ev',$__efd,$__edv,$__edw,0); return 0; } elsif($__edn > $__edw) { ciwlib8_4_8::_big($__efo,$__efn,'_ew',$__efd,$__edv,$__edw,0); return 0; } } if ($__efh == &authlib8_4_8::_CCH) { foreach $__edm (@__edo) { $__eaz = $__efo; $__eaz =~ s/\*/$__edm/; my $__eca = $authlib8_4_8::_bzi{$__eaz}; if ($__eca) { if ($__eca !~ m/^[0-1]$/o) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eaz . "'.", ""); } } } } } elsif($__efm eq "RadioVar") { if (!exists $authlib8_4_8::_bzi{"hid_" . $__efo . "_missing"}) { if (exists($__ecu->{'_bdq'})) { _cei($__efo,$__efn,$__efd); if ($ciwlib8_4_8::_bkn) { return 0; } } } if ($__efh == &authlib8_4_8::_CCH) { my $__edz = 0; if ($__ebg->{'_afl'} eq "rows") { my $__eea = "hid_col_list_" . $__eay; my @__edi = map { {'_bcm' => $_ } } split(",", $authlib8_4_8::_bzi{$__eea}); $__edz = \@__edi; } else { my $__eea = "hid_row_list_" . $__eay; my @__edh = map { {'_bcm' => $_ } } split(",", $authlib8_4_8::_bzi{$__eea}); $__edz = \@__edh; } my $__eca = $authlib8_4_8::_bzi{$__efo}; if ($__eca) { if (!_cer($__eca, $__edz)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__efo . "'.", ""); } } } } elsif($__efm eq "ConsumVar") { my ($__efj, $__efk) = _cef($__ecu, $__efo, $__efh, $__efd); if ($__efj == 1) { ciwlib8_4_8::_big($__efo,$__efn,'_fh',$__efd,0,$__efk,$__ecu); return 0; } elsif ($__efj == 2) { ciwlib8_4_8::_big($__efo,$__efn,'_eu',$__efd,0,0,0); return 0; } elsif ($__efj == 3) { ciwlib8_4_8::_big($__efo,$__efn,'_ey',$__efd,0,$__ecu->{'_akj'},0); return 0; } elsif ($__efj == 4) { ciwlib8_4_8::_big($__efo,$__efn,'_ex',$__efd,0,$__ecu->{'_akj'},0); return 0; } } elsif($__efm eq "RankVar") { authlib8_4_8::_btm($__ecu); my $__eeb = _ced($__efo, $__ecu, 1, $__efd); if ($__eeb == 1) { ciwlib8_4_8::_big($__efo,$__efn,'_fe',$__efd,0,0,0); return 0; } elsif ($__eeb == 2) { ciwlib8_4_8::_big($__efo,$__efn,'_eu',$__efd,0,0,0); return 0; } elsif ($__eeb == 3) { ciwlib8_4_8::_big($__efo,$__efn,'_ey',$__efd,1,$__ecu->{'_aop'},0); return 0; } elsif ($__eeb == 4) { ciwlib8_4_8::_big($__efo,$__efn,'_ex',$__efd,1,$__ecu->{'_aop'},0); return 0; } elsif ($__eeb == 5) { ciwlib8_4_8::_big($__efo,$__efn,'_ff',$__efd,$__ecu->{'_bgp'},$__ecu->{'_aop'},0); return 0; } } if ($__ecz) { my $__edm = 0; my $__eec = 0; my $__eed = 1; my @__eee = (); my $__eef = ""; my $__eeg = 1; for ($__eec = 0; $__eec < 2; $__eec++) { if (($__efm eq "CheckVar") || ($__efm eq "RankVar") || ($__efm eq "ConsumVar")) { @__eee = @{$__ecu->{'_bkv'}}; $__eed = @__eee; } else { $__eed = 1; } for($__edm = 0; $__edm < $__eed; $__edm++) { $__eef = $__efo; if (($__efm eq "RankVar") || ($__efm eq "ConsumVar")) { $__eef = $__ecu->{'_bln'}; $__eef =~ s/\*/$__eee[$__edm]/; } elsif ($__efm eq "CheckVar") { $__eef = $__efo; $__eef =~ s/\*/$__eee[$__edm]/; } $__eda = 0; $__ede = ""; $__ecx = 0; $__ecy = 0; if ($__eef =~ m/_r(\d+)/) { $__ecx = $1; } if ($__eef =~ m/_c(\d+)/) { $__ecy = $1; } if (exists($authlib8_4_8::_bzi{$__eef}) && defined($authlib8_4_8::_bzi{$__eef})) { $__eca = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__eef}); if ($__eeg) { if (exists($__ecv{$__ecx})) { if ($__eca ne "" && $__eca ne "0") { $__eda = 1; $__ede = $__ecv{$__ecx}; } } else { if (($__ecx == 0) && ($__ecy > 0)) { if (exists($__ecv{$__eca})) { $__eda = 1; $__ede = $__ecv{$__eca}; } } } } else { if (exists($__ecw{$__ecy})) { if ($__eca ne "" && $__eca ne "0") { $__eda = 1; $__ede = $__ecw{$__ecy}; } } else { if (($__ecy == 0) && ($__ecx > 0)) { if (exists($__ecw{$__eca})) { $__eda = 1; $__ede = $__ecw{$__eca}; } } } } $__ebh = _cee($__ecu, $__ede, $__efd); if (!$__ebh) { return 0; } } } $__eeg = 0; } } } } } elsif ($__efh == &authlib8_4_8::_CCI) { my $__eeh = $__ebg; my ($__efj, $__efk) = _cef($__eeh, $__eay, $__efh, $__efd); if ($__efj == 1) { ciwlib8_4_8::_big($__eay,$__eeh->{'_bds'},'_fh',$__efd,0,$__efk,$__eeh); return 0; } elsif ($__efj == 2) { ciwlib8_4_8::_big($__eay,$__eeh->{'_bds'},'_eu',$__efd,0,0,0); return 0; } elsif ($__efj == 3) { ciwlib8_4_8::_big($__eay,$__eeh->{'_bds'},'_ey',$__efd,0,$__eeh->{'_akj'},0); return 0; } elsif ($__efj == 4) { ciwlib8_4_8::_big($__eay,$__eeh->{'_bds'},'_ex',$__efd,0,$__eeh->{'_akj'},0); return 0; } elsif ($__efj == 5) { return 0; } } elsif ($__efh == &authlib8_4_8::_CCJ) { my $__eei = $__ebg; authlib8_4_8::_btm($__eei); my $__eeb = _ced($__eay, $__eei, 0, $__efd); if ($__eeb == 1) { ciwlib8_4_8::_big($__eay,$__eei->{'_bds'},'_fe',$__efd,0,0,0); return 0; } elsif ($__eeb == 2) { ciwlib8_4_8::_big($__eay,$__eei->{'_bds'},'_eu',$__efd,0,0,0); return 0; } elsif ($__eeb == 3) { ciwlib8_4_8::_big($__eay,$__eei->{'_bds'},'_ey',$__efd,1,$__eei->{'_aop'},0); return 0; } elsif ($__eeb == 4) { ciwlib8_4_8::_big($__eay,$__eei->{'_bds'},'_ex',$__efd,1,$__eei->{'_aop'},0); return 0; } elsif ($__eeb == 5) { ciwlib8_4_8::_big($__eay,$__eei->{'_bds'},'_ff',$__efd,$__eei->{'_bgp'},$__eei->{'_aop'},0); return 0; } elsif ($__eeb == 6) { return 0; } } elsif ($__efh == &authlib8_4_8::_CCL) { my $__eej = $__ebg; if (exists $authlib8_4_8::_bzi{"hid_Custom_MaxDiff_" . $__eay}) { $__efd--; if (exists $authlib8_4_8::_bzi{"hid_Custom_MaxDiff_" . $__eay . "_No_Verification"}) { next; } $__eay = $authlib8_4_8::_bzi{"hid_Custom_MaxDiff_" . $__eay}; } _cei($__eay . "_b",$__eej->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } if (!(exists $__eej->{'_xo'})) { _cei($__eay . "_w",$__eej->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } _ceg($__eay,$__eej->{'_bds'},$__efd); if ($ciwlib8_4_8::_bkn) { last; } } if(exists $__eej->{'_yx'}) { _cei($__eay . "_anchor", $__eej->{'_bds'}, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } my $__eek = authlib8_4_8::_bss($__eej->{'_bcs'}); if (!_cer($authlib8_4_8::_bzi{$__eay . "_b"}, $__eek)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eay . "_b" . "'.", ""); } if (!(exists $__eej->{'_xo'})) { if (!_cer($authlib8_4_8::_bzi{$__eay . "_w"}, $__eek)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eay . "_w" . "'.", ""); } } } elsif ($__efh == &authlib8_4_8::_CCN) { my $__eel = $__ebg; _cek($__eel, $__eay, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } elsif ($__efh == &authlib8_4_8::_CCO) { my $__eem = $__ebg; _cel($__eem, $__eay, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } elsif ($__efh == &authlib8_4_8::_CCP) { my $__een = $__ebg; _cem($__een, $__eay, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } elsif ($__efh == &authlib8_4_8::_CCQ) { my $__eeo = $__ebg; _cen($__eeo, $__eay, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } elsif ($__efh == &authlib8_4_8::_CCR) { my $__eep = $__ebg; _ceo($__eep, $__eay, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } elsif ($__efh == &authlib8_4_8::_CCS) { my $__eeq = $__ebg; _cep($__eeq, $__eay, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } elsif($__efh == &authlib8_4_8::_CCT) { my $__eer = $__ebg; my $__ees = "hid_list_" . $__eay; my @__eet = (); if (exists($authlib8_4_8::_bzi{$__ees})) { my $__eeu = $authlib8_4_8::_bzi{$__ees}; @__eet = split(",", $__eeu); } if (exists $__eer->{'_bdq'}) { my $__eev = 0; foreach $__eev (@__eet) { _cei($__eay . "_" . $__eev, $__eer->{'_bds'}, $__efd); if ($ciwlib8_4_8::_bkn) { last; } } if ($ciwlib8_4_8::_bkn) { last; } } my $__eew = 0; if (exists $__eer->{'_bcw'} && exists $__eer->{'_bcx'}) { my $__eex = $__eer->{'_bcw'}; my $__eey = $__eer->{'_bcx'}; my @__eez = (); if($__eex <= $__eey) { @__eez = map { { '_bcm' => $_ } } ($__eex)..($__eey); } else { @__eez = map { { '_bcm' => $_ } } ($__eey)..($__eex); } $__eew = \@__eez; } else { $__eew = authlib8_4_8::_bss($__eer->{'_bcy'}); } foreach my $__eev (@__eet) { my $__eaz = $__eay . "_" . $__eev; my $__eca = $authlib8_4_8::_bzi{$__eaz}; if ($__eca) { if (!_cer($__eca, $__eew)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eaz . "'.", ""); } } } if ($ciwlib8_4_8::_bkn) { last; } } } } $authlib8_4_8::_byf = ""; $authlib8_4_8::_bym = 0; } sub _ced { my ($__egj, $__egk, $__egl, $__egm) = @_; my $__efp = 0; my $__efq = ""; my $__efr = ""; my $__efs = ""; my $__eft = 0; my $__efu = 0; if ($__egl) { $__efs = $__egk->{'_bln'}; $__eft = $__egk->{'_bkv'}; } else { $__efs = $__egj . "_*"; my $__efv = "hid_list_" . $__egj; if (exists($authlib8_4_8::_bzi{$__efv}) && (defined $authlib8_4_8::_bzi{$__efv})) { my $__efw = $authlib8_4_8::_bzi{$__efv}; my @__efx = split(",", $__efw); $__eft = \@__efx; } } my $__efy = @{$__eft}; my $__efz = $__egk->{'_bgu'}; my $__ega = 0; my $__egb = 0; if (exists $__egk->{'_aop'}) { $__egb = $__egk->{'_aop'}; if ($__egb > $__efy) { $__egb = $__efy; } } else { $__egb = $__efy; $__ega = $__efy; } if (exists $__egk->{'_bgp'}) { $__ega = $__egk->{'_bgp'}; if ($__ega > $__efy) { $__ega = $__efy; } } if ($__ega > 0 && exists($__egk->{'_bdq'})) { $__efu = 1; } my $__egc = 0; my @__egd = (0) x $__egb; my $__ege = 0; my $__egf = 0; if ($__efz eq "combo") { my $__egg = authlib8_4_8::_bss($__egk->{'_bcs'}); if ($__egg) { my $__egh = @{$__egg}; if ($__egh < $__egb) { $__egb = $__egh; } if ($__egh < $__ega) { $__ega = $__egh; } } } $__egk->{'_aop'} = $__egb; $__egk->{'_bgp'} = $__ega; for ($__efp = 0; $__efp < $__efy; $__efp++) { $__efq = $__efs; $__efq =~ s/\*/$__eft->[$__efp]/; $__ege = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__efq}); if ($__efz eq "numeric") { if ($__ege ne "") { if (_ceq($__ege)) { return 3; } elsif (($__ege < 1) || ($__ege > $__egb)) { return 4; } } } if ($__ege ne "" && $__ege ne "0") { $__egc++; if ($__egd[$__ege - 1] == 0) { $__egd[$__ege - 1] = 1; } else { $__egd[$__ege - 1]++; } if ($__egd[$__ege - 1] > 1) { return 1; } if (!$__egl) { $__egf = _cee($__egk, $__efq . "_other", $__egm); if (!$__egf) { return 6; } } } } if ($__egc == 0 && !$__efu) { return 0; } if ($__egc < $__ega || $__egc > $__egb) { return 5; } my $__egi = 0; for ($__efp = 0; $__efp < @__egd; $__efp++) { if ($__egd[$__efp] == 0) { $__egi = 1; } else { if ($__egi) { return 5; } } } return 0; } sub _cee { my($__egs, $__egt, $__egu) = @_; if (exists($authlib8_4_8::_bzi{$__egt}) && defined($authlib8_4_8::_bzi{$__egt})) { my $__egn = "hid_" . $__egt; my $__ego = 0; my $__egp = 0; my $__egq = ""; if (exists($authlib8_4_8::_bzi{$__egn}) && defined($authlib8_4_8::_bzi{$__egn})) { $__egn = $authlib8_4_8::_bzi{$__egn}; if ($__egn =~ m/^(\d+)\,(\d+)\,(.*?)$/) { $__ego = $1; $__egp = $2; $__egq = $3; } my $__egr = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__egt}); if($__ego > 0) { _cei($__egt,$__egq,$__egu); if ($ciwlib8_4_8::_bkn) { return 0; } if (length($__egr) < $__ego) { ciwlib8_4_8::_big($__egt,$__egq,'_ez',$__egu,$__ego,$__egp, 0); return 0; } } if (length($__egr) > $__egp) { ciwlib8_4_8::_big($__egt,$__egq,'_fa',$__egu,$__ego, $__egp,0); return 0; } } } return 1; } sub _cef { my ($__ehp, $__ehq, $__ehr, $__ehs) = @_; my $__egv = ""; my $__egw = 0; if ($__ehr == &authlib8_4_8::_CCH) { $__egv = $__ehp->{'_bln'}; } elsif ($__ehr == &authlib8_4_8::_CCG) { $__egv = $__ehq . "*"; } else { $__egv = $__ehq . "_*"; } my $__egx = $__ehp->{'_akj'}; $__egx =~ s/,/\./; my $__egy = $__egx; $__egy =~ s/\.//; if ($__egy !~ m/^\s*\d+\s*$/) { $__egx = 0; $__ehp->{'_akj'} = 0; } my $__egz = $__egx - $__ehp->{'_bgp'}; my $__eha = $__egx + $__ehp->{'_aop'}; my $__ehb = 0; if (exists($__ehp->{'_bdq'})) { $__ehb = 1; } my $__ehc = 0; if (exists($__ehp->{'_aks'})) { $__ehc = 1; } my $__ehd = 0; if ($__ehr == &authlib8_4_8::_CCI) { my $__ehe = "hid_list_" . $__ehq; if (exists($authlib8_4_8::_bzi{$__ehe}) && (defined $authlib8_4_8::_bzi{$__ehe})) { my $__ehf = $authlib8_4_8::_bzi{$__ehe}; my @__ehg = split(",", $__ehf); $__ehd = \@__ehg; } } else { $__ehd = $__ehp->{'_bkv'}; } my $__ehh = @{$__ehd}; my $__ehi = 0; my $__ehj = 0; my $__ehk = ""; my $__ehl = 1; my $__ehm = 0; my $__ehn = 0; my $__eho = ""; if(!$__ehb) { for($__ehi = 0; $__ehi < $__ehh; $__ehi++) { $__ehk = $__egv; $__ehk =~ s/\*/$__ehd->[$__ehi]/; if (exists($authlib8_4_8::_bzi{$__ehk})) { if (authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__ehk}) ne "") { $__ehl = 0; } } } if($__ehl) { return (0, 0); } } for($__ehi = 0; $__ehi < $__ehh; $__ehi++) { $__ehk = $__egv; $__ehk =~ s/\*/$__ehd->[$__ehi]/; if (!(exists($authlib8_4_8::_bzi{$__ehk}))) { next; } $__ehj = authlib8_4_8::_bpy($authlib8_4_8::_bzi{$__ehk}); if ($__ehj eq "") { if ($__ehc) { return (2, $__ehn); } } else { if (authlib8_4_8::_bsk($__ehj, (exists $__ehp->{'_aoe'}))) { return (3, $__ehn); } if (($__ehj < 0) || ($__ehj > $__egx)) { return (4, $__ehn); } } if (exists $authlib8_4_8::_bzk->{'_aoe'}) { $__ehj =~ s/,/\./; } if ($__ehr == &authlib8_4_8::_CCI) { if ($__ehj ne "" && $__ehj ne "0") { $__egw = _cee($__ehp, $__ehk . "_other", $__ehs); if (!$__egw) { return (5, $__ehn); } } } $__ehn = $__ehn + $__ehj; } if(($__egz > $__ehn) || ($__eha < $__ehn)) { $__ehm = 1; } if (exists $authlib8_4_8::_bzk->{'_aoe'}) { $__ehn =~ s/\./,/; } if ($__ehm) { return (1, $__ehn); } else { return (0, $__ehn); } } sub _ceg { my ($__ehx,$__ehy,$__ehz) = @_; my ($__eia) = (0) x 1; my $__eht = 0; my $__ehu = ""; my $__ehv = 0; $__ehu = $__ehx . "_b"; if ((exists $authlib8_4_8::_bzi{$__ehu}) || (defined $authlib8_4_8::_bzi{$__ehu})) { $__ehv = $authlib8_4_8::_bzi{$__ehu}; } my $__ehw = 0; $__ehu = $__ehx . "_w"; if ((exists $authlib8_4_8::_bzi{$__ehu}) || (defined $authlib8_4_8::_bzi{$__ehu})) { $__ehw = $authlib8_4_8::_bzi{$__ehu}; } if ($__ehv == $__ehw) { ciwlib8_4_8::_big($__ehx,$__ehy,'_fi',$__ehz,0,0,0); } } sub _ceh { my ($__eig, $__eih, $__eii, $__eij,$__eik) = @_; my $__eib = ""; my $__eic = 0; my $__eid = ""; my $__eie = 0; $__eid = $__eig . $__eih; if ((exists $authlib8_4_8::_bzi{$__eid}) || (defined $authlib8_4_8::_bzi{$__eid})) { $__eie = $authlib8_4_8::_bzi{$__eid}; } my $__eif = 0; $__eid = $__eig . $__eii; if ((exists $authlib8_4_8::_bzi{$__eid}) || (defined $authlib8_4_8::_bzi{$__eid})) { $__eif = $authlib8_4_8::_bzi{$__eid}; } if ($__eie == $__eif) { ciwlib8_4_8::_big($__eig,$__eij,'_fj',$__eik,0,0,0); } } sub _cei { my ($__eim,$__ein,$__eio) = @_; my ($__eip) = (0) x 1; my $__eil = 0; if (!(exists $authlib8_4_8::_bzi{$__eim}) || !(defined $authlib8_4_8::_bzi{$__eim})) { $__eil = 1; } else { $__eip = $authlib8_4_8::_bzi{$__eim}; if (length($__eip) <= 0) { $__eil = 1; } } if ($__eil) { ciwlib8_4_8::_big($__eim,$__ein,'_eu',$__eio,0,0,0); } } sub _cej { my ($__ejj, $__ejk, $__ejl) = @_; my $__eiq = ""; my $__eir = 0; my $__eis = 0; my $__eit = ""; my $__eiu = 0; my $__eiv = $__ejj->{'_bds'}; my $__eiw = 0; if (!exists($__ejj->{'_bgp'}) && !exists($__ejj->{'_aop'})) { return 1; } my $__eix = $__ejj->{'_bgp'}; my $__eiy = $__ejj->{'_aop'}; my $__eiz = 0; my $__eja = 0; my $__ejb = ""; my @__ejc = (); my $__ejd = 0; my $__eje = ""; my $__ejf = ""; my @__ejg = (); my $__ejh = 0; my $__eji = 0; $__eit = "hid_list_" . $__ejk; if (exists($authlib8_4_8::_bzi{$__eit}) && (defined $authlib8_4_8::_bzi{$__eit})) { $__ejb = $authlib8_4_8::_bzi{$__eit}; @__ejc = split(",", $__ejb); $__ejd = @__ejc; if ($__ejd < $__eiy) { $__eiy = $__ejd; } if ($__ejd < $__eix) { $__eix = $__ejd; } $__eit = "hid_noneabove_" . $__ejk; if ((exists $authlib8_4_8::_bzi{$__eit}) && (defined $authlib8_4_8::_bzi{$__eit})) { $__ejf = $authlib8_4_8::_bzi{$__eit}; @__ejg = split(",", $__ejf); } for($__eir=0; $__eir < $__ejd; $__eir++) { $__eit = $__ejk . "_" . $__ejc[$__eir]; if ((exists $authlib8_4_8::_bzi{$__eit}) && (defined $authlib8_4_8::_bzi{$__eit})) { $__eiq = $authlib8_4_8::_bzi{$__eit}; if ($__eiq eq "1") { if (@__ejg) { for ($__eis = 0; $__eis < @__ejg; $__eis++) { if ($__ejc[$__eir] == $__ejg[$__eis]) { $__ejh = 1; if ($__eix > 1) { $__eix = 1; } last; } } } $__eiu++; $__eje = $__eit . "_other"; $__eiw = _cee($__ejj, $__eje, $__ejl); if (!$__eiw) { $__eji = 1; last; } } elsif ($__eiq ne "0" && $__eiq ne "") { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__eit . "'.", ""); } } } } if (!$__eji) { if (($__ejh == 1) && ($__eiu > 1)) { ciwlib8_4_8::_big($__ejk,$__eiv,'_axu', $__ejl,$__eix,$__eiy,0); } elsif ($__eiu < $__eix) { ciwlib8_4_8::_big($__ejk,$__eiv,'_ev',$__ejl,$__eix,$__eiy,0); } elsif($__eiu > $__eiy) { ciwlib8_4_8::_big($__ejk,$__eiv,'_ew',$__ejl,$__eix,$__eiy,0); } } } sub _cek { my ($__ela, $__elb, $__elc) = @_; my $__ejm = ""; my $__ejn = 0; my $__ejo = 0; my $__ejp = ""; my $__ejq = 0; my $__ejr = ""; my $__ejs = 0; my $__ejt = 0; my $__eju = ""; if (exists $__ela->{'_bds'}) { $__ejr = $__ela->{'_bds'}; } my $__ejv = ""; my @__ejw = (); my $__ejx = 0; $__ejp = "hid_list_" . $__elb; if (exists $authlib8_4_8::_bzi{$__ejp}) { $__ejv = $authlib8_4_8::_bzi{$__ejp}; @__ejw = split(",", $__ejv); $__ejx = @__ejw; my $__ejy = authlib8_4_8::_bqx($__elb); my $__ejz = $__ejy->{'_apa'}; my $__eka = authlib8_4_8::_bss($__ejy->{'_aoz'}); my $__ekb = 0; my $__ekc = 0; my %__ekd = (); my @__eke = (); if ($__eka) { for ($__ejn = 0; $__ejn < @{$__eka}; $__ejn++) { $__ekc = $__eka->[$__ejn]->{'_bcm'}; $__ekd{$__ekc} = $__ejn; if (exists $__ejz->{$__ekc}) { if (exists $__ejz->{$__ekc}->{'_apr'}) { push @__eke, $__ekc; } } } } my %__ekf = (); my @__ekg = (); for($__ejn = 0; $__ejn < $__ejx; $__ejn++) { $__ejp = $__elb . "_" . $__ejw[$__ejn]; if (exists $__ejz->{$__ejw[$__ejn]} && $__ejz->{$__ejw[$__ejn]}->{'_api'}) { push (@__ekg, $__ejn); } else { _cei($__ejp,$__ela->{'_bds'},$__elc); if ($ciwlib8_4_8::_bkn) { $__ejs = 1; last; } if (exists $__ejz->{$__ejw[$__ejn]}) { my $__ekh = authlib8_4_8::_bss($__ejz->{$__ejw[$__ejn]}->{'_apo'}); if (!_cer($authlib8_4_8::_bzi{$__ejp}, $__ekh)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__ejp . "'.", ""); } } $__ekf{$__ejw[$__ejn]} = 1; } } if (!$__ejs) { my $__eki = 0; while (@__ekg > 0) { $__ejn = $__ekg[$__eki]; $__ejp = $__elb . "_" . $__ejw[$__ejn]; if (not exists $__ejz->{$__ejw[$__ejn]}->{'_api'}) { splice(@__ekg, $__eki, 1); if ($__eki == @__ekg) { $__eki = 0; } next; } my @__ekj = @{$__ejz->{$__ejw[$__ejn]}->{'_api'}}; my $__ekk = 1; my $__ekl = 1; my $__ekm = 1; for (my $__ejo = 0; $__ejo < @__ekj; $__ejo++) { if (exists $__ekd{$__ekj[$__ejo]}) { if (exists $__ejz->{$__ekj[$__ejo]}->{'_apr'}) { next; } $__ekm = 0; if (not exists $__ekf{$__ekj[$__ejo]}) { $__ekl = 0; } } } for (my $__ejo = 0; $__ejo < @__ekj && $__ekl; $__ejo++) { if (exists $__ekd{$__ekj[$__ejo]}) { my $__ejm = $authlib8_4_8::_bzi{$__elb . "_" . $__ekj[$__ejo]}; if (exists $__ejz->{$__ekj[$__ejo]}->{'_apt'}->{$__ejw[$__ejn]}->{$__ejm}) { $__ekk = 0; last; } } } if ($__ekl) { $__ekf{$__ejw[$__ejn]} = 1; splice(@__ekg, $__eki, 1); if ($__eki == @__ekg) { $__eki = 0; } if ($__ekk || $__ekm) { my $__ejm = $authlib8_4_8::_bzi{$__ejp}; if ($__ejm ne "") { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__ejp . "'.", ""); } } else { _cei($__ejp, $__ela->{'_bds'}, $__elc); if ($ciwlib8_4_8::_bkn) { $__ejs = 1; last; } my $__ekh = authlib8_4_8::_bss($__ejz->{$__ejw[$__ejn]}->{'_apo'}); if (!_cer($authlib8_4_8::_bzi{$__ejp}, $__ekh)) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__ejp . "'.", ""); } } } else { $__eki++; if ($__eki == @__ekg) { $__eki = 0; } } } } if ($__ejs == 0) { if (exists $__ejy->{'_aqj'}) { my $__ekn = $__ejy->{'_aqj'}; if (@__eke) { $__ekn = authlib8_4_8::_bqy(\@__eke, $__ekn); } my $__eko = @{$__ekn}; my $__ekp = 0; my $__ekq = 0; my $__ejn = 0; my $__ejo = 0; my $__ekc = 0; my $__ekr = 0; my $__eks = 0; for ($__ejn = 0; $__ejn < $__eko; $__ejn++) { $__ekp = $__ekn->[$__ejn]; $__ekq = @{$__ekp}; $__ejt = 1; for ($__ejo = 0; $__ejo < $__ekq; $__ejo++) { $__ekc = $__ekp->[$__ejo]->[0]; $__ekr = $__ekp->[$__ejo]->[1]; $__ejp = $__elb . "_" . $__ekc; if (exists $authlib8_4_8::_bzi{$__ejp}) { $__eks = $authlib8_4_8::_bzi{$__ejp}; if ($__eks != $__ekr) { $__ejt = 0; last; } } else { $__ejt = 0; last; } } if ($__ejt) { my $__ekt = 0; my $__eku = ""; my $__ekv = 0; my $__ekw = ""; my $__ekx = 0; my $__eky = ""; my %__ekz = (); for ($__ejo = 0; $__ejo < $__ekq; $__ejo++) { $__ekc = $__ekp->[$__ejo]->[0]; $__ekr = $__ekp->[$__ejo]->[1]; $__ekz{$__ekc} = $__ekr; } $authlib8_4_8::_bzi{"sys_acbc_proh_atts"} = \%__ekz; last; } } } } } if ($__ejt) { ciwlib8_4_8::_big($__elb,$__ejr,'_fk',$__elc,0,$__eju,$__ela); } } sub _cel { my ($__eln, $__elo, $__elp) = @_; my $__eld = 0; my $__ele = ""; my $__elf = ""; my $__elg = 0; my $__elh = 0; my $__eli = "hid_" . $__elo . "_num_cols"; if (exists $authlib8_4_8::_bzi{$__eli}) { $__eld = $authlib8_4_8::_bzi{$__eli}; } for ($__elh = 1; $__elh <= $__eld; $__elh++) { $__ele = $__elo . "_" . $__elh; if (exists $authlib8_4_8::_bzi{$__ele}) { $__elf = $authlib8_4_8::_bzi{$__ele}; if ($__elf eq "") { $__elg = 1; last; } elsif ($__elf !~ m/^[0-1]$/o) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__ele . "'. Expected 0 or 1, found $__elf.", ""); } } else { $__elg = 1; last; } } if ($__elg) { my $__elj = ""; if (exists $__eln->{'_bds'}) { $__elj = $__eln->{'_bds'}; } ciwlib8_4_8::_big($__elo,$__elj,'_eu',$__elp,0,0,0,$__eln); } else { my $__elk = $__elo . "_shown"; my $__ell = $authlib8_4_8::_bzi{$__elk}; if ($__ell eq "") { authlib8_4_8::_bqa(306, "Invalid input", "Invalid input entered for field '$__elk'. Expected comma separated numbers but found nothing.", ""); } else { my $__elm = '^\d+(?:,\d+)'; if ($__eld == 1) { $__elm .= '*$'; } else { $__elm .= "{" . ($__eld - 1). '}$'; } if ($__ell !~ m/$__elm/) { authlib8_4_8::_bqa(306, "Invalid input", "Invalid input entered for field '$__elk'. Expected comma separated numbers but found $__ell.", ""); } } } } sub _cem { my ($__elw, $__elx, $__ely) = @_; my $__elq = 0; if (!exists $authlib8_4_8::_bzi{$__elx}) { my $__elr = ""; if (exists $__elw->{'_bds'}) { $__elr = $__elw->{'_bds'}; } ciwlib8_4_8::_big($__elx,$__elr,'_eu',$__ely,0,0,0,$__elw); } else { my $__els = $authlib8_4_8::_bzi{$__elx}; if ($__els eq "" || $__els !~ m/^\d+$/) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__elx . "'.", ""); } my $__elt = $__elx . "_shown"; my $__elu = $authlib8_4_8::_bzi{$__elt}; if ($__elu eq "") { authlib8_4_8::_bqa(307, "Invalid input", "Invalid input entered for question '" . $__elx . "'. Expected an integer, found nothing.", ""); } else { if ($__elu !~ m/^\[[\[\]\d,.]+\]$/o) { authlib8_4_8::_bqa(306, "ACBC Error. Error reading ACBC rules shown list.", $@); } my $__elv = eval($__elu); if ($@) { authlib8_4_8::_bqa(306, "ACBC Error. Error reading ACBC rules shown list.", $@); } if ($__els < 0 || $__els > @{$__elv}) { authlib8_4_8::_bqa(307, "Invalid input", "Invalid input entered for question '" . $__elx . "'. Expected number between 0 and " . (scalar @{$__elv}) . ", found $__els.", ""); } } } } sub _cen { my ($__emf, $__emg, $__emh) = @_; my $__elz = 0; if (!exists $authlib8_4_8::_bzi{$__emg}) { my $__ema = ""; if (exists $__emf->{'_bds'}) { $__ema = $__emf->{'_bds'}; } ciwlib8_4_8::_big($__emg,$__ema,'_eu',$__emh,0,0,0,$__emf); } else { my $__emb = $authlib8_4_8::_bzi{$__emg}; if ($__emb eq "" || $__emb !~ m/^\d+$/) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__emg . "'.", ""); } my $__emc = $__emg . "_shown"; my $__emd = $authlib8_4_8::_bzi{$__emc}; if ($__emd eq "") { authlib8_4_8::_bqa(307, "Invalid input", "Invalid input entered for question '" . $__emg . "'. Expected an integer, found nothing.", ""); } else { if ($__emd !~ m/^\[[\[\]\d,.]+\]$/o) { authlib8_4_8::_bqa(306, "ACBC Error. Error reading ACBC rules shown list.", $@); } my $__eme = eval($__emd); if ($@) { authlib8_4_8::_bqa(306, "ACBC Error. Error reading ACBC rules shown list.", $@); } if ($__emb < 0 || $__emb > @{$__eme}) { authlib8_4_8::_bqa(307, "Invalid input", "Invalid input entered for question '" . $__emg . "'. Expected between 0 and " . (scalar @{$__eme}) . ", found $__emb.", ""); } } } } sub _ceo { my ($__emo, $__emp, $__emq) = @_; my $__emi = 0; if (!exists $authlib8_4_8::_bzi{$__emp}) { my $__emj = ""; if (exists $__emo->{'_bds'}) { $__emj = $__emo->{'_bds'}; } ciwlib8_4_8::_big($__emp,$__emj,'_eu',$__emq,0,0,0,$__emo); } else { my $__emk = $authlib8_4_8::_bzi{$__emp}; if ($__emk eq "" || $__emk !~ m/^\d+$/) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__emp . "'.", ""); } my $__eml = $__emp . "_shown"; my $__emm = $authlib8_4_8::_bzi{$__eml}; if ($__emm eq "") { authlib8_4_8::_bqa(306, "Invalid input", "Invalid input entered for field '$__eml'. Expected comma separated numbers but found nothing.", ""); } else { if ($__emm !~ m/^\d+(?:,\d+)+$/o) { authlib8_4_8::_bqa(306, "Invalid input", "Invalid input entered for field '$__eml'. Expected comma separated numbers but found $__emm.", ""); } my @__emn = split(/,/, $__emm); if ($__emk < 1 || $__emk > @__emn) { authlib8_4_8::_bqa(307, "Invalid input", "Invalid input entered for question '$__emp'. Expected between 1 and " . (scalar @__emn) . ", found $__emk.", ""); } } } } sub _cep { my ($__emx, $__emy, $__emz) = @_; my $__emr = 0; if (!exists $authlib8_4_8::_bzi{$__emy}) { my $__ems = ""; if (exists $__emx->{'_bds'}) { $__ems = $__emx->{'_bds'}; } ciwlib8_4_8::_big($__emy,$__ems,'_eu',$__emz,0,0,0,$__emx); } else { my $__emt = $authlib8_4_8::_bzi{$__emy}; if ($__emt eq "" || $__emt !~ m/^\d+$/) { authlib8_4_8::_bqa(305, "Invalid input", "Invalid input entered for question '" . $__emy . "'.", ""); } my $__emu = $__emx->{'_bar'}; my $__emv = $__emu->{'_bas'}; my $__emw = @{$__emv}; if ($__emt < 1 || $__emt > $__emw) { authlib8_4_8::_bqa(307, "Invalid input", "Invalid input entered for question '" . $__emy . "'. Expected between 1 and " . $__emw . ", found $__emt.", ""); } } } sub _ceq { my ($__ena) = @_; if ($__ena =~ m/^-?\d+$/){ return(0); } return(1); } sub _cer { my ($__end, $__ene) = @_; my $__enb = 0; foreach my $__enc (@{$__ene}) { if ($__enc->{'_bcm'} == $__end) { $__enb = 1; last; } } return $__enb; } return 1;