No Equal Email Adresses
1.0
ONLY FOR Y1G BETA 5, ENGLISH VERSION!
This mod adds an admin setting to allow/disallow users to have equal email adresses.
[CV]XXL
http://xxl.cstrike.de
Sources\Profile.pl
open(FILE, "$memberdir/memberlist.txt");
&lock(FILE);
@memberlist = ;
&unlock(FILE);
close(FILE);
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
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 $member{'name'} && $memberlist[$a] ne $username && $settings[7] ne 'Administrator') {
&fatal_error("($member{'name'}) $txt{'473'}");
}
}
open(FILE, "$memberdir/memberlist.txt");
&lock(FILE);
@memberlist = ;
&unlock(FILE);
close(FILE);
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
open(FILE2, "$memberdir/$memberlist[$a].dat");
&lock(FILE2);
@check_settings=;
&unlock(FILE2);
close(FILE2);
chomp $check_settings[1];
if (lc $check_settings[1] eq lc $member{'name'} && lc $memberlist[$a] ne lc $username && $settings[7] ne 'Administrator') {
&fatal_error("($member{'name'}) $txt{'473'}");
}
if ($allow_equal_emails ne 1) {
chomp $check_settings[2];
if (lc $check_settings[2] eq lc $member{'email'} && $memberlist[$a] ne $username && $settings[7] ne 'Administrator') {
&fatal_error("($member{'email'}) $txt{'726'}");
}
}
}
Sources\Register.pl
open(FILE, "$memberdir/memberlist.txt");
&lock(FILE);
@memberlist = ;
&unlock(FILE);
close(FILE);
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
open(FILE2, "$memberdir/$memberlist[$a].dat");
&lock(FILE2);
@check_settings=;
&unlock(FILE2);
close(FILE2);
chomp $check_settings[1];
if ( lc $check_settings[1] eq lc $member{'username'} || lc $memberlist[$a] eq lc $member{'username'} ) {
&fatal_error("($member{'username'}) $txt{'473'}");
}
}
open(FILE, "$memberdir/memberlist.txt");
&lock(FILE);
@memberlist = ;
&unlock(FILE);
close(FILE);
for ($a = 0; $a < @memberlist; $a++) {
chomp $memberlist[$a];
open(FILE2, "$memberdir/$memberlist[$a].dat");
&lock(FILE2);
@check_settings=;
&unlock(FILE2);
close(FILE2);
chomp $check_settings[1];
if (lc $check_settings[1] eq lc $member{'username'} || lc $memberlist[$a] eq lc $member{'username'}) {
&fatal_error("($member{'username'}) $txt{'473'}");
}
if ($allow_equal_emails ne 1) {
chomp $check_settings[2];
if (lc $check_settings[2] eq lc $member{'email'} && lc $memberlist[$a] ne lc $username && $settings[7] ne 'Administrator') {
&fatal_error("($member{'email'}) $txt{'726'}");
}
}
}
Sources\Admin.pl
| $txt{'382'} |
EOT
$checked = "";
if ($showlatestmember == 1) { $checked = "checked" }
print <<"EOT";
|
| $txt{'727'} |
EOT
$checked = "";
if ($allow_equal_emails == 1) { $checked = "checked" }
print <<"EOT";
|
else { $mentype = "0" }
$allow_equal_emails = $FORM{'allow_equal_emails'};
if ($allow_equal_emails eq "on") { $allow_equal_emails = "1" }
else { $allow_equal_emails = "0" }
1;
~;
\$allow_equal_emails = $allow_equal_emails; # Allow users to have equal email adresses. Set 0 to disable
Settings.pl
1;
$allow_equal_emails = 1; # Allow users to have equal email adresses. Set 0 to disable
English.lng
1;
$txt{'726'} = "this email adress already exists. Please, only one account per user!";
$txt{'727'} = "Allow users to have equal email adresses";