#include <arpa/inet.h>

#include <net/if.h>

#include <getopt.h>

#include "sd-bus.h"

#include "bus-util.h"

#include "bus-error.h"

#include "bus-errors.h"

#include "in-addr-util.h"

#include "af-list.h"

#include "build.h"

#include "resolved-dns-packet.h"

#define DNS_CALL_TIMEOUT_USEC (45*USEC_PER_SEC)

static int arg_family = AF_UNSPEC;

static int arg_ifindex = 0;

static uint16_t arg_type = 0;

static uint16_t arg_class = 0;

static int resolve_host(sd_bus *bus, const char *name) {

_cleanup_bus_message_unref_ sd_bus_message *req = NULL, *reply = NULL;

_cleanup_bus_error_free_ sd_bus_error error = SD_BUS_ERROR_NULL;

const char *canonical = NULL;

unsigned c = 0;

int r;

assert(name);

log_debug("Resolving %s (family %s, ifindex %i).", name, af_to_name(arg_family) ?: "*", arg_ifindex);

r = sd_bus_message_new_method_call(

bus,

&req,

"org.freedesktop.resolve1",

"/org/freedesktop/resolve1",

"org.freedesktop.resolve1.Manager",

"ResolveHostname");

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_set_auto_start(req, false);

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_append(req, "si", name, arg_family);

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_call(bus, req, DNS_CALL_TIMEOUT_USEC, &error, &reply);

if (r < 0) {

log_error("%s: resolve call failed: %s", name, bus_error_message(&error, r));

return r;

}

r = sd_bus_message_enter_container(reply, 'a', "(iayi)");

if (r < 0)

return bus_log_parse_error(r);

while ((r = sd_bus_message_enter_container(reply, 'r', "iayi")) > 0) {

const void *a;

int family, ifindex;

size_t sz;

_cleanup_free_ char *pretty = NULL;

char ifname[IF_NAMESIZE] = "";

r = sd_bus_message_read(reply, "i", &family);

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_read_array(reply, 'y', &a, &sz);

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_read(reply, "i", &ifindex);

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_exit_container(reply);

if (r < 0)

return bus_log_parse_error(r);

if (!IN_SET(family, AF_INET, AF_INET6)) {

log_debug("%s: skipping entry with family %hu (%s)", name, family, af_to_name(family) ?: "unknown");

continue;

}

if (sz != FAMILY_ADDRESS_SIZE(family)) {

log_error("%s: systemd-resolved returned address of invalid size %zu for family %s",

name, sz, af_to_name(family) ?: "unknown");

continue;

}

if (ifindex < 0) {

log_error("%s: systemd-resolved returned invalid interface index %i",

name, ifindex);

continue;

}

if (ifindex > 0) {

char *t;

t = if_indextoname(ifindex, ifname);

if (!t) {

log_error("Failed to resolve interface name for index %i", ifindex);

continue;

}

}

if (arg_ifindex > 0 && ifindex > 0 && ifindex != arg_ifindex) {

log_debug("%s: skipping entry with ifindex %i (%s)",

name, ifindex, ifname);

continue;

}

r = in_addr_to_string(family, a, &pretty);

if (r < 0) {

log_error("%s: failed to print address: %s", name, strerror(-r));

continue;

}

printf("%*s%s %s%s%s\n",

(int) strlen(name), c == 0 ? name : "", c == 0 ? ":" : " ",

pretty,

isempty(ifname) ? "" : "%", ifname);

c++;

}

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_exit_container(reply);

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_read(reply, "s", &canonical);

if (r < 0)

return bus_log_parse_error(r);

if (!streq(name, canonical)) {

printf("%*s%s (%s)\n",

(int) strlen(name), c == 0 ? name : "", c == 0 ? ":" : " ",

canonical);

}

if (c == 0) {

log_error("%s: no addresses found", name);

return -ESRCH;

}

return 0;

}

