cybertestlib.bu20091020.pl: $CLIENT{'emlaclchk'} = ($CLIENT{'emlacl'} eq 'Y') ? "CHECKED" : ""; cybertestlib.bu20091020.pl: $CLIENT{'emlacllstchk'} = ($CLIENT{'emlacllst'} eq 'Y') ? "CHECKED" : ""; cybertestlib.bu20091020.pl: if (!($creclbl =~ /&emlacl/)) { $creclbl .= "&emlacl"; } cybertestlib.bu20091020.pl: if (!($creclbl =~ /&emlacllst/)) { $creclbl .= "&emlacllst"; } cybertestlib.bu.pl: $CLIENT{'emlaclchk'} = ($CLIENT{'emlacl'} eq 'Y') ? "CHECKED" : ""; cybertestlib.bu.pl: $CLIENT{'emlacllstchk'} = ($CLIENT{'emlacllst'} eq 'Y') ? "CHECKED" : ""; cybertestlib.bu.pl: if (!($creclbl =~ /&emlacl/)) { $creclbl .= "&emlacl"; } cybertestlib.bu.pl: if (!($creclbl =~ /&emlacllst/)) { $creclbl .= "&emlacllst"; } cybertestlib.pl: $CLIENT{'emlaclchk'} = ($CLIENT{'emlacl'} eq 'Y') ? "CHECKED" : ""; cybertestlib.pl: $CLIENT{'emlacllstchk'} = ($CLIENT{'emlacllst'} eq 'Y') ? "CHECKED" : ""; cybertestlib.pl: if (!($creclbl =~ /&emlacl/)) { $creclbl .= "&emlacl"; } cybertestlib.pl: if (!($creclbl =~ /&emlacllst/)) { $creclbl .= "&emlacllst"; } regcnd.pl: if ( ($CLIENT{'emlacl'} eq "Y") && ($continue_eml_tests == 1) ){ regcnd.pl: if ($CLIENT{'emlacllst'} eq "B") { regcnd.pl: if ($CLIENT{'emlacllst'} eq "W") { regcnd.pl: $tempemlacltest .= $_; regcnd.pl: if ( !($tempemlacltest =~ /$tmpemladr/) ) { regsas.pl: if ( ($CLIENT{'emlacl'} eq "Y") && ($continue_eml_tests == 1) ){ regsas.pl: if ($CLIENT{'emlacllst'} eq "B") { regsas.pl: if ($CLIENT{'emlacllst'} eq "W") { regsas.pl: $tempemlacltest .= $_; regsas.pl: if ( !($tempemlacltest =~ /$tmpemladr/) ) { regsas.pl: if ($CLIENT{'emlacl'} eq "Y") { regsas.pl: if ($CLIENT{'emlacllst'} eq "B") { regsas.pl: if ($CLIENT{'emlacllst'} eq "W") { sadmin.pl: $CLIENT{'emlaclstr'} .= "$_,"; sadmin.pl: $CLIENT{'emlaclstr'} =~ s/@//g; sadmin.pl: $CLIENT{'emlaclstr'} =~ s/,$//g; sclient.pl: &pushEmlAcl($FORM{'clid'}, $FORM{'emlaclstr'}); smilib.pl: my @searching = get_data("$clid.emlacl"); smilib.pl: my @searching = get_data("$clid.emlacl"); smilib.pl: $trash = join( $pathsep, $dataroot, "$clid.emlacl"); smilibwac.pl: my @searching = get_data("$clid.emlacl"); smilibwac.pl: my @searching = get_data("$clid.emlacl"); smilibwac.pl: $trash = join( $pathsep, $dataroot, "$clid.emlacl"); wac.smilib.pl: my @searching = get_data("$clid.emlacl"); wac.smilib.pl: my @searching = get_data("$clid.emlacl"); wac.smilib.pl: $trash = join( $pathsep, $dataroot, "$clid.emlacl");