dirmngr: Pass Tor credentials to libdns.
[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 <https://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_new_circuit = 0;
45   int opt_cert = 0;
46   int opt_srv = 0;
47   int opt_bracket = 0;
48   int opt_cname = 0;
49   char const *name = NULL;
50
51   gpgrt_init ();
52   log_set_prefix (PGM, GPGRT_LOG_WITH_PREFIX);
53   if (argc)
54     { argc--; argv++; }
55   while (argc && last_argc != argc )
56     {
57       last_argc = argc;
58       if (!strcmp (*argv, "--"))
59         {
60           argc--; argv++;
61           break;
62         }
63       else if (!strcmp (*argv, "--help"))
64         {
65           fputs ("usage: " PGM " [HOST]\n"
66                  "Options:\n"
67                  "  --verbose           print timings etc.\n"
68                  "  --debug             flyswatter\n"
69                  "  --standard-resolver use the system's resolver\n"
70                  "  --use-tor           use Tor\n"
71                  "  --new-circuit       use a new Tor circuit\n"
72                  "  --bracket           enclose v6 addresses in brackets\n"
73                  "  --cert              lookup a CERT RR\n"
74                  "  --srv               lookup a SRV RR\n"
75                  "  --cname             lookup a CNAME RR\n"
76                  , stdout);
77           exit (0);
78         }
79       else if (!strcmp (*argv, "--verbose"))
80         {
81           verbose++;
82           argc--; argv++;
83         }
84       else if (!strcmp (*argv, "--debug"))
85         {
86           verbose += 2;
87           debug++;
88           argc--; argv++;
89         }
90       else if (!strcmp (*argv, "--use-tor"))
91         {
92           opt_tor = 1;
93           argc--; argv++;
94         }
95       else if (!strcmp (*argv, "--new-circuit"))
96         {
97           opt_new_circuit = 1;
98           argc--; argv++;
99         }
100       else if (!strcmp (*argv, "--standard-resolver"))
101         {
102           enable_standard_resolver (1);
103           argc--; argv++;
104         }
105       else if (!strcmp (*argv, "--recursive-resolver"))
106         {
107           enable_recursive_resolver (1);
108           argc--; argv++;
109         }
110       else if (!strcmp (*argv, "--bracket"))
111         {
112           opt_bracket = 1;
113           argc--; argv++;
114         }
115       else if (!strcmp (*argv, "--cert"))
116         {
117           any_options = opt_cert = 1;
118           argc--; argv++;
119         }
120       else if (!strcmp (*argv, "--srv"))
121         {
122           any_options = opt_srv = 1;
123           argc--; argv++;
124         }
125       else if (!strcmp (*argv, "--cname"))
126         {
127           any_options = opt_cname = 1;
128           argc--; argv++;
129         }
130       else if (!strncmp (*argv, "--", 2))
131         {
132           fprintf (stderr, PGM ": unknown option '%s'\n", *argv);
133           exit (1);
134         }
135     }
136
137   if (!argc && !any_options)
138     {
139       opt_cert = 1;
140       name = "simon.josefsson.org";
141     }
142   else if (argc == 1)
143     name = *argv;
144   else
145     {
146       fprintf (stderr, PGM ": none or too many host names given\n");
147       exit (1);
148     }
149
150   if (opt_tor)
151     {
152       err = enable_dns_tormode (opt_new_circuit);
153       if (err)
154         {
155           fprintf (stderr, "error switching into Tor mode: %s\n",
156                    gpg_strerror (err));
157           exit (1);
158         }
159     }
160
161   if (opt_cert)
162     {
163       unsigned char *fpr;
164       size_t fpr_len;
165       char *url;
166       void *key;
167       size_t keylen;
168
169       if (verbose || any_options)
170         printf ("CERT lookup on '%s'\n", name);
171
172       err = get_dns_cert (name, DNS_CERTTYPE_ANY, &key, &keylen,
173                           &fpr, &fpr_len, &url);
174       if (err)
175         printf ("get_dns_cert failed: %s <%s>\n",
176                 gpg_strerror (err), gpg_strsource (err));
177       else if (key)
178         {
179           if (verbose || any_options)
180             printf ("Key found (%u bytes)\n", (unsigned int)keylen);
181         }
182       else
183         {
184           if (fpr)
185             {
186               int i;
187
188               printf ("Fingerprint found (%d bytes): ", (int)fpr_len);
189               for (i = 0; i < fpr_len; i++)
190                 printf ("%02X", fpr[i]);
191               putchar ('\n');
192             }
193           else
194             printf ("No fingerprint found\n");
195
196           if (url)
197             printf ("URL found: %s\n", url);
198           else
199             printf ("No URL found\n");
200
201         }
202
203       xfree (key);
204       xfree (fpr);
205       xfree (url);
206     }
207   else if (opt_cname)
208     {
209       char *cname;
210
211       printf ("CNAME lookup on '%s'\n", name);
212       err = get_dns_cname (name, &cname);
213       if (err)
214         printf ("get_dns_cname failed: %s <%s>\n",
215                 gpg_strerror (err), gpg_strsource (err));
216       else
217         {
218           printf ("CNAME found: '%s'\n", cname);
219         }
220
221       xfree (cname);
222     }
223   else if (opt_srv)
224     {
225       struct srventry *srv;
226       int rc,i;
227
228       rc=getsrv (name? name : "_hkp._tcp.wwwkeys.pgp.net", &srv);
229       printf("Count=%d\n",rc);
230       for(i=0;i<rc;i++)
231         {
232           printf("priority=%-8hu  ",srv[i].priority);
233           printf("weight=%-8hu  ",srv[i].weight);
234           printf("port=%-5hu  ",srv[i].port);
235           printf("target=%s\n",srv[i].target);
236         }
237
238       xfree(srv);
239     }
240   else /* Standard lookup.  */
241     {
242       char *cname;
243       dns_addrinfo_t aibuf, ai;
244       char *host;
245
246       printf ("Lookup on '%s'\n", name);
247
248       err = resolve_dns_name (name, 0, 0, SOCK_STREAM, &aibuf, &cname);
249       if (err)
250         {
251           fprintf (stderr, PGM": resolving '%s' failed: %s\n",
252                    name, gpg_strerror (err));
253           exit (1);
254         }
255
256       if (cname)
257         printf ("cname: %s\n", cname);
258       for (ai = aibuf; ai; ai = ai->next)
259         {
260           printf ("%s %3d %3d   ",
261                   ai->family == AF_INET6? "inet6" :
262                   ai->family == AF_INET?  "inet4" : "?    ",
263                   ai->socktype, ai->protocol);
264
265           err = resolve_dns_addr (ai->addr, ai->addrlen,
266                                   (DNS_NUMERICHOST
267                                    | (opt_bracket? DNS_WITHBRACKET:0)),
268                                   &host);
269           if (err)
270             printf ("[resolve_dns_addr failed: %s]", gpg_strerror (err));
271           else
272             {
273               printf ("%s", host);
274               xfree (host);
275             }
276
277           err = resolve_dns_addr (ai->addr, ai->addrlen,
278                                   (opt_bracket? DNS_WITHBRACKET:0),
279                                   &host);
280           if (err)
281             printf ("[resolve_dns_addr failed (2): %s]", gpg_strerror (err));
282           else
283             {
284               if (!is_ip_address (host))
285                 printf ("  (%s)", host);
286               xfree (host);
287             }
288           putchar ('\n');
289         }
290       xfree (cname);
291       free_dns_addrinfo (aibuf);
292     }
293
294
295   return 0;
296 }