static int resolve_address(sd_bus *bus, int family, const union in_addr_union *address, int ifindex) {

_cleanup_bus_message_unref_ sd_bus_message *req = NULL, *reply = NULL;

_cleanup_bus_error_free_ sd_bus_error error = SD_BUS_ERROR_NULL;

_cleanup_free_ char *pretty = NULL;

char ifname[IF_NAMESIZE] = "";

unsigned c = 0;

const char *n;

int r;

assert(bus);

assert(IN_SET(family, AF_INET, AF_INET6));

assert(address);

r = in_addr_to_string(family, address, &pretty);

if (r < 0)

return log_oom();

if (ifindex > 0) {

char *t;

t = if_indextoname(ifindex, ifname);

if (!t) {

log_error("Failed to resolve interface name for index %i", ifindex);

return -errno;

}

}

log_debug("Resolving %s%s%s.", pretty, isempty(ifname) ? "" : "%", ifname);

r = sd_bus_message_new_method_call(

bus,

&req,

"org.freedesktop.resolve1",

"/org/freedesktop/resolve1",

"org.freedesktop.resolve1.Manager",

"ResolveAddress");

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_set_auto_start(req, false);

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_append(req, "i", family);

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_append_array(req, 'y', address, FAMILY_ADDRESS_SIZE(family));

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_append(req, "i", ifindex);

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_call(bus, req, DNS_CALL_TIMEOUT_USEC, &error, &reply);

if (r < 0) {

log_error("%s: resolve call failed: %s", pretty, bus_error_message(&error, r));

return r;

}

r = sd_bus_message_enter_container(reply, 'a', "s");

if (r < 0)

return bus_log_create_error(r);

while ((r = sd_bus_message_read(reply, "s", &n)) > 0) {

printf("%*s%s%s%s %s\n",

(int) strlen(pretty), c == 0 ? pretty : "",

isempty(ifname) ? "" : "%", ifname,

c == 0 ? ":" : " ",

n);

c++;

}

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_exit_container(reply);

if (r < 0)

return bus_log_parse_error(r);

if (c == 0) {

log_error("%s: no names found", pretty);

return -ESRCH;

}

return 0;

}

static int parse_address(const char *s, int *family, union in_addr_union *address, int *ifindex) {

const char *percent, *a;

int ifi = 0;

int r;

percent = strchr(s, '%');

if (percent) {

r = safe_atoi(percent+1, &ifi);

if (r < 0 || ifi <= 0) {

ifi = if_nametoindex(percent+1);

if (ifi <= 0)

return -EINVAL;

}

a = strndupa(s, percent - s);

} else

a = s;

r = in_addr_from_string_auto(a, family, address);

if (r < 0)

return r;

*ifindex = ifi;

return 0;

}

static int resolve_record(sd_bus *bus, const char *name) {

_cleanup_bus_message_unref_ sd_bus_message *req = NULL, *reply = NULL;

_cleanup_bus_error_free_ sd_bus_error error = SD_BUS_ERROR_NULL;

unsigned n = 0;

int r;

assert(name);

log_debug("Resolving %s %s %s.", name, dns_class_to_string(arg_class), dns_type_to_string(arg_type));

r = sd_bus_message_new_method_call(

bus,

&req,

"org.freedesktop.resolve1",

"/org/freedesktop/resolve1",

"org.freedesktop.resolve1.Manager",

"ResolveRecord");

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_set_auto_start(req, false);

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_message_append(req, "sqq", name, arg_class, arg_type);

if (r < 0)

return bus_log_create_error(r);

r = sd_bus_call(bus, req, DNS_CALL_TIMEOUT_USEC, &error, &reply);

if (r < 0) {

log_error("%s: resolve call failed: %s", name, bus_error_message(&error, r));

return r;

}

r = sd_bus_message_enter_container(reply, 'a', "(qqay)");

if (r < 0)

return bus_log_parse_error(r);

while ((r = sd_bus_message_enter_container(reply, 'r', "qqay")) > 0) {

_cleanup_(dns_resource_record_unrefp) DnsResourceRecord *rr = NULL;

_cleanup_(dns_packet_unrefp) DnsPacket *p = NULL;

_cleanup_free_ char *s = NULL;

uint16_t c, t;

const void *d;

size_t l;

r = sd_bus_message_read(reply, "qq", &c, &t);

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_read_array(reply, 'y', &d, &l);

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_exit_container(reply);

if (r < 0)

return bus_log_parse_error(r);

r = dns_packet_new(&p, DNS_PROTOCOL_DNS, 0);

if (r < 0)

return log_oom();

r = dns_packet_append_blob(p, d, l, NULL);

if (r < 0)

return log_oom();

r = dns_packet_read_rr(p, &rr, NULL);

if (r < 0) {

log_error("Failed to parse RR.");

return r;

}

r = dns_resource_record_to_string(rr, &s);

if (r < 0) {

log_error("Failed to format RR.");

return r;

}

printf("%s\n", s);

n++;

}

if (r < 0)

return bus_log_parse_error(r);

r = sd_bus_message_exit_container(reply);

if (r < 0)

return bus_log_parse_error(r);

if (n == 0) {

log_error("%s: no records found", name);

return -ESRCH;

}

return 0;

}

