1N/A/*
1N/A * Copyright (c) 2010, Oracle and/or its affiliates. All rights reserved.
1N/A *
1N/A * Licensed under the Academic Free License version 2.1
1N/A */
1N/A
1N/A#include <stdio.h>
1N/A#include <stdlib.h>
1N/A#include <unistd.h>
1N/A#include <signal.h>
1N/A#include <string.h>
1N/A#include <sys/types.h>
1N/A#include <sys/socket.h>
1N/A#include <sys/ioctl.h>
1N/A#include <sys/sockio.h>
1N/A#include <net/if.h>
1N/A#include <net/if_arp.h>
1N/A#include <netinet/in.h>
1N/A#include <arpa/inet.h>
1N/A#include <netdb.h>
1N/A
1N/A#include <libhal.h>
1N/A#include <logger.h>
1N/A
1N/A#include <glib.h>
1N/A
1N/A#include "network-discovery.h"
1N/A#define NP(x) (x?x:"NULL")
1N/A
1N/Aextern int snmp_printer_info(char *hostname, char *community,
1N/A char **manufacturer, char **model, char **description,
1N/A char **serial_no, char ***command_set, char **uri);
1N/A
1N/Avoid
1N/Anetwork_device_name_to_udi(char *udi, size_t size, ...)
1N/A{
1N/A va_list ap;
1N/A char *element;
1N/A int i;
1N/A
1N/A udi[0] = '\0';
1N/A va_start(ap, size);
1N/A while ((element = va_arg(ap, char *)) != NULL) {
1N/A if (element[0] != '/')
1N/A strlcat(udi, "/", size);
1N/A strlcat(udi, element, size);
1N/A }
1N/A va_end(ap);
1N/A
1N/A for (i = 0; udi[i] != NULL; i++)
1N/A if (udi[i] == '.')
1N/A udi[i] = '_';
1N/A}
1N/A
1N/Astatic void nop(int sig) {}
1N/A
1N/Astatic int
1N/Atest_socket_access(struct in6_addr *addr, int port)
1N/A{
1N/A int sd, rc;
1N/A struct sockaddr_in6 sin6;
1N/A void (*hndlr)(int);
1N/A
1N/A memset(&sin6, 0, sizeof (sin6));
1N/A sin6.sin6_family = AF_INET6;
1N/A memcpy(&sin6.sin6_addr, addr, sizeof (*addr));
1N/A sin6.sin6_port = htons(port);
1N/A
1N/A sd = socket(AF_INET6, SOCK_STREAM, 0);
1N/A hndlr = signal(SIGALRM, nop);
1N/A alarm(1);
1N/A rc = connect(sd, (struct sockaddr *)&sin6, sizeof (sin6));
1N/A alarm(0);
1N/A if (hndlr != NULL)
1N/A signal(SIGALRM, hndlr);
1N/A close(sd);
1N/A
1N/A return ((rc < 0) ? 1 : 0);
1N/A}
1N/A
1N/Aint
1N/Ais_listening(char *hostname, int port)
1N/A{
1N/A char *uri = NULL, addr_string[INET6_ADDRSTRLEN];
1N/A struct in6_addr ipv6addr[1];
1N/A int errnum;
1N/A struct hostent *hp;
1N/A
1N/A hp = getipnodebyname(hostname, AF_INET6,
1N/A AI_ALL | AI_ADDRCONFIG | AI_V4MAPPED, &errnum);
1N/A if (hp != NULL) {
1N/A (void) memcpy(&ipv6addr, hp->h_addr_list[0], hp->h_length);
1N/A } else
1N/A return (-1);
1N/A
1N/A return (test_socket_access(ipv6addr, port));
1N/A}
1N/A
1N/Astatic char *
1N/Aaddr_to_string(char *prefix, uchar_t *mac, int mac_len, char *buf, int buf_len)
1N/A{
1N/A int i, n = 0;
1N/A
1N/A buf[0] = '\0';
1N/A if (prefix != NULL)
1N/A n = sprintf(buf, prefix);
1N/A for (i = 0; ((i < (mac_len)) && (n < buf_len)); i++)
1N/A n += sprintf(buf + n, "%2.2X", *mac++);
1N/A
1N/A return (buf);
1N/A}
1N/A
1N/Astatic char *
1N/Apseudo_serialno_from_addr(char *name)
1N/A{
1N/A int sd, rc, errnum;
1N/A char buf[128];
1N/A struct hostent *hp;
1N/A struct xarpreq ar;
1N/A
1N/A if (name == NULL)
1N/A return (NULL);
1N/A
1N/A memset(&ar, 0, sizeof (ar));
1N/A
1N/A hp = getipnodebyname(name, AF_INET6, AI_ADDRCONFIG, &errnum);
1N/A if (hp != NULL) {
1N/A struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *)&ar.xarp_pa;
1N/A
1N/A sin6->sin6_family = AF_INET6;
1N/A (void) memcpy(&sin6->sin6_addr, hp->h_addr_list[0],
1N/A hp->h_length);
1N/A } else {
1N/A struct sockaddr_in *sin = (struct sockaddr_in *)&ar.xarp_pa;
1N/A
1N/A sin->sin_family = AF_INET;
1N/A sin->sin_addr.s_addr = inet_addr(name);
1N/A }
1N/A
1N/A sd = socket(AF_INET, SOCK_DGRAM, 0);
1N/A
1N/A ar.xarp_ha.sdl_family = AF_LINK;
1N/A rc = ioctl(sd, SIOCGXARP, (caddr_t)&ar);
1N/A
1N/A close(sd);
1N/A
1N/A if (ar.xarp_flags & ATF_COM) { /* use the MAC address */
1N/A uchar_t *ea = (uchar_t *)LLADDR(&ar.xarp_ha);
1N/A
1N/A addr_to_string("LLADDR-", ea, ar.xarp_ha.sdl_alen,
1N/A buf, sizeof (buf));
1N/A
1N/A } else if (hp != NULL) { /* use the IPv6 address */
1N/A addr_to_string("IPV6ADDR-", (uchar_t *)&hp->h_addr_list[0],
1N/A hp->h_length, buf, sizeof (buf));
1N/A } else { /* use the IPv4 address */
1N/A struct sockaddr_in *sin = (struct sockaddr_in *)&ar.xarp_pa;
1N/A
1N/A addr_to_string("IPV4ADDR-", (uchar_t *)&sin->sin_addr.s_addr, 4,
1N/A buf, sizeof (buf));
1N/A }
1N/A
1N/A return (strdup(buf));
1N/A}
1N/A
1N/Aint
1N/Aadd_network_printer(LibHalContext *ctx, char *base, char *hostaddr,
1N/A char *device, char *community)
1N/A{
1N/A DBusError error;
1N/A int rc = -1;
1N/A char udi[128];
1N/A char *tmp_udi = NULL;
1N/A static char *parent = NULL;
1N/A char *manufacturer = NULL, *model = NULL, *description = NULL,
1N/A *uri = NULL, *sn, *serial;
1N/A
1N/A sn = serial = pseudo_serialno_from_addr(hostaddr);
1N/A
1N/A if (parent == NULL)
1N/A parent = getenv("UDI");
1N/A
1N/A dbus_error_init(&error);
1N/A
1N/A network_device_name_to_udi(udi, sizeof (udi), base, serial, NULL);
1N/A
1N/A if (libhal_device_exists(ctx, udi, &error) == TRUE)
1N/A goto out;
1N/A
1N/A if ((tmp_udi = libhal_new_device(ctx, &error)) == NULL)
1N/A goto out;
1N/A
1N/A snmp_printer_info(hostaddr, community, &manufacturer, &model,
1N/A &description, &serial, NULL, &uri);
1N/A
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "info.parent", parent, &error);
1N/A
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "info.category", "printer", &error);
1N/A
1N/A libhal_device_property_strlist_append(ctx, tmp_udi,
1N/A "info.capabilities", "printer", &error);
1N/A libhal_device_property_strlist_append(ctx, tmp_udi,
1N/A "info.capabilities", "network_device", &error);
1N/A
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "network_device.address", hostaddr, &error);
1N/A
1N/A if ((community != NULL) && (strcasecmp(community, "public") != 0))
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "network_device.snmp_community", community, &error);
1N/A
1N/A if ((uri != NULL) || (device != NULL))
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "printer.device", (uri ? uri : device), &error);
1N/A
1N/A if (serial != NULL)
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "printer.serial", serial, &error);
1N/A
1N/A if (manufacturer != NULL)
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "printer.vendor", manufacturer, &error);
1N/A
1N/A if (model != NULL)
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "printer.product", model, &error);
1N/A
1N/A if (description != NULL)
1N/A libhal_device_set_property_string(ctx, tmp_udi,
1N/A "printer.description", description, &error);
1N/A
1N/A /* commit the changes to the new UDI */
1N/A rc = libhal_device_commit_to_gdl(ctx, tmp_udi, udi, &error);
1N/A
1N/Aout:
1N/A HAL_DEBUG(("result: %s (%s): %s, %s, %s, %s, %s", hostaddr, udi,
1N/A NP(manufacturer), NP(model), NP(description), NP(serial),
1N/A NP(uri)));
1N/A
1N/A if (tmp_udi != NULL)
1N/A free(tmp_udi);
1N/A if (manufacturer != NULL)
1N/A free(manufacturer);
1N/A if (model != NULL)
1N/A free(model);
1N/A if (description != NULL)
1N/A free(description);
1N/A if (uri != NULL)
1N/A free(uri);
1N/A if (sn != NULL)
1N/A free(sn);
1N/A
1N/A if (dbus_error_is_set(&error)) {
1N/A HAL_WARNING(("%s: %s", error.name, error.message));
1N/A dbus_error_free(&error);
1N/A }
1N/A
1N/A HAL_DEBUG(("add: %s (%s)", hostaddr, udi));
1N/A
1N/A return (rc);
1N/A}
1N/A
1N/Astatic int
1N/Anumber_of_interfaces(int s)
1N/A{
1N/A int rc = -1;
1N/A struct lifnum n;
1N/A
1N/A memset(&n, 0 , sizeof (n));
1N/A n.lifn_family = AF_INET;
1N/A if (ioctl(s, SIOCGLIFNUM, (char *)&n) == 0)
1N/A rc = n.lifn_count;
1N/A
1N/A return (rc);
1N/A}
1N/A
1N/Astatic char *
1N/Abroadcast_address(int s, char *ifname)
1N/A{
1N/A char *result = NULL;
1N/A struct lifreq r;
1N/A
1N/A memset(&r, 0, sizeof (r));
1N/A strlcpy(r.lifr_name, ifname, sizeof (r.lifr_name));
1N/A if (ioctl(s, SIOCGLIFFLAGS, (caddr_t)&r) < 0) {
1N/A HAL_DEBUG(("broadcast_address: ioctl(SIOCGLIFFLAGS) failed."));
1N/A return (NULL);
1N/A }
1N/A if ((r.lifr_flags & (IFF_UP | IFF_LOOPBACK)) != IFF_UP) {
1N/A return (NULL);
1N/A }
1N/A if (ioctl(s, SIOCGLIFBRDADDR, (char *)&r) >= 0) {
1N/A char buf[INET_ADDRSTRLEN];
1N/A struct sockaddr_in *s =
1N/A (struct sockaddr_in *)&r.lifr_broadaddr;
1N/A result = (char *)inet_ntop(AF_INET,
1N/A &s->sin_addr, buf, sizeof (buf));
1N/A if (result != NULL)
1N/A result = strdup(result);
1N/A }
1N/A
1N/A return (result);
1N/A}
1N/A
1N/AGList *
1N/Abroadcast_addresses()
1N/A{
1N/A GList *result = NULL;
1N/A int s;
1N/A struct lifconf c;
1N/A int count;
1N/A
1N/A if ((s = socket(AF_INET, SOCK_DGRAM, 0)) < 0)
1N/A return (NULL);
1N/A
1N/A count = number_of_interfaces(s);
1N/A
1N/A memset(&c, 0, sizeof (c));
1N/A c.lifc_family = AF_INET;
1N/A c.lifc_flags = 0;
1N/A c.lifc_buf = calloc(count, sizeof (struct lifreq));
1N/A c.lifc_len = (count * sizeof (struct lifreq));
1N/A
1N/A if (ioctl(s, SIOCGLIFCONF, (char *)&c) == 0) {
1N/A struct lifreq *r = c.lifc_req;
1N/A
1N/A for (count = c.lifc_len / sizeof (struct lifreq);
1N/A count > 0; count--, r++) {
1N/A char *address = broadcast_address(s, r->lifr_name);
1N/A
1N/A if (address != NULL) /* add it to the list */
1N/A result = g_list_append(result, address);
1N/A }
1N/A }
1N/A free(c.lifc_buf);
1N/A close(s);
1N/A
1N/A return (result);
1N/A}