No Guest Email 1.1 for SP1.3 - SP1.4 This mod removes the requirement for guests to enter a valid email address when posting. Thanks to everyone who made a contribution to this mod! Homepages: BHRA Webmaster: http://www.bhra.org.uk t-master: http://www.t-master.de/ BHRA Webmaster, t-master http://www.bhra.org.uk, http://www.t-master.de/ Sources/Post.pl &fatal_error("$txt{'76'}") if($FORM{'email'} eq ''); &fatal_error("$txt{'240'} $txt{'69'} $txt{'241'}") if($FORM{'email'} !~ /[\w\-\.\+]+\@[\w\-\.\+]+\.(\w{2,4}$)/); &fatal_error("$txt{'500'}") if(($FORM{'email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/) || ($FORM{'email'} !~ /^.+@\[?(\w|[-.])+\.[a-zA-Z]{2,4}|[0-9]{1,4}\]?$/)); # &fatal_error("$txt{'76'}") if($FORM{'email'} eq ''); &fatal_error("$txt{'240'} $txt{'69'} $txt{'241'}") if($FORM{'email'} ne '' && $FORM{'email'} !~ /^[0-9A-Za-z@\._\-]+$/); &fatal_error("$txt{'500'}") if($FORM{'email'} ne '' && (($FORM{'email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/) || ($FORM{'email'} !~ /^.+@\[?(\w|[-.])+\.[a-zA-Z]{2,4}|[0-9]{1,4}\]?$/))); if($name && $email) { if($name) { &fatal_error($txt{'76'}) unless($settings[2] || $email); # &fatal_error($txt{'76'}) unless($settings[2] || $email); Sources/Display.pl if($musername eq "Guest") { $yymain .= qq~
$img{'email_sm'}

~; } if($musername eq "Guest") { if($memail ne "") { $yymain .= qq~
$img{'email_sm'}

~; } }