usr/src/lib/print/libpapi-common/common/misc.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21
  22 /*
  23  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  *
  26  */
  27
  28 /* $Id: misc.c 146 2006-03-24 00:26:54Z njacobs $ */
  29
  30 #pragma ident   "%Z%%M% %I%     %E% SMI"
  31
  32 /*LINTLIBRARY*/
  33
  34 #include <stdio.h>
  35 #include <stdlib.h>
  36 #include <unistd.h>
  37 #include <string.h>
  38 #include <ctype.h>
  39 #include <sys/types.h>
  40 #include <papi.h>
  41 #include <uri.h>
  42 #include <config-site.h>
  43
  44 /*
  45  * The implementations of strlcpy() and strlcat() have been taken directly
  46  * from OpenSolaris.  The contents of this file originated from
  47  *     usr/src/lib/libc/port/gen/strlcpy.c
  48  *     usr/src/lib/libc/port/gen/strcat.c
  49  */
  50
  51 #ifndef HAVE_STRLCPY
  52 size_t
  53 strlcpy(char *dst, const char *src, size_t len)
  54 {
  55         size_t slen = strlen(src);
  56         size_t copied;
  57
  58         if (len == 0)
  59                 return (slen);
  60
  61         if (slen >= len)
  62                 copied = len - 1;
  63         else
  64                 copied = slen;
  65         (void) memcpy(dst, src, copied);
  66         dst[copied] = '\0';
  67         return (slen);
  68 }
  69 #endif
  70
  71 #ifndef HAVE_STRLCAT
  72 size_t
  73 strlcat(char *dst, const char *src, size_t dstsize)
  74 {
  75         char *df = dst;
  76         size_t left = dstsize;
  77         size_t l1;
  78         size_t l2 = strlen(src);
  79         size_t copied;
  80
  81         while (left-- != 0 && *df != '\0')
  82                 df++;
  83         l1 = df - dst;
  84         if (dstsize == l1)
  85                 return (l1 + l2);
  86
  87         copied = l1 + l2 >= dstsize ? dstsize - l1 - 1 : l2;
  88         (void) memcpy(dst + l1, src, copied);
  89         dst[l1+copied] = '\0';
  90         return (l1 + l2);
  91 }
  92 #endif
  93
  94 #if defined(__sun) && defined(__SVR4)
  95 #include <sys/systeminfo.h>
  96 #include <sys/socket.h>
  97 #include <sys/ioctl.h>
  98 #include <sys/sockio.h>
  99 #include <net/if.h>
 100 #include <netinet/in.h>
 101 #include <arpa/inet.h>
 102 #include <netdb.h>
 103
 104 static struct in6_addr **
 105 local_interfaces()
 106 {
 107         struct in6_addr **result = NULL;
 108         int s;
 109         struct lifnum n;
 110         struct lifconf c;
 111         struct lifreq *r;
 112         int count;
 113
 114         /* we need a socket to get the interfaces */
 115         if ((s = socket(AF_INET, SOCK_DGRAM, 0)) < 0)
 116                 return (0);
 117
 118         /* get the number of interfaces */
 119         memset(&n, 0, sizeof (n));
 120         n.lifn_family = AF_UNSPEC;
 121         if (ioctl(s, SIOCGLIFNUM, (char *)&n) < 0) {
 122                 close(s);
 123                 return (0);     /* no interfaces */
 124         }
 125
 126         /* get the interface(s) configuration */
 127         memset(&c, 0, sizeof (c));
 128         c.lifc_family = AF_UNSPEC;
 129         c.lifc_buf = calloc(n.lifn_count, sizeof (struct lifreq));
 130         c.lifc_len = (n.lifn_count * sizeof (struct lifreq));
 131         if (ioctl(s, SIOCGLIFCONF, (char *)&c) < 0) {
 132                 free(c.lifc_buf);
 133                 close(s);
 134                 return (0);     /* can't get interface(s) configuration */
 135         }
 136         close(s);
 137
 138         r = c.lifc_req;
 139         for (count = c.lifc_len / sizeof (struct lifreq);
 140             count > 0; count--, r++) {
 141                 struct in6_addr v6[1], *addr = NULL;
 142
 143                 switch (r->lifr_addr.ss_family) {
 144                 case AF_INET: {
 145                         struct sockaddr_in *s =
 146                             (struct sockaddr_in *)&r->lifr_addr;
 147                         IN6_INADDR_TO_V4MAPPED(&s->sin_addr, v6);
 148                         addr = v6;
 149                         }
 150                         break;
 151                 case AF_INET6: {
 152                         struct sockaddr_in6 *s =
 153                             (struct sockaddr_in6 *)&r->lifr_addr;
 154                         addr = &s->sin6_addr;
 155                         }
 156                         break;
 157                 }
 158
 159                 if (addr != NULL) {
 160                         struct in6_addr *a = malloc(sizeof (*a));
 161
 162                         memcpy(a, addr, sizeof (*a));
 163                         list_append(&result, a);
 164                 }
 165         }
 166         free(c.lifc_buf);
 167
 168         return (result);
 169 }
 170
 171 static int
 172 match_interfaces(char *host)
 173 {
 174         struct in6_addr **lif = local_interfaces();
 175         struct hostent *hp;
 176         int rc = 0;
 177         int errnum;
 178
 179         /* are there any local interfaces */
 180         if (lif == NULL)
 181                 return (0);
 182
 183         /* cycle through the host db addresses */
 184         hp = getipnodebyname(host, AF_INET6, AI_ALL|AI_V4MAPPED, &errnum);
 185         if (hp != NULL) {
 186                 struct in6_addr **tmp = (struct in6_addr **)hp->h_addr_list;
 187                 int i;
 188
 189                 for (i = 0; ((rc == 0) && (tmp[i] != NULL)); i++) {
 190                         int j;
 191
 192                         for (j = 0; ((rc == 0) && (lif[j] != NULL)); j++)
 193                                 if (memcmp(tmp[i], lif[j],
 194                                     sizeof (struct in6_addr)) == 0)
 195                                         rc = 1;
 196                 }
 197         }
 198         free(lif);
 199
 200         return (rc);
 201 }
 202 #endif
 203
 204 int
 205 is_localhost(char *host)
 206 {
 207         char hostname[BUFSIZ];
 208
 209         /* is it "localhost" */
 210         if (strncasecmp(host, "localhost", 10) == 0)
 211                 return (1);
 212
 213         /* is it the {nodename} */
 214         sysinfo(SI_HOSTNAME, hostname, sizeof (hostname));
 215         if (strncasecmp(host, hostname, strlen(hostname)) == 0)
 216                 return (1);
 217
 218 #if defined(__sun) && defined(__SVR4)
 219         /* does it match one of the host's configured interfaces */
 220         if (match_interfaces(host) != 0)
 221                 return (1);
 222 #endif
 223         return (0);
 224 }