Have tincd and tincctl use the same method of determining netname.
[tinc] / src / info.c
1 /*
2     info.c -- Show information about a node, subnet or address
3     Copyright (C) 2012 Guus Sliepen <guus@tinc-vpn.org>
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 along
16     with this program; if not, write to the Free Software Foundation, Inc.,
17     51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18 */
19
20 #include "system.h"
21
22 #include "control_common.h"
23 #include "list.h"
24 #include "subnet.h"
25 #include "tincctl.h"
26 #include "info.h"
27 #include "xalloc.h"
28
29 void logger(int level, int priority, const char *format, ...) {
30         va_list ap;
31         va_start(ap, format);
32         vfprintf(stderr, format, ap);
33         va_end(ap);
34 }
35
36 static char *strip_weight(char *netstr) {
37         int len = strlen(netstr);
38         if(len >= 3 && !strcmp(netstr + len - 3, "#10"))
39                 netstr[len - 3] = 0;
40         return netstr;
41 }
42
43 static int info_node(int fd, const char *item) {
44         // Check the list of nodes
45         sendline(fd, "%d %d %s", CONTROL, REQ_DUMP_NODES, item);
46
47         bool found = false;
48         char line[4096];
49
50         char node[4096];
51         char from[4096];
52         char to[4096];
53         char subnet[4096];
54         char host[4096];
55         char port[4096];
56         char via[4096];
57         char nexthop[4096];
58         int code, req, cipher, digest, maclength, compression, distance;
59         short int pmtu, minmtu, maxmtu;
60         unsigned int options;
61         node_status_t status;
62
63         while(recvline(fd, line, sizeof line)) {
64                 int n = sscanf(line, "%d %d %s at %s port %s cipher %d digest %d maclength %d compression %d options %x status %04x nexthop %s via %s distance %d pmtu %hd (min %hd max %hd)", &code, &req, node, host, port, &cipher, &digest, &maclength, &compression, &options, (unsigned *)&status, nexthop, via, &distance, &pmtu, &minmtu, &maxmtu);
65
66                 if(n == 2)
67                         break;
68
69                 if(n != 17) {
70                         *port = 0;
71                         n = sscanf(line, "%d %d %s at %s cipher %d digest %d maclength %d compression %d options %x status %04x nexthop %s via %s distance %d pmtu %hd (min %hd max %hd)", &code, &req, node, host, &cipher, &digest, &maclength, &compression, &options, (unsigned *)&status, nexthop, via, &distance, &pmtu, &minmtu, &maxmtu);
72
73                         if(n != 16) {
74                                 fprintf(stderr, "Unable to parse node dump from tincd.\n");
75                                 return 1;
76                         }
77                 }
78
79                 if(!strcmp(node, item)) {
80                         found = true;
81                         break;
82                 }
83         }
84
85         if(!found) {
86                 fprintf(stderr, "Unknown node %s.\n", item);
87                 return 1;
88         }
89
90         while(recvline(fd, line, sizeof line)) {
91                 if(sscanf(line, "%d %d %s", &code, &req, node) == 2)
92                         break;
93         }
94         
95         printf("Node:         %s\n", item);
96         if(*port)
97                 printf("Address:      %s port %s\n", host, port);
98         printf("Status:      ");
99         if(status.validkey)
100                 printf(" validkey");
101         if(status.visited)
102                 printf(" visited");
103         if(status.reachable)
104                 printf(" reachable");
105         if(status.indirect)
106                 printf(" indirect");
107         printf("\n");
108         printf("Options:     ");
109         if(options & OPTION_INDIRECT)
110                 printf(" indirect");
111         if(options & OPTION_TCPONLY)
112                 printf(" tcponly");
113         if(options & OPTION_PMTU_DISCOVERY)
114                 printf(" pmtu_discovery");
115         if(options & OPTION_CLAMP_MSS)
116                 printf(" clamp_mss");
117         printf("\n");
118         printf("Protocol:     %d.%d\n", PROT_MAJOR, OPTION_VERSION(options));
119         printf("Reachability: ");
120         if(!*port)
121                 printf("can reach itself\n");
122         else if(!status.reachable)
123                 printf("unreachable\n");
124         else if(strcmp(via, item))
125                 printf("indirectly via %s\n", via);
126         else if(!status.validkey)
127                 printf("unknown\n");
128         else if(minmtu > 0)
129                 printf("directly with UDP\nPMTU:         %d\n", pmtu);
130         else if(!strcmp(nexthop, item))
131                 printf("directly with TCP\n");
132         else
133                 printf("none, forwarded via %s\n", nexthop);
134
135         // List edges
136         printf("Edges:       ");
137         sendline(fd, "%d %d %s", CONTROL, REQ_DUMP_EDGES, item);
138         while(recvline(fd, line, sizeof line)) {
139                 int n = sscanf(line, "%d %d %s to %s", &code, &req, from, to);
140                 if(n == 2)
141                         break;
142                 if(n != 4) {
143                         fprintf(stderr, "Unable to parse edge dump from tincd.\n%s\n", line);
144                         return 1;
145                 }
146                 if(!strcmp(from, item))
147                         printf(" %s", to);
148         }
149         printf("\n");
150
151         // List subnets
152         printf("Subnets:     ");
153         sendline(fd, "%d %d %s", CONTROL, REQ_DUMP_SUBNETS, item);
154         while(recvline(fd, line, sizeof line)) {
155                 int n = sscanf(line, "%d %d %s owner %s", &code, &req, subnet, from);
156                 if(n == 2)
157                         break;
158                 if(n != 4) {
159                         fprintf(stderr, "Unable to parse subnet dump from tincd.\n");
160                         return 1;
161                 }
162                 if(!strcmp(from, item))
163                         printf(" %s", strip_weight(subnet));
164         }
165         printf("\n");
166
167         return 0;
168 }
169
170 static int info_subnet(int fd, const char *item) {
171         subnet_t subnet, find;
172
173         if(!str2net(&find, item)) {
174                 fprintf(stderr, "Could not parse subnet or address '%s'.\n", item);
175                 return 1;
176         }
177
178         bool address = !strchr(item, '/');
179         bool weight = strchr(item, '#');
180         bool found = false;
181
182         char line[4096];
183         char netstr[4096];
184         char owner[4096];
185
186         int code, req;
187
188         sendline(fd, "%d %d %s", CONTROL, REQ_DUMP_SUBNETS, item);
189         while(recvline(fd, line, sizeof line)) {
190                 int n = sscanf(line, "%d %d %s owner %s", &code, &req, netstr, owner);
191                 if(n == 2)
192                         break;
193
194                 if(n != 4 || !str2net(&subnet, netstr)) {
195                         fprintf(stderr, "Unable to parse subnet dump from tincd.\n");
196                         return 1;
197                 }
198
199                 if(find.type != subnet.type)
200                         continue;
201
202                 if(weight) {
203                         if(find.weight != subnet.weight)
204                                 continue;
205                 }
206
207                 if(find.type == SUBNET_IPV4) {
208                         if(address) {
209                                 if(maskcmp(&find.net.ipv4.address, &subnet.net.ipv4.address, subnet.net.ipv4.prefixlength))
210                                         continue;
211                         } else {
212                                 if(find.net.ipv4.prefixlength != subnet.net.ipv4.prefixlength)
213                                         continue;
214                                 if(memcmp(&find.net.ipv4.address, &subnet.net.ipv4.address, sizeof subnet.net.ipv4))
215                                         continue;
216                         }
217                 } else if(find.type == SUBNET_IPV6) {
218                         if(address) {
219                                 if(maskcmp(&find.net.ipv6.address, &subnet.net.ipv6.address, subnet.net.ipv6.prefixlength))
220                                         continue;
221                         } else {
222                                 if(find.net.ipv6.prefixlength != subnet.net.ipv6.prefixlength)
223                                         continue;
224                                 if(memcmp(&find.net.ipv6.address, &subnet.net.ipv6.address, sizeof subnet.net.ipv6))
225                                         continue;
226                         }
227                 } if(find.type == SUBNET_MAC) {
228                         if(memcmp(&find.net.mac.address, &subnet.net.mac.address, sizeof subnet.net.mac))
229                                 continue;
230                 }
231
232                 found = true;
233                 printf("Subnet: %s\n", strip_weight(netstr));
234                 printf("Owner:  %s\n", owner);
235         }
236
237         if(!found) {
238                 if(address)
239                         fprintf(stderr, "Unknown address %s.\n", item);
240                 else
241                         fprintf(stderr, "Unknown subnet %s.\n", item);
242                 return 1;
243         }
244
245         return 0;
246 }
247
248 int info(int fd, const char *item) {
249         if(check_id(item))
250                 return info_node(fd, item);
251         if(strchr(item, '.') || strchr(item, ':'))
252                 return info_subnet(fd, item);
253
254         fprintf(stderr, "Argument is not a node name, subnet or address.\n");
255         return 1;
256 }