sub checkDenyDlc()

in client_script/profile_reader.pl [145:157]

• 12 lines of code
• 7 McCabe index (conditional complexity)

sub checkDenyDlc {
    return [] if(! -f "/Library/Preferences/com.apple.xsan.plist");
    my $xsanContent = `plutil -convert xml1 /Library/Preferences/com.apple.xsan.plist -o - | grep useDLC -A 10`;
    return [] if($? != 0);   #text was not found
    my @result;

    foreach(split(/\n/, $xsanContent)){
        push @result, "false" if(/^\s+<false\/>/);
        push @result, "true" if(/^\s+<true\/>/);
        last if(/^\s+<\/dict>/)
    }
    return \@result;
}