[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Net::SMTP and Mail::Internet->smtpsend in MacPerl



On Tue, Feb 16, 1999 at 04:47:20PM -0500, Chris Nandor wrote:
} At 16.34 -0500 1999.02.16, Christian Schaller wrote:
} >At 2:29 PM -0500 2/16/99, Chris Nandor wrote:
} 
} >Hm. Well, both machines have real names in real DNSes, though you seem
} >to have hit the problem on the head regardless. Sure enough, when I
} >looked at the program that was executing without delay (the one in which
} >I use Net::SMTP directly, not Mail::Internet), I found that I'd been
} >supplying the Hello parameter. If I comment it out, there's the delay
} >again.
} >
} >So it really does seem to be a DNS lookup that's the problem.
} >
} >># fail. So I put this on line 218 of Net::Domain 2.09:
} >>#
} >>#     return $fqdn = $host if ($host =~ /\./ && $host =~ /^[\d.]+$/);
} >
} >I put that in as you suggested, on line 218 of Net::Domain 2.09. It
} >didn't seem to help matters, though.
} 
} Right, if the machine actually has a name and DNS lookup problems, this
} won't help anything, since this tests to see if a name has only numbers and
} dots in it.
} 
} I don't know why you'd be having the problems, but you will hit them any
} time you try to use hostfqdn or domainname in Net::Domain.  This needs
} looking into.

I'll take a look and provide a patch to Graham.  After a quick look,
there's a lot of stuff that's useless to try under MacPerl, so it
probably shouldn't be.  In fact, it looks like if the MacOS part of
hostname is changed slightly to:

    elsif ($^O eq 'MacOS') {
	chomp ($host = `hostname`);
	$fqdn = $host;
	($host,$domain) = $fqdn =~ /^([^\.]+)\.(.*)$/;
    }

that this should bypass all of the messing around in domainname.
However, I don't know if anyone has any scripts that rely on hostname
returning the fqdn.




} 
} --
} Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
} %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])
} 
} ***** Want to unsubscribe from this list?
} ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch
} 
} 

-- 
Paul Schinder
schinder@pobox.com

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch