ff6114c2a8fa53962478e683ab9daca8f5ef7002
[tinc] / src / netutl.c
1 /*
2     netutl.c -- some supporting network utility code
3     Copyright (C) 1998,1999,2000 Ivo Timmermans <itimmermans@bigfoot.com>
4
5     This program is free software; you can redistribute it and/or modify
6     it under the terms of the GNU General Public License as published by
7     the Free Software Foundation; either version 2 of the License, or
8     (at your option) any later version.
9
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13     GNU General Public License for more details.
14
15     You should have received a copy of the GNU General Public License
16     along with this program; if not, write to the Free Software
17     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18
19     $Id: netutl.c,v 1.12.4.13 2000/10/24 15:46:17 guus Exp $
20 */
21
22 #include "config.h"
23
24 #include <arpa/inet.h>
25 #include <netdb.h>
26 #include <netinet/in.h>
27 #include <stdio.h>
28 #include <stdlib.h>
29 #include <string.h>
30 #include <sys/socket.h>
31 #include <syslog.h>
32
33 #include <utils.h>
34 #include <xalloc.h>
35
36 #include "errno.h"
37 #include "conf.h"
38 #include "encr.h"
39 #include "net.h"
40 #include "netutl.h"
41
42 #include "system.h"
43
44
45 /*
46   free a queue and all of its elements
47 */
48 void destroy_queue(packet_queue_t *pq)
49 {
50   queue_element_t *p, *q;
51 cp
52   for(p = pq->head; p != NULL; p = q)
53     {
54       q = p->next;
55       if(p->packet)
56         free(p->packet);
57       free(p);
58     }
59
60   free(pq);
61 cp
62 }
63
64
65 char *hostlookup(unsigned long addr)
66 {
67   char *name;
68   struct hostent *host = NULL;
69   struct in_addr in;
70   config_t const *cfg;
71   int lookup_hostname;
72 cp
73   in.s_addr = addr;
74
75   lookup_hostname = 0;
76   if((cfg = get_config_val(config, resolve_dns)) != NULL)
77     if(cfg->data.val == stupid_true)
78       lookup_hostname = 1;
79
80   if(lookup_hostname)
81     host = gethostbyaddr((char *)&in, sizeof(in), AF_INET);
82
83   if(!lookup_hostname || !host)
84     {
85       asprintf(&name, "%s", inet_ntoa(in));
86     }
87   else
88     {
89       asprintf(&name, "%s", host->h_name);
90     }
91 cp
92   return name;
93 }
94
95 /*
96   Turn a string into an IP addy with netmask
97   return NULL on failure
98 */
99 ip_mask_t *strtoip(char *str)
100 {
101   ip_mask_t *ip;
102   int masker;
103   char *q, *p;
104   struct hostent *h;
105 cp
106   p = str;
107   if((q = strchr(p, '/')))
108     {
109       *q = '\0';
110       q++; /* q now points to netmask part, or NULL if no mask */
111     }
112
113   if(!(h = gethostbyname(p)))
114     {
115       fprintf(stderr, _("Error looking up `%s': %s\n"), p, strerror(errno));
116       return NULL;
117     }
118
119   masker = 0;
120   if(q)
121     {
122       masker = strtol(q, &p, 10);
123       if(q == p || (*p))
124         return NULL;
125     }
126
127   ip = xmalloc(sizeof(*ip));
128   ip->address = ntohl(*((ip_t*)(h->h_addr_list[0])));
129
130   ip->mask = masker ? ~((1 << (32 - masker)) - 1) : 0;
131 cp
132   return ip;
133 }
134