static void help(void) {

printf("%s [OPTIONS...]\n\n"

"Resolve IPv4 or IPv6 addresses.\n\n"

" -h --help Show this help\n"

" --version Show package version\n"

" -4 Resolve IPv4 addresses\n"

" -6 Resolve IPv6 addresses\n"

" -i INTERFACE Filter by interface\n"

" -t --type=TYPE Query RR with DNS type\n"

" -c --class=CLASS Query RR with DNS class\n"

, program_invocation_short_name);

}

static int parse_argv(int argc, char *argv[]) {

enum {

ARG_VERSION = 0x100,

};

static const struct option options[] = {

{ "help", no_argument, NULL, 'h' },

{ "version", no_argument, NULL, ARG_VERSION },

{ "type", no_argument, NULL, 't' },

{ "class", no_argument, NULL, 'c' },

{}

};

int c, r;

assert(argc >= 0);

assert(argv);

while ((c = getopt_long(argc, argv, "h46i:t:c:", options, NULL)) >= 0) {

switch(c) {

case 'h':

help();

return 0; /* done */;

case ARG_VERSION:

puts(PACKAGE_STRING);

puts(SYSTEMD_FEATURES);

return 0 /* done */;

case '4':

arg_family = AF_INET;

break;

case '6':

arg_family = AF_INET6;

break;

case 'i':

arg_ifindex = if_nametoindex(optarg);

if (arg_ifindex <= 0) {

log_error("Unknown interfaces %s: %m", optarg);

return -errno;

}

break;

case 't':

r = dns_type_from_string(optarg, &arg_type);

if (r < 0) {

log_error("Failed to parse RR record type %s", optarg);

return r;

}

break;

case 'c':

r = dns_class_from_string(optarg, &arg_class);

if (r < 0) {

log_error("Failed to parse RR record class %s", optarg);

return r;

}

break;

case '?':

return -EINVAL;

default:

assert_not_reached("Unhandled option");

}

}

if (arg_type == 0 && arg_class != 0) {

log_error("--class= may only be used in conjunction with --type=");

return -EINVAL;

}

if (arg_type != 0 && arg_class == 0)

arg_class = DNS_CLASS_IN;

return 1 /* work to do */;

}

int main(int argc, char **argv) {

_cleanup_bus_unref_ sd_bus *bus = NULL;

int r;

log_parse_environment();

log_open();

r = parse_argv(argc, argv);

if (r <= 0)

goto finish;

if (optind >= argc) {

log_error("No arguments passed");

r = -EINVAL;

goto finish;

}

r = sd_bus_open_system(&bus);

if (r < 0) {

log_error("sd_bus_open_system: %s", strerror(-r));

goto finish;

}

while (argv[optind]) {

int family, ifindex, k;

union in_addr_union a;

if (arg_type != 0)

k = resolve_record(bus, argv[optind]);

else {

k = parse_address(argv[optind], &family, &a, &ifindex);

if (k >= 0)

k = resolve_address(bus, family, &a, ifindex);

else

k = resolve_host(bus, argv[optind]);

}

if (r == 0)

r = k;

optind++;

}

finish:

return r == 0 ? EXIT_SUCCESS : EXIT_FAILURE;

}