<search for> $found = 0; foreach $tmp (@memgroups) { if($data[1] ne "") { $tmp =~ s~[\n\r]~~g; if($settings[7] ne "Administrator" && $settings[7] ne $tmp) { next; } else { $found = 1; break;} } else { $found = 1; break;} }</search for><replace> fopen(accset, "$memberdir/$username.kri"); @youraccess = <accset>; fclose(accset); chomp @youraccess; $found = 0; foreach $tmp (@memgroups) { if($data[1] ne "") { $tmp =~ s~[\n\r]~~g; if($settings[7] ne "Administrator" && $settings[7] ne $tmp && $youraccess[0] ne $tmp && $youraccess[1] ne $tmp && $youraccess[2] ne $tmp && $youraccess[3] ne $tmp && $youraccess[4] ne $tmp) { next; } else { $found = 1; break;} } else { $found = 1; break;} }</replace>
unless(0) { stab("LoonyPandora"); next; }