No Equal Names Fix 1.3 only for GERMAN version! This mod prohibits to register or change to the same name as someone else on the board. version 1.2: - now checks without case sensitivity (thx to Taren :) [CV]XXL http://xxl.cstrike.de Sources/Register.pl $FORM{'signature'} =~ s/ open(FILE, "$memberdir/memberlist.txt"); &lock(FILE); @memberlist = ; &unlock(FILE); close(FILE); for ($a = 0; $a < @memberlist; $a++) { $memberlist[$a] =~ s/[\n\r]//g; open(FILE2, "$memberdir/$memberlist[$a].dat"); &lock(FILE2); @check_settings=; &unlock(FILE2); close(FILE2); $check_settings[1] =~ s/[\n\r]//g; if (lc $check_settings[1] eq lc $FORM{'name'}) { &fatal_error("($FORM{'name'}) $no_equal_names{'1'}"); } } Sources/Profile.pl &fatal_error("$txt{'76'}") if($FORM{'email'} eq ""); if ($settings[7] ne "Administrator") { open(FILE, "$memberdir/memberlist.txt"); &lock(FILE); @memberlist = ; &unlock(FILE); close(FILE); for ($a = 0; $a < @memberlist; $a++) { $memberlist[$a] =~ s/[\n\r]//g; open(FILE2, "$memberdir/$memberlist[$a].dat"); &lock(FILE2); @check_settings=; &unlock(FILE2); close(FILE2); $check_settings[1] =~ s/[\n\r]//g; if (lc $check_settings[1] eq lc $FORM{'name'} && $memberlist[$a] ne $username) { &fatal_error("($FORM{'name'}) $no_equal_names{'1'}"); } } } german.lng 1; $no_equal_names{'1'} = "Dieser Name wird bereits von jemand anderem benutzt";