MacTCP returns canonical names with a trailing dot. We don't want this, so

strip it off.

[originally from svn r2612]

diff --git a/mac/mtcpnet.c b/mac/mtcpnet.c
index 6cddc10801a98d6fe2cea4ef4cc778480c8b1100..5c256655139f1c4f84eb9f19338d42ecc21adecd 100644 (file)
--- a/mac/mtcpnet.c
+++ b/mac/mtcpnet.c
@@ -276,6 +276,7 @@ SockAddr mactcp_namelookup(char const *host, char **canonicalname)
     OSErr err;
     volatile int done = FALSE;
     char *realhost;
+    int realhostlen;
 
     /* Clear the structure. */
     memset(ret, 0, sizeof(struct SockAddr_tag));
@@ -293,9 +294,13 @@ SockAddr mactcp_namelookup(char const *host, char **canonicalname)
            continue;
     ret->resolved = TRUE;
     
-    if (ret->hostinfo.rtnCode == noErr)
+    if (ret->hostinfo.rtnCode == noErr) {
        realhost = ret->hostinfo.cname;
-    else
+       /* MacTCP puts trailing dots on canonical names. */
+       realhostlen = strlen(realhost);
+       if (realhost[realhostlen - 1] == '.')
+           realhost[realhostlen - 1] = '\0';
+    } else
        realhost = "";
     *canonicalname = smalloc(1+strlen(realhost));
     strcpy(*canonicalname, realhost);