dirmngr: Implement a getnameinfo wrapper.
[gnupg.git] / dirmngr / t-dns-stuff.c
1 /* t-dns-cert.c - Module test for dns-stuff.c
2  * Copyright (C) 2011 Free Software Foundation, Inc.
3  * Copyright (C) 2011, 2015 Werner Koch
4  *
5  * This file is part of GnuPG.
6  *
7  * GnuPG is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * GnuPG is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, see <http://www.gnu.org/licenses/>.
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <assert.h>
25
26
27 #include "util.h"
28 #include "dns-stuff.h"
29
30 #define PGM "t-dns-stuff"
31
32 static int verbose;
33 static int debug;
34
35
36
37 int
38 main (int argc, char **argv)
39 {
40   int last_argc = -1;
41   gpg_error_t err;
42   int any_options = 0;
43   int opt_tor = 0;
44   int opt_cert = 0;
45   int opt_srv = 0;
46   int opt_bracket = 0;
47   char const *name = NULL;
48
49   gpgrt_init ();
50   log_set_prefix (PGM, GPGRT_LOG_WITH_PREFIX);
51   if (argc)
52     { argc--; argv++; }
53   while (argc && last_argc != argc )
54     {
55       last_argc = argc;
56       if (!strcmp (*argv, "--"))
57         {
58           argc--; argv++;
59           break;
60         }
61       else if (!strcmp (*argv, "--help"))
62         {
63           fputs ("usage: " PGM " [HOST]\n"
64                  "Options:\n"
65                  "  --verbose         print timings etc.\n"
66                  "  --debug           flyswatter\n"
67                  "  --use-tor         use Tor\n"
68                  "  --bracket         enclose v6 addresses in brackets\n"
69                  "  --cert            lookup a CERT RR\n"
70                  "  --srv             lookup a SRV RR\n"
71                  , stdout);
72           exit (0);
73         }
74       else if (!strcmp (*argv, "--verbose"))
75         {
76           verbose++;
77           argc--; argv++;
78         }
79       else if (!strcmp (*argv, "--debug"))
80         {
81           verbose += 2;
82           debug++;
83           argc--; argv++;
84         }
85       else if (!strcmp (*argv, "--use-tor"))
86         {
87           opt_tor = 1;
88           argc--; argv++;
89         }
90       else if (!strcmp (*argv, "--bracket"))
91         {
92           opt_bracket = 1;
93           argc--; argv++;
94         }
95       else if (!strcmp (*argv, "--cert"))
96         {
97           any_options = opt_cert = 1;
98           argc--; argv++;
99         }
100       else if (!strcmp (*argv, "--srv"))
101         {
102           any_options = opt_srv = 1;
103           argc--; argv++;
104         }
105       else if (!strncmp (*argv, "--", 2))
106         {
107           fprintf (stderr, PGM ": unknown option '%s'\n", *argv);
108           exit (1);
109         }
110     }
111
112   if (!argc && !any_options)
113     {
114       opt_cert = 1;
115       name = "simon.josefsson.org";
116     }
117   else if (argc == 1)
118     name = *argv;
119   else
120     {
121       fprintf (stderr, PGM ": none or too many host names given\n");
122       exit (1);
123     }
124
125   if (opt_tor)
126     {
127       err = enable_dns_tormode ();
128       if (err)
129         {
130           fprintf (stderr, "error switching into Tor mode: %s\n",
131                    gpg_strerror (err));
132           exit (1);
133         }
134     }
135
136   if (opt_cert)
137     {
138       unsigned char *fpr;
139       size_t fpr_len;
140       char *url;
141       void *key;
142       size_t keylen;
143
144       printf ("CERT lookup on '%s'\n", name);
145
146       err = get_dns_cert (name, DNS_CERTTYPE_ANY, &key, &keylen,
147                           &fpr, &fpr_len, &url);
148       if (err)
149         printf ("get_dns_cert failed: %s <%s>\n",
150                 gpg_strerror (err), gpg_strsource (err));
151       else if (key)
152         {
153           printf ("Key found (%u bytes)\n", (unsigned int)keylen);
154         }
155       else
156         {
157           if (fpr)
158             {
159               int i;
160
161               printf ("Fingerprint found (%d bytes): ", (int)fpr_len);
162               for (i = 0; i < fpr_len; i++)
163                 printf ("%02X", fpr[i]);
164               putchar ('\n');
165             }
166           else
167             printf ("No fingerprint found\n");
168
169           if (url)
170             printf ("URL found: %s\n", url);
171           else
172             printf ("No URL found\n");
173
174         }
175
176       xfree (key);
177       xfree (fpr);
178       xfree (url);
179     }
180   else if (opt_srv)
181     {
182       struct srventry *srv;
183       int rc,i;
184
185       rc=getsrv("_hkp._tcp.wwwkeys.pgp.net",&srv);
186       printf("Count=%d\n\n",rc);
187       for(i=0;i<rc;i++)
188         {
189           printf("priority=%hu\n",srv[i].priority);
190           printf("weight=%hu\n",srv[i].weight);
191           printf("port=%hu\n",srv[i].port);
192           printf("target=%s\n",srv[i].target);
193           printf("\n");
194         }
195
196       xfree(srv);
197     }
198   else /* Standard lookup.  */
199     {
200       char *cname;
201       dns_addrinfo_t aibuf, ai;
202       char *host;
203
204       printf ("Lookup on '%s'\n", name);
205
206       err = resolve_dns_name (name, 0, 0, SOCK_STREAM, &aibuf, &cname);
207       if (err)
208         {
209           fprintf (stderr, PGM": resolving '%s' failed: %s\n",
210                    name, gpg_strerror (err));
211           exit (1);
212         }
213
214       if (cname)
215         printf ("cname: %s\n", cname);
216       for (ai = aibuf; ai; ai = ai->next)
217         {
218           printf ("%s %3d %3d   ",
219                   ai->family == AF_INET6? "inet6" :
220                   ai->family == AF_INET?  "inet4" : "?    ",
221                   ai->socktype, ai->protocol);
222
223           err = resolve_dns_addr (ai->addr, ai->addrlen,
224                                   (DNS_NUMERICHOST
225                                    | (opt_bracket? DNS_WITHBRACKET:0)),
226                                   &host);
227           if (err)
228             printf ("[getnameinfo failed: %s]", gpg_strerror (err));
229           else
230             {
231               printf ("%s", host);
232               xfree (host);
233             }
234
235           err = resolve_dns_addr (ai->addr, ai->addrlen,
236                                   (opt_bracket? DNS_WITHBRACKET:0),
237                                   &host);
238           if (err)
239             printf ("[getnameinfo failed (2): %s]", gpg_strerror (err));
240           else
241             {
242               if (!is_ip_address (host))
243                 printf ("  (%s)", host);
244               xfree (host);
245             }
246           putchar ('\n');
247         }
248       xfree (cname);
249       free_dns_addrinfo (aibuf);
250     }
251
252
253   return 0;
254 }