e6e5ec0541c6346e9eabc21c3ae84df95f787e2d
[oweals/gnunet.git] / src / gns / gnunet-dns2gns.c
1 /*
2      This file is part of GNUnet.
3      (C) 2012 Christian Grothoff (and other contributing authors)
4
5      GNUnet is free software; you can redistribute it and/or modify
6      it under the terms of the GNU General Public License as published
7      by the Free Software Foundation; either version 3, or (at your
8      option) any later version.
9
10      GNUnet is distributed in the hope that it will be useful, but
11      WITHOUT ANY WARRANTY; without even the implied warranty of
12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13      General Public License for more details.
14
15      You should have received a copy of the GNU General Public License
16      along with GNUnet; see the file COPYING.  If not, write to the
17      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18      Boston, MA 02111-1307, USA.
19 */
20 /**
21  * @file gnunet-dns2gns.c
22  * @brief DNS server that translates DNS requests to GNS
23  * @author Christian Grothoff
24  */
25 #include "platform.h"
26 #include <gnunet_util_lib.h>
27 #include <gnunet_dnsparser_lib.h>
28 #include <gnunet_gns_service.h>
29 #include <gnunet_dnsstub_lib.h>
30 #include "gns.h"
31
32 /**
33  * Timeout for DNS requests.
34  */
35 #define TIMEOUT GNUNET_TIME_UNIT_MINUTES
36
37 /**
38  * Default suffix
39  */
40 #define DNS_SUFFIX ".zkey.eu"
41
42 /**
43  * FCFS suffix
44  */
45 #define FCFS_SUFFIX "fcfs.zkey.eu"
46
47 /**
48  * Data kept per request.
49  */
50 struct Request
51 {
52   /**
53    * Socket to use for sending the reply.
54    */
55   struct GNUNET_NETWORK_Handle *lsock;
56
57   /**
58    * Destination address to use.
59    */
60   const void *addr;
61
62   /**
63    * Initially, this is the DNS request, it will then be
64    * converted to the DNS response.
65    */
66   struct GNUNET_DNSPARSER_Packet *packet;
67   
68   /**
69    * Our GNS request handle.
70    */
71   struct GNUNET_GNS_LookupRequest *lookup;
72
73   /**
74    * Our DNS request handle
75    */
76   struct GNUNET_DNSSTUB_RequestSocket *dns_lookup;
77
78   /**
79    * Task run on timeout or shutdown to clean up without
80    * response.
81    */
82   GNUNET_SCHEDULER_TaskIdentifier timeout_task;
83
84   /**
85    * Number of bytes in 'addr'.
86    */ 
87   size_t addr_len;
88
89 };
90
91
92 /**
93  * Handle to GNS resolver.
94  */
95 struct GNUNET_GNS_Handle *gns;
96
97 /**
98  * Stub resolver
99  */
100 struct GNUNET_DNSSTUB_Context *dns_stub;
101
102 /**
103  * Listen socket for IPv4.
104  */
105 static struct GNUNET_NETWORK_Handle *listen_socket4;
106
107 /**
108  * Listen socket for IPv6.
109  */
110 static struct GNUNET_NETWORK_Handle *listen_socket6;
111
112 /**
113  * Task for IPv4 socket.
114  */
115 static GNUNET_SCHEDULER_TaskIdentifier t4;
116
117 /**
118  * Task for IPv6 socket.
119  */
120 static GNUNET_SCHEDULER_TaskIdentifier t6;
121
122 /**
123  * DNS suffix
124  */
125 static char *dns_suffix;
126
127 /**
128  * FCFS suffix
129  */
130 static char *fcfs_suffix;
131
132 /**
133  * IP of DNS server
134  */
135 static char *dns_ip;
136
137 /**
138  * Task run on shutdown.  Cleans up everything.
139  *
140  * @param cls unused
141  * @param tc scheduler context
142  */
143 static void
144 do_shutdown (void *cls,
145              const struct GNUNET_SCHEDULER_TaskContext *tc)
146 {
147   if (GNUNET_SCHEDULER_NO_TASK != t4)
148     GNUNET_SCHEDULER_cancel (t4);
149   if (GNUNET_SCHEDULER_NO_TASK != t6)
150     GNUNET_SCHEDULER_cancel (t6);
151   if (NULL != listen_socket4)
152   {
153     GNUNET_NETWORK_socket_close (listen_socket4);
154     listen_socket4 = NULL;
155   }
156   if (NULL != listen_socket6)
157   {
158     GNUNET_NETWORK_socket_close (listen_socket6);
159     listen_socket6 = NULL;
160   }
161   GNUNET_GNS_disconnect (gns);
162   gns = NULL;
163   GNUNET_DNSSTUB_stop (dns_stub);
164   dns_stub = NULL;
165 }
166
167
168 /**
169  * Send the response for the given request and clean up.
170  *
171  * @param request context for the request.
172  */
173 static void
174 send_response (struct Request *request)
175 {
176   char *buf;
177   size_t size;
178   
179   if (GNUNET_SYSERR ==
180       GNUNET_DNSPARSER_pack (request->packet,
181                              UINT16_MAX /* is this not too much? */,
182                              &buf,
183                              &size))
184     {
185       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
186                   _("Failed to pack DNS response into UDP packet!\n"));
187     }
188   else
189     {
190       if (size !=
191           GNUNET_NETWORK_socket_sendto (request->lsock,
192                                         buf, size,
193                                         request->addr,
194                                         request->addr_len))
195         GNUNET_log_strerror (GNUNET_ERROR_TYPE_WARNING, "sendto");
196       GNUNET_free (buf);
197     }
198   GNUNET_SCHEDULER_cancel (request->timeout_task);
199   GNUNET_DNSPARSER_free_packet (request->packet);
200   GNUNET_free (request);
201 }
202
203
204 /**
205  * Task run on timeout.  Cleans up request.
206  *
207  * @param cls 'struct Request' of the request to clean up
208  * @param tc scheduler context
209  */
210 static void
211 do_timeout (void *cls,
212             const struct GNUNET_SCHEDULER_TaskContext *tc)
213 {
214   struct Request *request = cls;
215
216   if (NULL != request->packet)
217     GNUNET_DNSPARSER_free_packet (request->packet);
218   if (NULL != request->lookup)
219     GNUNET_GNS_cancel_lookup_request (request->lookup);
220   GNUNET_free (request);
221 }
222
223 /**
224  * Iterator called on obtained result for a DNS
225  * lookup
226  *
227  * @param cls closure
228  * @param rs the request socket
229  * @param dns the DNS udp payload
230  * @param r size of the DNS payload
231  */
232 static void
233 dns_result_processor (void *cls,
234                   struct GNUNET_DNSSTUB_RequestSocket *rs,
235                   const struct GNUNET_TUN_DnsHeader *dns,
236                   size_t r)
237 {
238   struct Request *request = cls;
239   request->packet = GNUNET_DNSPARSER_parse ((char*)dns, r);
240   send_response (request);
241 }
242
243 /**
244  * Iterator called on obtained result for a GNS
245  * lookup
246  *
247  * @param cls closure
248  * @param rd_count number of records
249  * @param rd the records in reply
250  */
251 static void
252 result_processor (void *cls,
253                   uint32_t rd_count,
254                   const struct GNUNET_NAMESTORE_RecordData *rd)
255 {
256   struct Request *request = cls;
257   struct GNUNET_DNSPARSER_Packet *packet;
258   uint32_t i;
259   struct GNUNET_DNSPARSER_Record rec;
260
261   request->lookup = NULL;
262   packet = request->packet;
263   packet->flags.query_or_response = 1;
264   packet->flags.return_code = GNUNET_DNSPARSER_RETURN_CODE_NO_ERROR;
265   packet->flags.checking_disabled = 0;
266   packet->flags.authenticated_data = 1;
267   packet->flags.zero = 0;
268   packet->flags.recursion_available = 1;
269   packet->flags.message_truncated = 0;
270   packet->flags.authoritative_answer = 0;
271   //packet->flags.opcode = GNUNET_DNSPARSER_OPCODE_STATUS; // ???
272   for (i=0;i<rd_count;i++)
273     {
274       rec.expiration_time.abs_value = rd[i].expiration_time;
275       switch (rd[i].record_type)
276         {
277         case GNUNET_DNSPARSER_TYPE_A:
278           GNUNET_assert (sizeof (struct in_addr) == rd[i].data_size);
279           rec.name = GNUNET_strdup (packet->queries[0].name);
280           rec.class = GNUNET_DNSPARSER_CLASS_INTERNET;
281           rec.type = GNUNET_DNSPARSER_TYPE_A;
282           rec.data.raw.data = GNUNET_malloc (sizeof (struct in_addr));
283           memcpy (rec.data.raw.data,
284                   rd[i].data,
285                   rd[i].data_size);
286           rec.data.raw.data_len = sizeof (struct in_addr);
287           GNUNET_array_append (packet->answers,
288                                packet->num_answers,
289                                rec);
290           break;
291         case GNUNET_DNSPARSER_TYPE_AAAA:
292           GNUNET_assert (sizeof (struct in6_addr) == rd[i].data_size);
293           rec.name = GNUNET_strdup (packet->queries[0].name);
294           rec.data.raw.data = GNUNET_malloc (sizeof (struct in6_addr));
295           rec.class = GNUNET_DNSPARSER_CLASS_INTERNET;
296           rec.type = GNUNET_DNSPARSER_TYPE_AAAA;
297           memcpy (rec.data.raw.data,
298                   rd[i].data,
299                   rd[i].data_size);
300           rec.data.raw.data_len = sizeof (struct in6_addr);
301           GNUNET_array_append (packet->answers,
302                                packet->num_answers,
303                                rec);
304           break;
305         case GNUNET_DNSPARSER_TYPE_CNAME:
306           rec.name = GNUNET_strdup (packet->queries[0].name);
307           rec.data.hostname = strdup (rd[i].data);
308           rec.class = GNUNET_DNSPARSER_CLASS_INTERNET;
309           rec.type = GNUNET_DNSPARSER_TYPE_CNAME;
310           memcpy (rec.data.hostname,
311                   rd[i].data,
312                   rd[i].data_size);
313           GNUNET_array_append (packet->answers,
314                                packet->num_answers,
315                                rec);
316           break;
317         default:
318           /* skip */
319           break;
320         }
321     }
322   send_response (request);
323 }
324
325
326 /**
327  * Handle DNS request.
328  *
329  * @param lsock socket to use for sending the reply
330  * @param addr address to use for sending the reply
331  * @param addr_len number of bytes in addr
332  * @param udp_msg DNS request payload
333  * @param udp_msg_size number of bytes in udp_msg 
334  */
335 static void
336 handle_request (struct GNUNET_NETWORK_Handle *lsock,
337                 const void *addr,
338                 size_t addr_len,
339                 const char *udp_msg,
340                 size_t udp_msg_size)
341 {
342   struct Request *request;
343   struct GNUNET_DNSPARSER_Packet *packet;
344   char *name;
345   size_t name_len;
346   enum GNUNET_GNS_RecordType type;
347   int use_gns;
348
349   packet = GNUNET_DNSPARSER_parse (udp_msg, udp_msg_size);
350   if (NULL == packet)
351     {
352       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
353                   _("Cannot parse DNS request from %s\n"),
354                   GNUNET_a2s (addr, addr_len));
355       return;
356     }
357   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
358               "Received request for %s with flags %u, #answers %d, #auth %d, #additional %d\n",
359         packet->queries[0].name,
360               (unsigned int) packet->flags.query_or_response,
361               (int) packet->num_answers,
362               (int) packet->num_authority_records,
363               (int) packet->num_additional_records);
364   if ( (0 != packet->flags.query_or_response) || 
365        (0 != packet->num_answers) ||
366        (0 != packet->num_authority_records))
367     {
368       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
369                   _("Received malformed DNS request from %s\n"),
370                   GNUNET_a2s (addr, addr_len));
371       GNUNET_DNSPARSER_free_packet (packet);
372       return;
373     }
374   if ( (1 != packet->num_queries) )
375     {
376       GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
377                   _("Received unsupported DNS request from %s\n"),
378                   GNUNET_a2s (addr, addr_len));
379       GNUNET_DNSPARSER_free_packet (packet);
380       return;
381     }
382   request = GNUNET_malloc (sizeof (struct Request) + addr_len);
383   request->lsock = lsock;
384   request->packet = packet;
385   request->addr = &request[1];
386   request->addr_len = addr_len;
387   memcpy (&request[1], addr, addr_len);
388   request->timeout_task = GNUNET_SCHEDULER_add_delayed (TIMEOUT,
389                                                         &do_timeout,
390                                                         request);
391   name = GNUNET_strdup (packet->queries[0].name);
392   name_len = strlen (name);
393   use_gns = GNUNET_NO;
394   if ( (name_len > strlen (dns_suffix)) &&
395        (0 == strcasecmp (dns_suffix,
396                          &name[name_len - strlen (dns_suffix)])) )
397     {
398       if ( (name_len >= strlen (fcfs_suffix)) &&
399            (0 == strcasecmp (fcfs_suffix,
400                              &name[name_len - strlen (fcfs_suffix)])) )
401       {
402         name[name_len - strlen (fcfs_suffix)] = '\0';
403         sprintf (name, "%s.%s", name, GNUNET_GNS_TLD);
404       }
405       else
406       {
407         name[name_len - strlen (dns_suffix) + 1] = '\0';
408         strcat (name, GNUNET_GNS_TLD_ZKEY);
409       }
410       name_len = strlen (name);
411     }
412   if ( (name_len >= strlen ((GNUNET_GNS_TLD))) &&
413        (0 == strcasecmp (GNUNET_GNS_TLD,
414                          &name[name_len - strlen (GNUNET_GNS_TLD)])) )
415     use_gns = GNUNET_YES;
416
417   if ( (name_len > strlen (GNUNET_GNS_TLD_ZKEY)) &&
418        (0 == strcasecmp (GNUNET_GNS_TLD_ZKEY,
419                          &name[name_len - strlen (GNUNET_GNS_TLD_ZKEY)])) )
420     use_gns = GNUNET_YES;
421
422   if (GNUNET_YES == use_gns)
423   {
424       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
425                    "Calling GNS\n");
426       type = packet->queries[0].type;
427       request->lookup = GNUNET_GNS_lookup (gns,
428                                            name,
429                                            type,
430                                            GNUNET_NO,
431                                            NULL,
432                                            &result_processor,
433                                            request);
434     }
435   else
436     {
437       /* FIXME: do traditional *DNS* lookup; note that
438          gnunet-service-dns already has code to do this;
439          factor into library to share! Why not use GNUNET_RESOLVER here?*/
440       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
441                    "Calling DNS at %s\n", dns_ip);
442       GNUNET_DNSPARSER_free_packet (request->packet);
443       request->dns_lookup = GNUNET_DNSSTUB_resolve2 (dns_stub,
444                                                      udp_msg,
445                                                      udp_msg_size,
446                                                      &dns_result_processor,
447                                                      request);
448
449
450
451     }
452   GNUNET_free (name);
453 }
454
455
456 /**
457  * Task to read IPv4 DNS packets.
458  *
459  * @param cls the 'listen_socket4'
460  * @param tc scheduler context
461  */ 
462 static void
463 read_dns4 (void *cls,
464            const struct GNUNET_SCHEDULER_TaskContext *tc)
465 {
466   struct sockaddr_in v4;
467   socklen_t addrlen;
468   ssize_t size;
469
470   GNUNET_assert (listen_socket4 == cls);
471   t4 = GNUNET_SCHEDULER_add_read_net (GNUNET_TIME_UNIT_FOREVER_REL,
472                                       listen_socket4,
473                                       &read_dns4,
474                                       listen_socket4);
475   if (0 == (GNUNET_SCHEDULER_REASON_READ_READY & tc->reason))
476     return; /* shutdown? */
477   size = GNUNET_NETWORK_socket_recvfrom_amount (listen_socket4);
478   if (0 > size)
479     {
480       GNUNET_break (0);
481       return; /* read error!? */
482     }
483   {
484     char buf[size];
485     
486     addrlen = sizeof (v4);
487     GNUNET_break (size == 
488                   GNUNET_NETWORK_socket_recvfrom (listen_socket4,
489                                                   buf,
490                                                   size,
491                                                   (struct sockaddr *) &v4,
492                                                   &addrlen));
493     handle_request (listen_socket4, &v4, addrlen,
494                     buf, size);
495   }
496 }
497
498
499 /**
500  * Task to read IPv6 DNS packets.
501  *
502  * @param cls the 'listen_socket6'
503  * @param tc scheduler context
504  */ 
505 static void
506 read_dns6 (void *cls,
507            const struct GNUNET_SCHEDULER_TaskContext *tc)
508 {
509   struct sockaddr_in6 v6;
510   socklen_t addrlen;
511   ssize_t size;
512
513   GNUNET_assert (listen_socket6 == cls);
514   t6 = GNUNET_SCHEDULER_add_read_net (GNUNET_TIME_UNIT_FOREVER_REL,
515                                       listen_socket6,
516                                       &read_dns6,
517                                       listen_socket6);
518   if (0 == (GNUNET_SCHEDULER_REASON_READ_READY & tc->reason))
519     return; /* shutdown? */
520   size = GNUNET_NETWORK_socket_recvfrom_amount (listen_socket6);
521   if (0 > size)
522     {
523       GNUNET_break (0);
524       return; /* read error!? */
525     }
526   {
527     char buf[size];
528     
529     addrlen = sizeof (v6);
530     GNUNET_break (size == 
531                   GNUNET_NETWORK_socket_recvfrom (listen_socket6,
532                                                   buf,
533                                                   size,
534                                                   (struct sockaddr *) &v6,
535                                                   &addrlen));
536     handle_request (listen_socket6, &v6, addrlen,
537                     buf, size);
538   }
539 }
540
541
542 /**
543  * Main function that will be run.
544  *
545  * @param cls closure
546  * @param args remaining command-line arguments
547  * @param cfgfile name of the configuration file used (for saving, can be NULL!)
548  * @param cfg configuration
549  */
550 static void
551 run (void *cls, char *const *args, const char *cfgfile,
552      const struct GNUNET_CONFIGURATION_Handle *cfg)
553 {
554   if (NULL == dns_ip)
555   {
556     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
557                 "No DNS server specified!\n");
558     return;
559   }
560
561   if (NULL == dns_suffix)
562     dns_suffix = DNS_SUFFIX;
563   if (NULL == fcfs_suffix)
564     fcfs_suffix = FCFS_SUFFIX;
565   if (NULL == (gns = GNUNET_GNS_connect (cfg)))
566     return;
567   if (NULL == (dns_stub = GNUNET_DNSSTUB_start (dns_ip)))
568     {
569       GNUNET_GNS_disconnect (gns);
570       gns = NULL;
571       return;
572     }
573   listen_socket4 = GNUNET_NETWORK_socket_create (PF_INET,
574                                                  SOCK_DGRAM, 
575                                                  IPPROTO_UDP);
576   if (NULL != listen_socket4)
577     {
578       struct sockaddr_in v4;
579
580       memset (&v4, 0, sizeof (v4));
581       v4.sin_family = AF_INET;
582 #if HAVE_SOCKADDR_IN_SIN_LEN
583       v4.sin_len = sizeof (v4);
584 #endif
585       v4.sin_port = htons (53);
586       if (GNUNET_OK !=
587           GNUNET_NETWORK_socket_bind (listen_socket4,
588                                       (struct sockaddr *) &v4,
589                                       sizeof (v4)))
590         {
591           GNUNET_log_strerror (GNUNET_ERROR_TYPE_ERROR, "bind");
592           GNUNET_NETWORK_socket_close (listen_socket4);
593           listen_socket4 = NULL;
594         }
595     }
596   listen_socket6 = GNUNET_NETWORK_socket_create (PF_INET6,
597                                                 SOCK_DGRAM, 
598                                                 IPPROTO_UDP);
599   if (NULL != listen_socket6)
600     {
601       struct sockaddr_in6 v6;
602
603       memset (&v6, 0, sizeof (v6));
604       v6.sin6_family = AF_INET6;
605 #if HAVE_SOCKADDR_IN_SIN_LEN
606       v6.sin6_len = sizeof (v6);
607 #endif
608       v6.sin6_port = htons (53);
609       if (GNUNET_OK !=
610           GNUNET_NETWORK_socket_bind (listen_socket6,
611                                       (struct sockaddr *) &v6,
612                                       sizeof (v6)))
613         {
614           GNUNET_log_strerror (GNUNET_ERROR_TYPE_ERROR, "bind");
615           GNUNET_NETWORK_socket_close (listen_socket6);
616           listen_socket6 = NULL;
617         }
618     }
619   if ( (NULL == listen_socket4) &&
620        (NULL == listen_socket6) )
621     {
622       GNUNET_GNS_disconnect (gns);
623       gns = NULL;
624       GNUNET_DNSSTUB_stop (dns_stub);
625       dns_stub = NULL;
626       return;
627     }
628   if (NULL != listen_socket4)
629     t4 = GNUNET_SCHEDULER_add_read_net (GNUNET_TIME_UNIT_FOREVER_REL,
630                                         listen_socket4,
631                                         &read_dns4,
632                                         listen_socket4);
633   if (NULL != listen_socket6)
634     t6 = GNUNET_SCHEDULER_add_read_net (GNUNET_TIME_UNIT_FOREVER_REL,
635                                         listen_socket6,
636                                         &read_dns6,
637                                         listen_socket6);
638
639   GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_FOREVER_REL,
640                                 &do_shutdown, NULL);
641 }
642
643
644 /**
645  * The main function for the fcfs daemon.
646  *
647  * @param argc number of arguments from the command line
648  * @param argv command line arguments
649  * @return 0 ok, 1 on error
650  */
651 int
652 main (int argc, 
653       char *const *argv)
654 {
655   static const struct GNUNET_GETOPT_CommandLineOption options[] = {
656     {'d', "dns", NULL,
657       gettext_noop ("IP of recursive dns resolver to use (required)"), 1,
658       &GNUNET_GETOPT_set_string, &dns_ip},
659     {'s', "suffix", NULL,
660       gettext_noop ("Authoritative DNS suffix to use (optional); default: zkey.eu"), 1,
661       &GNUNET_GETOPT_set_string, &dns_suffix},
662     {'f', "fcfs", NULL,
663       gettext_noop ("Authoritative FCFS suffix to use (optional); default: fcfs.zkey.eu"), 1,
664       &GNUNET_GETOPT_set_string, &fcfs_suffix},
665     GNUNET_GETOPT_OPTION_END
666   };
667   int ret;
668
669   if (GNUNET_OK != GNUNET_STRINGS_get_utf8_args (argc, argv,
670                                                  &argc, &argv))
671     return 2;
672   GNUNET_log_setup ("gnunet-dns2gns", "WARNING", NULL);
673   ret =
674       (GNUNET_OK ==
675        GNUNET_PROGRAM_run (argc, argv, "gnunet-dns2gns",
676                            _("GNUnet DNS-to-GNS proxy (a DNS server)"), 
677                            options,
678                            &run, NULL)) ? 0 : 1;
679
680   return ret;
681 }
682
683 /* end of gnunet-dns2gns.c */