Page Index Toggle Pages: 1 Print
[Y2.1] Email Ban Fix (Read 3081 times)
Captain John
Ex Member


[Y2.1] Email Ban Fix
Sep 25th, 2007 at 3:11am
Print Post  
Y2.1 Bug fix - Banning Email domains
Edit Register.pl

find this
Code
Select All
    } elsif ($dummy eq "E") {    # EMAIL BANNING
	foreach $emailbanned (@banned) {
	  if (lc $emailbanned eq lc $ban_email) {
	    fopen(LOG, ">>$vardir/ban_log.txt");
	    print LOG "$ban_time|$emailbanned ($user_ip)\n";
	    fclose(LOG);
	    &UpdateCookie("delete", $ban_user);
	    $username = "Guest";
	    &fatal_error("E: $security_txt{'678'}$security_txt{'430'}!");
	    &redirectinternal;
	  }
	} 




replace with...

Code
Select All
    } elsif ($dummy eq "E") {    # EMAIL BANNING
	foreach $emailbanned (@banned) {
	  my $result = -1;
	  my $result = index(lc $ban_email, lc $emailbanned);
	  if ($result > -1){
	    fopen(LOG, ">>$vardir/ban_log.txt");
	    print LOG "$ban_time|$emailbanned ($user_ip)\n";
	    fclose(LOG);
	    &UpdateCookie("delete", $ban_user);
	    $username = "Guest";
	    ###  &fatal_error("E: $security_txt{'678'}$security_txt{'430'}!");   replaced with below
	    &fatal_error("Error: The email address you are attempting to register with ($ban_email) has been banned from use on this forum.");
	     &redirectinternal;
	  }
	} 




Now all you need to do is put:

@mail.ru (or whatever the address in question) NO ASTERICK !
« Last Edit: Dec 31st, 2010 at 5:03pm by »  
Back to top
 
IP Logged
 
Page Index Toggle Pages: 1
Print
 
  « Board Index ‹ Board  ^Top