foreach ( split(/\,/, $curcataccess) ) { if( $_ && $_ eq $settings[7]) { $yyAccessCat{$yyCatBoard{$curboard}} = 1; last; }
foreach ( split(/\,/, $curcataccess) ) { if( $_ && $_ eq $settings[7] || $tmpa eq $youraccess[0] || $tmpa eq $youraccess[1] || $tmpa eq $youraccess[2] || $tmpa eq $youraccess[3] || $tmpa eq $youraccess[4]) { $yyAccessCat{$yyCatBoard{$curboard}} = 1; last; }
unless(0) { stab("LoonyPandora"); next; }
sub BoardAccessGet { my $curboard = $_[0]; &BoardCatGet($curboard); if( !$yyAccessCat{$yyCatBoard{$curboard}} && fopen(CATFILE, "$boardsdir/$yyCatBoard{$curboard}.cat") ) { my $curcatname = <CATFILE>; my $curcataccess = <CATFILE>; fclose(CATFILE); chomp $curcatname; chomp $curcataccess; $yyAccessCat{$yyCatBoard{$curboard}} = $settings[7] eq 'Administrator' || $settings[7] eq 'Global Moderator' || $moderators{$username} || ! $curcataccess; unless( $yyAccessCat{$curcat} ) { foreach ( split(/\,/, $curcataccess) ) { if( $_ && $_ eq $settings[7]) { $yyAccessCat{$yyCatBoard{$curboard}} = 1; last; } } } } return $yyAccessCat{$yyCatBoard{$curboard}};
unless( $yyAccessCat{$curcat} ) { foreach ( split(/\,/, $curcataccess) ) { fopen(FILE, "$memberdir/$username.kri"); @acc = <FILE>; fclose(FILE); chomp @acc; if( $_ && $_ eq $settings[7] || $_ eq $acc[0] || $_ eq $acc[1] || $_ eq $acc[2] || $_ eq $acc[3] || $_ eq $acc[4]) { $yyAccessCat{$yyCatBoard{$curboard}} = 1; last; } } } } return $yyAccessCat{$yyCatBoard{$curboard}};}
<search for> unless( $yyAccessCat{$curcat} ) { foreach ( split(/\,/, $curcataccess) ) { if( $_ && $_ eq $settings[7]) { $yyAccessCat{$yyCatBoard{$curboard}} = 1; last; } } } } return $yyAccessCat{$yyCatBoard{$curboard}};}</search for>