Gossamer Forum
Home : Products : Links 2.0 : Discussions :

INFO domains & send reject/modify/validate emails

Quote Reply
INFO domains & send reject/modify/validate emails
hello all,

well, links 2 and send emails to INFO domains will not work

if there is a link to validate with an xxx@xxxx.info email
you will get an error that xxx@xxx.info is not correct email address
after validation..

validation email will not be send...


i think in db.pl
this should be changed:
Code:
elsif (${$links{$id}}{'Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
${$links{$id}}{'Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {


can someone help ?
----
ciao
nicky

Last edited by:

Nicky: Oct 23, 2001, 11:50 AM
Quote Reply
Re: [Nicky] INFO domains & send reject/modify/validate emails In reply to
Try:

elsif (${$links{$id}}{'Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || ${$links{$id}}{'Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) {
Quote Reply
Re: [RedRum] INFO domains & send reject/modify/validate emails In reply to
thank you

it's working...
----
ciao
nicky
Quote Reply
Re: [Nicky] INFO domains & send reject/modify/validate emails In reply to
This is sort of odd. I don't find the exact lines as above in my db.pl. Here's the closest I can find.



ID: foreach $id (keys %delete_list) {
if ($delete_list{$id}) { next ID; }
elsif (!$in{"reason-$id"}) { next ID; }
elsif (${$links{$id}}{'Contact Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
${$links{$id}}{'Contact Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
$errstr .= ($errstr, "<li>Email Error: <strong>$id</strong>. Record deleted, but couldn't send rejection letter. Reason: Bad Email addres: '${$links{$id}}{'Contact Email'}'.");
}
else { &html_reject_email (%{$links{$id}}); }
}



Any thoughts?
---
Will
Webmaster
FishHoo! Search Index for Fishermen
http://www.fishhoo.com/
Quote Reply
Re: [willdeb] INFO domains & send reject/modify/validate emails In reply to
ID: foreach $id (keys %delete_list) {
if ($delete_list{$id}) { next ID; }
elsif (!$in{"reason-$id"}) { next ID; }
elsif (${$links{$id}}{'Contact Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
${$links{$id}}{'Contact Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {

$errstr .= ($errstr, "<li>Email Error: <strong>$id</strong>. Record deleted, but couldn't send rejection letter. Reason: Bad Email addres: '${$links{$id}}{'Contact Email'}'.");
}
else { &html_reject_email (%{$links{$id}}); }
}

Looks like they renamed Contact Email in their links to Email. Just change it to Contact Email:

elsif (${$links{$id}}{'Contact Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || ${$links{$id}}{'Contact Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) {


Gene
"The older I get, the more I admire competence, just simple competence in any field from adultery to zoology."
Quote Reply
Re: [esm] INFO domains & send reject/modify/validate emails In reply to
It looks like it needs to be changed in 3 separate locations, starting on lines 616, 626 and 636. Do you concur?
---
Will
Webmaster
FishHoo! Search Index for Fishermen
http://www.fishhoo.com/
Quote Reply
Re: [willdeb] INFO domains & send reject/modify/validate emails In reply to
yep, I concur. But then I know very little perl


Gene
"The older I get, the more I admire competence, just simple competence in any field from adultery to zoology."
Quote Reply
Re: [esm] INFO domains & send reject/modify/validate emails In reply to
Ok I added this code:

# - addition for .info email

elsif (${
$links{$id}}{'Contact Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
${
$links{$id}}{'Contact Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
# - end addition for .info email

in the three different areas in db.pl, uploaded it to my server, and added a test site with testme@somewhere.info as the email address, and I'm still getting the error:
  • Email Error: 32156. Record deleted, but couldn't send rejection letter. Reason: Bad Email addres: 'testme@somewhere.info'.


  • any idea why?

    Quote Reply
    Re: [ShooterGirl] INFO domains & send reject/modify/validate emails In reply to
    You should not have needed to add any code. All you do is change a 3 to a 4:

    Original:

    elsif (${$links{$id}}{'Contact Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || ${$links{$id}}{'Contact Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {

    Changed to accept 4-letter TLD (.info):

    elsif (${$links{$id}}{'Contact Email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || ${$links{$id}}{'Contact Email'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) {


    Leonard
    aka PerlFlunkie