src/sm_genid.c

   1 /*
   2
   3 Copyright (c) 2002, Oracle and/or its affiliates. All rights reserved.
   4
   5 Permission is hereby granted, free of charge, to any person obtaining a
   6 copy of this software and associated documentation files (the "Software"),
   7 to deal in the Software without restriction, including without limitation
   8 the rights to use, copy, modify, merge, publish, distribute, sublicense,
   9 and/or sell copies of the Software, and to permit persons to whom the
  10 Software is furnished to do so, subject to the following conditions:
  11
  12 The above copyright notice and this permission notice (including the next
  13 paragraph) shall be included in all copies or substantial portions of the
  14 Software.
  15
  16 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  17 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  18 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
  19 THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  20 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  21 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
  22 DEALINGS IN THE SOFTWARE.
  23
  24 */
  25 /*
  26
  27 Copyright 1993, 1998  The Open Group
  28
  29 Permission to use, copy, modify, distribute, and sell this software and its
  30 documentation for any purpose is hereby granted without fee, provided that
  31 the above copyright notice appear in all copies and that both that
  32 copyright notice and this permission notice appear in supporting
  33 documentation.
  34
  35 The above copyright notice and this permission notice shall be included in
  36 all copies or substantial portions of the Software.
  37
  38 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  39 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  40 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
  41 OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  42 AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  43 CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  44
  45 Except as contained in this notice, the name of The Open Group shall not be
  46 used in advertising or otherwise to promote the sale, use or other dealings
  47 in this Software without prior written authorization from The Open Group.
  48
  49 */
  50
  51 /*
  52  * Author: Ralph Mor, X Consortium
  53  */
  54
  55 #ifdef WIN32
  56 # define _WILLWINSOCK_
  57 #endif
  58 #ifdef HAVE_CONFIG_H
  59 # include <config.h>
  60 #endif
  61 #include <X11/SM/SMlib.h>
  62 #include "SMlibint.h"
  63 #ifdef XTHREADS
  64 # include <X11/Xthreads.h>
  65 #endif
  66 #include <stdio.h>
  67
  68 #include <time.h>
  69 #define Time_t time_t
  70
  71 #ifndef WIN32
  72
  73 # if defined(TCPCONN) || defined(STREAMSCONN)
  74 #  include <sys/socket.h>
  75 #  include <netinet/in.h>
  76 #  include <arpa/inet.h>
  77 #  define XOS_USE_NO_LOCKING
  78 #  define X_INCLUDE_NETDB_H
  79 #  include <X11/Xos_r.h>
  80 # endif
  81
  82 #else /* WIN32 */
  83
  84 # include <X11/Xwinsock.h>
  85 # include <X11/Xw32defs.h>
  86 # define X_INCLUDE_NETDB_H
  87 # define XOS_USE_MTSAFE_NETDBAPI
  88 # include <X11/Xos_r.h>
  89
  90 #endif /* WIN32 */
  91
  92 #ifdef MNX_TCPCONN
  93 # include <net/gen/netdb.h>
  94
  95 # define TCPCONN
  96 #endif
  97
  98 #if defined(HAVE_UUID_CREATE)
  99 # include <uuid.h>
 100 #elif defined(HAVE_LIBUUID)
 101 # include <uuid/uuid.h>
 102 #endif
 103
 104 \f
 105 char *
 106 SmsGenerateClientID(SmsConn smsConn)
 107 {
 108 #if defined(HAVE_UUID_CREATE)
 109     char *id;
 110     char **temp;
 111     uuid_t uuid;
 112     uint32_t status;
 113
 114     uuid_create(&uuid, &status);
 115
 116     uuid_to_string(&uuid, &temp, &status);
 117
 118     if ((id = malloc (strlen (temp) + 2)) != NULL)
 119     {
 120         id[0] = '2';
 121         strcpy (id+1, temp);
 122     }
 123
 124     free(temp);
 125
 126     return id;
 127 #elif defined(HAVE_LIBUUID)
 128     char *id;
 129     char temp[256];
 130     uuid_t uuid;
 131
 132     uuid_generate(uuid);
 133
 134     temp[0] = '2';
 135     temp[1] = '\0';
 136     uuid_unparse_lower(uuid, &temp[1]);
 137
 138     id = strdup (temp);
 139
 140     return id;
 141 #else
 142 # if defined(TCPCONN) || defined(STREAMSCONN)
 143     static const char hex[] = "0123456789abcdef";
 144     char hostname[256];
 145     char address[64], *addr_ptr = address;
 146     char temp[256];
 147     char *id;
 148     static int sequence = 0;
 149     char* inet_addr;
 150     char *ptr1;
 151     unsigned char decimal[4];
 152     int i, len;
 153     struct in_addr *haddr = NULL;
 154 #  if defined(IPv6) && defined(AF_INET6)
 155     struct addrinfo *ai, *first_ai;
 156 #  endif
 157
 158     if (gethostname (hostname, sizeof (hostname)))
 159         return (NULL);
 160
 161 #  if defined(IPv6) && defined(AF_INET6)
 162     if (getaddrinfo(hostname,NULL,NULL,&ai) != 0)
 163         return NULL;
 164
 165     for (first_ai = ai; ai != NULL; ai = ai->ai_next) {
 166         if ( (ai->ai_family == AF_INET) || (ai->ai_family == AF_INET6) )
 167             break;
 168     }
 169     if (ai == NULL) {
 170         freeaddrinfo(first_ai);
 171         return NULL;
 172     }
 173
 174     if (ai->ai_family == AF_INET6) {
 175         unsigned char *cp = (unsigned char *) &((struct sockaddr_in6 *)ai->ai_addr)->sin6_addr.s6_addr;
 176
 177         *addr_ptr++ = '6';      /* IPv6 address code */
 178
 179         for (i = 0 ; i < 16 ; i++) {
 180             *addr_ptr++ = hex[cp[i] >> 4];
 181             *addr_ptr++ = hex[cp[i] & 0x0f];
 182         }
 183
 184         *addr_ptr++ = '\0';
 185
 186     } else { /* Fall through to IPv4 address handling */
 187         haddr = &((struct sockaddr_in *)ai->ai_addr)->sin_addr;
 188 #  else
 189 #   ifdef XTHREADS_NEEDS_BYNAMEPARAMS
 190         _Xgethostbynameparams hparams;
 191 #   endif
 192         struct hostent *hostp;
 193
 194         if ((hostp = _XGethostbyname (hostname,hparams)) != NULL)
 195             haddr = (struct in_addr *)(hostp->h_addr);
 196         else
 197             return NULL;
 198 #  endif
 199
 200         inet_addr = inet_ntoa (*haddr);
 201         for (i = 0, ptr1 = inet_addr; i < 3; i++)
 202         {
 203             char temp4[4];
 204             char *ptr2 = strchr (ptr1, '.');
 205
 206             len = ptr2 - ptr1;
 207             if (!ptr2 || len > 3) {
 208 #  if defined(IPv6) && defined(AF_INET6)
 209                 freeaddrinfo(first_ai);
 210 #  endif
 211                 return (NULL);
 212             }
 213             strncpy (temp4, ptr1, len);
 214             temp4[len] = '\0';
 215             decimal[i] = atoi (temp4);
 216             ptr1 = ptr2 + 1;
 217         }
 218
 219         decimal[3] = atoi (ptr1);
 220
 221         *addr_ptr++ = '1';
 222
 223         for (i = 0; i < 4; i++) {
 224             *addr_ptr++ = hex[decimal[i] >> 4];
 225             *addr_ptr++ = hex[decimal[i] & 0x0f];
 226         }
 227
 228         *addr_ptr++ = '\0';
 229
 230 #  if defined(IPv6) && defined(AF_INET6)
 231     }
 232     freeaddrinfo(first_ai);
 233 #  endif
 234
 235     sprintf (temp, "1%s%.13ld%.10ld%.4d", address, (long)time((Time_t*)0),
 236              (long)getpid(), sequence);
 237
 238     if (++sequence > 9999)
 239         sequence = 0;
 240
 241     id = strdup (temp);
 242
 243     return (id);
 244 # else
 245     return (NULL);
 246 # endif
 247 #endif
 248 }