No Equal Email Adresses
1.0
This mod disallow users to have equal email adresses.
[CV]XXL
http://boardmod.xnull.com
Sources\Profile.pl
fopen(FILE, "$memberdir/memberlist.txt");
@memberlist = ;
fclose(FILE);
$testname = lc $member{'name'};
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
$membername = lc $memberlist[$a];
if( fopen(FILE2, "$memberdir/$memberlist[$a].dat") ) {
$tmpa = ;
$realnametemp = ;
fclose(FILE2);
chomp $realnametemp;
$realnametemp = lc $realnametemp;
if ($realnametemp eq $testname && $memberlist[$a] ne $username && $settings[7] ne 'Administrator') { &fatal_error("($member{'name'}) $txt{'473'}"); }
}
}
fopen(FILE, "$memberdir/memberlist.txt");
@memberlist = ;
fclose(FILE);
$testname = lc $member{'name'};
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
$membername = lc $memberlist[$a];
if( fopen(FILE2, "$memberdir/$memberlist[$a].dat") ) {
$tmpa = ;
$realnametemp = ;
@check_settings = ;
fclose(FILE2);
chomp $realnametemp;
chomp $ckeck_settings[2];
$realnametemp = lc $realnametemp;
if ($realnametemp eq $testname && $memberlist[$a] ne $username && $settings[7] ne 'Administrator') { &fatal_error("($member{'name'}) $txt{'473'}"); }
if (lc $check_settings[2] eq lc $member{'email'} && $memberlist[$a] ne $username && $settings[7] ne 'Administrator') {
&fatal_error("($member{'email'}) this email adress already exists. Please, only one account per user!");
}
}
}
Sources\Register.pl
fopen(FILE, "$memberdir/memberlist.txt");
@memberlist = ;
fclose(FILE);
$testname = lc $member{'username'};
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
$membername = lc $memberlist[$a];
if( fopen(FILE2, "$memberdir/$memberlist[$a].dat") ) {
$tmpa=;
$realname=;
fclose(FILE2);
chomp $realname;
$realname = lc $realname;
if ($realname eq $testname || $membername eq $testname) { &fatal_error("($member{'username'}) $txt{'473'}"); }
}
elsif( $testname eq $membername ) { &fatal_error("($member{'username'}) $txt{'473'}"); }
}
fopen(FILE, "$memberdir/memberlist.txt");
@memberlist = ;
fclose(FILE);
$testname = lc $member{'username'};
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
$membername = lc $memberlist[$a];
if( fopen(FILE2, "$memberdir/$memberlist[$a].dat") ) {
$tmpa=;
$realname=;
@check_settings=;
fclose(FILE2);
chomp $realname;
chomp $check_settings[2];
$realname = lc $realname;
if ($realname eq $testname || $membername eq $testname) { &fatal_error("($member{'username'}) $txt{'473'}"); }
if (lc $check_settings[2] eq lc $member{'email'} && lc $memberlist[$a] ne lc $username && $settings[7] ne 'Administrator') {
&fatal_error("($member{'email'}) this email adress already exists. Please, only one account per user!");
}
}
elsif( $testname eq $membername ) { &fatal_error("($member{'username'}) $txt{'473'}"); }
}