Add the rt linux 4.1.3-rt3 as base
[kvmfornfv.git] / kernel / net / tipc / netlink_compat.c
1 /*
2  * Copyright (c) 2014, Ericsson AB
3  * All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions are met:
7  *
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. Neither the names of the copyright holders nor the names of its
14  *    contributors may be used to endorse or promote products derived from
15  *    this software without specific prior written permission.
16  *
17  * Alternatively, this software may be distributed under the terms of the
18  * GNU General Public License ("GPL") version 2 as published by the Free
19  * Software Foundation.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
22  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
25  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
26  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
27  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
28  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
29  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
30  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
31  * POSSIBILITY OF SUCH DAMAGE.
32  */
33
34 #include "core.h"
35 #include "bearer.h"
36 #include "link.h"
37 #include "name_table.h"
38 #include "socket.h"
39 #include "node.h"
40 #include "net.h"
41 #include <net/genetlink.h>
42 #include <linux/tipc_config.h>
43
44 /* The legacy API had an artificial message length limit called
45  * ULTRA_STRING_MAX_LEN.
46  */
47 #define ULTRA_STRING_MAX_LEN 32768
48
49 #define TIPC_SKB_MAX TLV_SPACE(ULTRA_STRING_MAX_LEN)
50
51 #define REPLY_TRUNCATED "<truncated>\n"
52
53 struct tipc_nl_compat_msg {
54         u16 cmd;
55         int rep_type;
56         int rep_size;
57         int req_type;
58         struct sk_buff *rep;
59         struct tlv_desc *req;
60         struct sock *dst_sk;
61 };
62
63 struct tipc_nl_compat_cmd_dump {
64         int (*header)(struct tipc_nl_compat_msg *);
65         int (*dumpit)(struct sk_buff *, struct netlink_callback *);
66         int (*format)(struct tipc_nl_compat_msg *msg, struct nlattr **attrs);
67 };
68
69 struct tipc_nl_compat_cmd_doit {
70         int (*doit)(struct sk_buff *skb, struct genl_info *info);
71         int (*transcode)(struct sk_buff *skb, struct tipc_nl_compat_msg *msg);
72 };
73
74 static int tipc_skb_tailroom(struct sk_buff *skb)
75 {
76         int tailroom;
77         int limit;
78
79         tailroom = skb_tailroom(skb);
80         limit = TIPC_SKB_MAX - skb->len;
81
82         if (tailroom < limit)
83                 return tailroom;
84
85         return limit;
86 }
87
88 static int tipc_add_tlv(struct sk_buff *skb, u16 type, void *data, u16 len)
89 {
90         struct tlv_desc *tlv = (struct tlv_desc *)skb_tail_pointer(skb);
91
92         if (tipc_skb_tailroom(skb) < TLV_SPACE(len))
93                 return -EMSGSIZE;
94
95         skb_put(skb, TLV_SPACE(len));
96         tlv->tlv_type = htons(type);
97         tlv->tlv_len = htons(TLV_LENGTH(len));
98         if (len && data)
99                 memcpy(TLV_DATA(tlv), data, len);
100
101         return 0;
102 }
103
104 static void tipc_tlv_init(struct sk_buff *skb, u16 type)
105 {
106         struct tlv_desc *tlv = (struct tlv_desc *)skb->data;
107
108         TLV_SET_LEN(tlv, 0);
109         TLV_SET_TYPE(tlv, type);
110         skb_put(skb, sizeof(struct tlv_desc));
111 }
112
113 static int tipc_tlv_sprintf(struct sk_buff *skb, const char *fmt, ...)
114 {
115         int n;
116         u16 len;
117         u32 rem;
118         char *buf;
119         struct tlv_desc *tlv;
120         va_list args;
121
122         rem = tipc_skb_tailroom(skb);
123
124         tlv = (struct tlv_desc *)skb->data;
125         len = TLV_GET_LEN(tlv);
126         buf = TLV_DATA(tlv) + len;
127
128         va_start(args, fmt);
129         n = vscnprintf(buf, rem, fmt, args);
130         va_end(args);
131
132         TLV_SET_LEN(tlv, n + len);
133         skb_put(skb, n);
134
135         return n;
136 }
137
138 static struct sk_buff *tipc_tlv_alloc(int size)
139 {
140         int hdr_len;
141         struct sk_buff *buf;
142
143         size = TLV_SPACE(size);
144         hdr_len = nlmsg_total_size(GENL_HDRLEN + TIPC_GENL_HDRLEN);
145
146         buf = alloc_skb(hdr_len + size, GFP_KERNEL);
147         if (!buf)
148                 return NULL;
149
150         skb_reserve(buf, hdr_len);
151
152         return buf;
153 }
154
155 static struct sk_buff *tipc_get_err_tlv(char *str)
156 {
157         int str_len = strlen(str) + 1;
158         struct sk_buff *buf;
159
160         buf = tipc_tlv_alloc(TLV_SPACE(str_len));
161         if (buf)
162                 tipc_add_tlv(buf, TIPC_TLV_ERROR_STRING, str, str_len);
163
164         return buf;
165 }
166
167 static int __tipc_nl_compat_dumpit(struct tipc_nl_compat_cmd_dump *cmd,
168                                    struct tipc_nl_compat_msg *msg,
169                                    struct sk_buff *arg)
170 {
171         int len = 0;
172         int err;
173         struct sk_buff *buf;
174         struct nlmsghdr *nlmsg;
175         struct netlink_callback cb;
176
177         memset(&cb, 0, sizeof(cb));
178         cb.nlh = (struct nlmsghdr *)arg->data;
179         cb.skb = arg;
180
181         buf = nlmsg_new(NLMSG_GOODSIZE, GFP_KERNEL);
182         if (!buf)
183                 return -ENOMEM;
184
185         buf->sk = msg->dst_sk;
186
187         do {
188                 int rem;
189
190                 len = (*cmd->dumpit)(buf, &cb);
191
192                 nlmsg_for_each_msg(nlmsg, nlmsg_hdr(buf), len, rem) {
193                         struct nlattr **attrs;
194
195                         err = tipc_nlmsg_parse(nlmsg, &attrs);
196                         if (err)
197                                 goto err_out;
198
199                         err = (*cmd->format)(msg, attrs);
200                         if (err)
201                                 goto err_out;
202
203                         if (tipc_skb_tailroom(msg->rep) <= 1) {
204                                 err = -EMSGSIZE;
205                                 goto err_out;
206                         }
207                 }
208
209                 skb_reset_tail_pointer(buf);
210                 buf->len = 0;
211
212         } while (len);
213
214         err = 0;
215
216 err_out:
217         kfree_skb(buf);
218
219         if (err == -EMSGSIZE) {
220                 /* The legacy API only considered messages filling
221                  * "ULTRA_STRING_MAX_LEN" to be truncated.
222                  */
223                 if ((TIPC_SKB_MAX - msg->rep->len) <= 1) {
224                         char *tail = skb_tail_pointer(msg->rep);
225
226                         if (*tail != '\0')
227                                 sprintf(tail - sizeof(REPLY_TRUNCATED) - 1,
228                                         REPLY_TRUNCATED);
229                 }
230
231                 return 0;
232         }
233
234         return err;
235 }
236
237 static int tipc_nl_compat_dumpit(struct tipc_nl_compat_cmd_dump *cmd,
238                                  struct tipc_nl_compat_msg *msg)
239 {
240         int err;
241         struct sk_buff *arg;
242
243         if (msg->req_type && !TLV_CHECK_TYPE(msg->req, msg->req_type))
244                 return -EINVAL;
245
246         msg->rep = tipc_tlv_alloc(msg->rep_size);
247         if (!msg->rep)
248                 return -ENOMEM;
249
250         if (msg->rep_type)
251                 tipc_tlv_init(msg->rep, msg->rep_type);
252
253         if (cmd->header)
254                 (*cmd->header)(msg);
255
256         arg = nlmsg_new(0, GFP_KERNEL);
257         if (!arg) {
258                 kfree_skb(msg->rep);
259                 return -ENOMEM;
260         }
261
262         err = __tipc_nl_compat_dumpit(cmd, msg, arg);
263         if (err)
264                 kfree_skb(msg->rep);
265
266         kfree_skb(arg);
267
268         return err;
269 }
270
271 static int __tipc_nl_compat_doit(struct tipc_nl_compat_cmd_doit *cmd,
272                                  struct tipc_nl_compat_msg *msg)
273 {
274         int err;
275         struct sk_buff *doit_buf;
276         struct sk_buff *trans_buf;
277         struct nlattr **attrbuf;
278         struct genl_info info;
279
280         trans_buf = alloc_skb(NLMSG_GOODSIZE, GFP_KERNEL);
281         if (!trans_buf)
282                 return -ENOMEM;
283
284         err = (*cmd->transcode)(trans_buf, msg);
285         if (err)
286                 goto trans_out;
287
288         attrbuf = kmalloc((tipc_genl_family.maxattr + 1) *
289                         sizeof(struct nlattr *), GFP_KERNEL);
290         if (!attrbuf) {
291                 err = -ENOMEM;
292                 goto trans_out;
293         }
294
295         err = nla_parse(attrbuf, tipc_genl_family.maxattr,
296                         (const struct nlattr *)trans_buf->data,
297                         trans_buf->len, NULL);
298         if (err)
299                 goto parse_out;
300
301         doit_buf = alloc_skb(NLMSG_GOODSIZE, GFP_KERNEL);
302         if (!doit_buf) {
303                 err = -ENOMEM;
304                 goto parse_out;
305         }
306
307         doit_buf->sk = msg->dst_sk;
308
309         memset(&info, 0, sizeof(info));
310         info.attrs = attrbuf;
311
312         err = (*cmd->doit)(doit_buf, &info);
313
314         kfree_skb(doit_buf);
315 parse_out:
316         kfree(attrbuf);
317 trans_out:
318         kfree_skb(trans_buf);
319
320         return err;
321 }
322
323 static int tipc_nl_compat_doit(struct tipc_nl_compat_cmd_doit *cmd,
324                                struct tipc_nl_compat_msg *msg)
325 {
326         int err;
327
328         if (msg->req_type && !TLV_CHECK_TYPE(msg->req, msg->req_type))
329                 return -EINVAL;
330
331         err = __tipc_nl_compat_doit(cmd, msg);
332         if (err)
333                 return err;
334
335         /* The legacy API considered an empty message a success message */
336         msg->rep = tipc_tlv_alloc(0);
337         if (!msg->rep)
338                 return -ENOMEM;
339
340         return 0;
341 }
342
343 static int tipc_nl_compat_bearer_dump(struct tipc_nl_compat_msg *msg,
344                                       struct nlattr **attrs)
345 {
346         struct nlattr *bearer[TIPC_NLA_BEARER_MAX + 1];
347
348         nla_parse_nested(bearer, TIPC_NLA_BEARER_MAX, attrs[TIPC_NLA_BEARER],
349                          NULL);
350
351         return tipc_add_tlv(msg->rep, TIPC_TLV_BEARER_NAME,
352                             nla_data(bearer[TIPC_NLA_BEARER_NAME]),
353                             nla_len(bearer[TIPC_NLA_BEARER_NAME]));
354 }
355
356 static int tipc_nl_compat_bearer_enable(struct sk_buff *skb,
357                                         struct tipc_nl_compat_msg *msg)
358 {
359         struct nlattr *prop;
360         struct nlattr *bearer;
361         struct tipc_bearer_config *b;
362
363         b = (struct tipc_bearer_config *)TLV_DATA(msg->req);
364
365         bearer = nla_nest_start(skb, TIPC_NLA_BEARER);
366         if (!bearer)
367                 return -EMSGSIZE;
368
369         if (nla_put_string(skb, TIPC_NLA_BEARER_NAME, b->name))
370                 return -EMSGSIZE;
371
372         if (nla_put_u32(skb, TIPC_NLA_BEARER_DOMAIN, ntohl(b->disc_domain)))
373                 return -EMSGSIZE;
374
375         if (ntohl(b->priority) <= TIPC_MAX_LINK_PRI) {
376                 prop = nla_nest_start(skb, TIPC_NLA_BEARER_PROP);
377                 if (!prop)
378                         return -EMSGSIZE;
379                 if (nla_put_u32(skb, TIPC_NLA_PROP_PRIO, ntohl(b->priority)))
380                         return -EMSGSIZE;
381                 nla_nest_end(skb, prop);
382         }
383         nla_nest_end(skb, bearer);
384
385         return 0;
386 }
387
388 static int tipc_nl_compat_bearer_disable(struct sk_buff *skb,
389                                          struct tipc_nl_compat_msg *msg)
390 {
391         char *name;
392         struct nlattr *bearer;
393
394         name = (char *)TLV_DATA(msg->req);
395
396         bearer = nla_nest_start(skb, TIPC_NLA_BEARER);
397         if (!bearer)
398                 return -EMSGSIZE;
399
400         if (nla_put_string(skb, TIPC_NLA_BEARER_NAME, name))
401                 return -EMSGSIZE;
402
403         nla_nest_end(skb, bearer);
404
405         return 0;
406 }
407
408 static inline u32 perc(u32 count, u32 total)
409 {
410         return (count * 100 + (total / 2)) / total;
411 }
412
413 static void __fill_bc_link_stat(struct tipc_nl_compat_msg *msg,
414                                 struct nlattr *prop[], struct nlattr *stats[])
415 {
416         tipc_tlv_sprintf(msg->rep, "  Window:%u packets\n",
417                          nla_get_u32(prop[TIPC_NLA_PROP_WIN]));
418
419         tipc_tlv_sprintf(msg->rep,
420                          "  RX packets:%u fragments:%u/%u bundles:%u/%u\n",
421                          nla_get_u32(stats[TIPC_NLA_STATS_RX_INFO]),
422                          nla_get_u32(stats[TIPC_NLA_STATS_RX_FRAGMENTS]),
423                          nla_get_u32(stats[TIPC_NLA_STATS_RX_FRAGMENTED]),
424                          nla_get_u32(stats[TIPC_NLA_STATS_RX_BUNDLES]),
425                          nla_get_u32(stats[TIPC_NLA_STATS_RX_BUNDLED]));
426
427         tipc_tlv_sprintf(msg->rep,
428                          "  TX packets:%u fragments:%u/%u bundles:%u/%u\n",
429                          nla_get_u32(stats[TIPC_NLA_STATS_TX_INFO]),
430                          nla_get_u32(stats[TIPC_NLA_STATS_TX_FRAGMENTS]),
431                          nla_get_u32(stats[TIPC_NLA_STATS_TX_FRAGMENTED]),
432                          nla_get_u32(stats[TIPC_NLA_STATS_TX_BUNDLES]),
433                          nla_get_u32(stats[TIPC_NLA_STATS_TX_BUNDLED]));
434
435         tipc_tlv_sprintf(msg->rep, "  RX naks:%u defs:%u dups:%u\n",
436                          nla_get_u32(stats[TIPC_NLA_STATS_RX_NACKS]),
437                          nla_get_u32(stats[TIPC_NLA_STATS_RX_DEFERRED]),
438                          nla_get_u32(stats[TIPC_NLA_STATS_DUPLICATES]));
439
440         tipc_tlv_sprintf(msg->rep, "  TX naks:%u acks:%u dups:%u\n",
441                          nla_get_u32(stats[TIPC_NLA_STATS_TX_NACKS]),
442                          nla_get_u32(stats[TIPC_NLA_STATS_TX_ACKS]),
443                          nla_get_u32(stats[TIPC_NLA_STATS_RETRANSMITTED]));
444
445         tipc_tlv_sprintf(msg->rep,
446                          "  Congestion link:%u  Send queue max:%u avg:%u",
447                          nla_get_u32(stats[TIPC_NLA_STATS_LINK_CONGS]),
448                          nla_get_u32(stats[TIPC_NLA_STATS_MAX_QUEUE]),
449                          nla_get_u32(stats[TIPC_NLA_STATS_AVG_QUEUE]));
450 }
451
452 static int tipc_nl_compat_link_stat_dump(struct tipc_nl_compat_msg *msg,
453                                          struct nlattr **attrs)
454 {
455         char *name;
456         struct nlattr *link[TIPC_NLA_LINK_MAX + 1];
457         struct nlattr *prop[TIPC_NLA_PROP_MAX + 1];
458         struct nlattr *stats[TIPC_NLA_STATS_MAX + 1];
459
460         nla_parse_nested(link, TIPC_NLA_LINK_MAX, attrs[TIPC_NLA_LINK], NULL);
461
462         nla_parse_nested(prop, TIPC_NLA_PROP_MAX, link[TIPC_NLA_LINK_PROP],
463                          NULL);
464
465         nla_parse_nested(stats, TIPC_NLA_STATS_MAX, link[TIPC_NLA_LINK_STATS],
466                          NULL);
467
468         name = (char *)TLV_DATA(msg->req);
469         if (strcmp(name, nla_data(link[TIPC_NLA_LINK_NAME])) != 0)
470                 return 0;
471
472         tipc_tlv_sprintf(msg->rep, "\nLink <%s>\n",
473                          nla_data(link[TIPC_NLA_LINK_NAME]));
474
475         if (link[TIPC_NLA_LINK_BROADCAST]) {
476                 __fill_bc_link_stat(msg, prop, stats);
477                 return 0;
478         }
479
480         if (link[TIPC_NLA_LINK_ACTIVE])
481                 tipc_tlv_sprintf(msg->rep, "  ACTIVE");
482         else if (link[TIPC_NLA_LINK_UP])
483                 tipc_tlv_sprintf(msg->rep, "  STANDBY");
484         else
485                 tipc_tlv_sprintf(msg->rep, "  DEFUNCT");
486
487         tipc_tlv_sprintf(msg->rep, "  MTU:%u  Priority:%u",
488                          nla_get_u32(link[TIPC_NLA_LINK_MTU]),
489                          nla_get_u32(prop[TIPC_NLA_PROP_PRIO]));
490
491         tipc_tlv_sprintf(msg->rep, "  Tolerance:%u ms  Window:%u packets\n",
492                          nla_get_u32(prop[TIPC_NLA_PROP_TOL]),
493                          nla_get_u32(prop[TIPC_NLA_PROP_WIN]));
494
495         tipc_tlv_sprintf(msg->rep,
496                          "  RX packets:%u fragments:%u/%u bundles:%u/%u\n",
497                          nla_get_u32(link[TIPC_NLA_LINK_RX]) -
498                          nla_get_u32(stats[TIPC_NLA_STATS_RX_INFO]),
499                          nla_get_u32(stats[TIPC_NLA_STATS_RX_FRAGMENTS]),
500                          nla_get_u32(stats[TIPC_NLA_STATS_RX_FRAGMENTED]),
501                          nla_get_u32(stats[TIPC_NLA_STATS_RX_BUNDLES]),
502                          nla_get_u32(stats[TIPC_NLA_STATS_RX_BUNDLED]));
503
504         tipc_tlv_sprintf(msg->rep,
505                          "  TX packets:%u fragments:%u/%u bundles:%u/%u\n",
506                          nla_get_u32(link[TIPC_NLA_LINK_TX]) -
507                          nla_get_u32(stats[TIPC_NLA_STATS_TX_INFO]),
508                          nla_get_u32(stats[TIPC_NLA_STATS_TX_FRAGMENTS]),
509                          nla_get_u32(stats[TIPC_NLA_STATS_TX_FRAGMENTED]),
510                          nla_get_u32(stats[TIPC_NLA_STATS_TX_BUNDLES]),
511                          nla_get_u32(stats[TIPC_NLA_STATS_TX_BUNDLED]));
512
513         tipc_tlv_sprintf(msg->rep,
514                          "  TX profile sample:%u packets  average:%u octets\n",
515                          nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_CNT]),
516                          nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_TOT]) /
517                          nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT]));
518
519         tipc_tlv_sprintf(msg->rep,
520                          "  0-64:%u%% -256:%u%% -1024:%u%% -4096:%u%% ",
521                          perc(nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_P0]),
522                               nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT])),
523                          perc(nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_P1]),
524                               nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT])),
525                          perc(nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_P2]),
526                               nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT])),
527                          perc(nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_P3]),
528                               nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT])));
529
530         tipc_tlv_sprintf(msg->rep, "-16384:%u%% -32768:%u%% -66000:%u%%\n",
531                          perc(nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_P4]),
532                               nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT])),
533                          perc(nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_P5]),
534                               nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT])),
535                          perc(nla_get_u32(stats[TIPC_NLA_STATS_MSG_LEN_P6]),
536                               nla_get_u32(stats[TIPC_NLA_STATS_MSG_PROF_TOT])));
537
538         tipc_tlv_sprintf(msg->rep,
539                          "  RX states:%u probes:%u naks:%u defs:%u dups:%u\n",
540                          nla_get_u32(stats[TIPC_NLA_STATS_RX_STATES]),
541                          nla_get_u32(stats[TIPC_NLA_STATS_RX_PROBES]),
542                          nla_get_u32(stats[TIPC_NLA_STATS_RX_NACKS]),
543                          nla_get_u32(stats[TIPC_NLA_STATS_RX_DEFERRED]),
544                          nla_get_u32(stats[TIPC_NLA_STATS_DUPLICATES]));
545
546         tipc_tlv_sprintf(msg->rep,
547                          "  TX states:%u probes:%u naks:%u acks:%u dups:%u\n",
548                          nla_get_u32(stats[TIPC_NLA_STATS_TX_STATES]),
549                          nla_get_u32(stats[TIPC_NLA_STATS_TX_PROBES]),
550                          nla_get_u32(stats[TIPC_NLA_STATS_TX_NACKS]),
551                          nla_get_u32(stats[TIPC_NLA_STATS_TX_ACKS]),
552                          nla_get_u32(stats[TIPC_NLA_STATS_RETRANSMITTED]));
553
554         tipc_tlv_sprintf(msg->rep,
555                          "  Congestion link:%u  Send queue max:%u avg:%u",
556                          nla_get_u32(stats[TIPC_NLA_STATS_LINK_CONGS]),
557                          nla_get_u32(stats[TIPC_NLA_STATS_MAX_QUEUE]),
558                          nla_get_u32(stats[TIPC_NLA_STATS_AVG_QUEUE]));
559
560         return 0;
561 }
562
563 static int tipc_nl_compat_link_dump(struct tipc_nl_compat_msg *msg,
564                                     struct nlattr **attrs)
565 {
566         struct nlattr *link[TIPC_NLA_LINK_MAX + 1];
567         struct tipc_link_info link_info;
568
569         nla_parse_nested(link, TIPC_NLA_LINK_MAX, attrs[TIPC_NLA_LINK], NULL);
570
571         link_info.dest = nla_get_flag(link[TIPC_NLA_LINK_DEST]);
572         link_info.up = htonl(nla_get_flag(link[TIPC_NLA_LINK_UP]));
573         strcpy(link_info.str, nla_data(link[TIPC_NLA_LINK_NAME]));
574
575         return tipc_add_tlv(msg->rep, TIPC_TLV_LINK_INFO,
576                             &link_info, sizeof(link_info));
577 }
578
579 static int tipc_nl_compat_link_set(struct sk_buff *skb,
580                                    struct tipc_nl_compat_msg *msg)
581 {
582         struct nlattr *link;
583         struct nlattr *prop;
584         struct tipc_link_config *lc;
585
586         lc = (struct tipc_link_config *)TLV_DATA(msg->req);
587
588         link = nla_nest_start(skb, TIPC_NLA_LINK);
589         if (!link)
590                 return -EMSGSIZE;
591
592         if (nla_put_string(skb, TIPC_NLA_LINK_NAME, lc->name))
593                 return -EMSGSIZE;
594
595         prop = nla_nest_start(skb, TIPC_NLA_LINK_PROP);
596         if (!prop)
597                 return -EMSGSIZE;
598
599         if (msg->cmd == TIPC_CMD_SET_LINK_PRI) {
600                 if (nla_put_u32(skb, TIPC_NLA_PROP_PRIO, ntohl(lc->value)))
601                         return -EMSGSIZE;
602         } else if (msg->cmd == TIPC_CMD_SET_LINK_TOL) {
603                 if (nla_put_u32(skb, TIPC_NLA_PROP_TOL, ntohl(lc->value)))
604                         return -EMSGSIZE;
605         } else if (msg->cmd == TIPC_CMD_SET_LINK_WINDOW) {
606                 if (nla_put_u32(skb, TIPC_NLA_PROP_WIN, ntohl(lc->value)))
607                         return -EMSGSIZE;
608         }
609
610         nla_nest_end(skb, prop);
611         nla_nest_end(skb, link);
612
613         return 0;
614 }
615
616 static int tipc_nl_compat_link_reset_stats(struct sk_buff *skb,
617                                            struct tipc_nl_compat_msg *msg)
618 {
619         char *name;
620         struct nlattr *link;
621
622         name = (char *)TLV_DATA(msg->req);
623
624         link = nla_nest_start(skb, TIPC_NLA_LINK);
625         if (!link)
626                 return -EMSGSIZE;
627
628         if (nla_put_string(skb, TIPC_NLA_LINK_NAME, name))
629                 return -EMSGSIZE;
630
631         nla_nest_end(skb, link);
632
633         return 0;
634 }
635
636 static int tipc_nl_compat_name_table_dump_header(struct tipc_nl_compat_msg *msg)
637 {
638         int i;
639         u32 depth;
640         struct tipc_name_table_query *ntq;
641         static const char * const header[] = {
642                 "Type       ",
643                 "Lower      Upper      ",
644                 "Port Identity              ",
645                 "Publication Scope"
646         };
647
648         ntq = (struct tipc_name_table_query *)TLV_DATA(msg->req);
649
650         depth = ntohl(ntq->depth);
651
652         if (depth > 4)
653                 depth = 4;
654         for (i = 0; i < depth; i++)
655                 tipc_tlv_sprintf(msg->rep, header[i]);
656         tipc_tlv_sprintf(msg->rep, "\n");
657
658         return 0;
659 }
660
661 static int tipc_nl_compat_name_table_dump(struct tipc_nl_compat_msg *msg,
662                                           struct nlattr **attrs)
663 {
664         char port_str[27];
665         struct tipc_name_table_query *ntq;
666         struct nlattr *nt[TIPC_NLA_NAME_TABLE_MAX + 1];
667         struct nlattr *publ[TIPC_NLA_PUBL_MAX + 1];
668         u32 node, depth, type, lowbound, upbound;
669         static const char * const scope_str[] = {"", " zone", " cluster",
670                                                  " node"};
671
672         nla_parse_nested(nt, TIPC_NLA_NAME_TABLE_MAX,
673                          attrs[TIPC_NLA_NAME_TABLE], NULL);
674
675         nla_parse_nested(publ, TIPC_NLA_PUBL_MAX, nt[TIPC_NLA_NAME_TABLE_PUBL],
676                          NULL);
677
678         ntq = (struct tipc_name_table_query *)TLV_DATA(msg->req);
679
680         depth = ntohl(ntq->depth);
681         type = ntohl(ntq->type);
682         lowbound = ntohl(ntq->lowbound);
683         upbound = ntohl(ntq->upbound);
684
685         if (!(depth & TIPC_NTQ_ALLTYPES) &&
686             (type != nla_get_u32(publ[TIPC_NLA_PUBL_TYPE])))
687                 return 0;
688         if (lowbound && (lowbound > nla_get_u32(publ[TIPC_NLA_PUBL_UPPER])))
689                 return 0;
690         if (upbound && (upbound < nla_get_u32(publ[TIPC_NLA_PUBL_LOWER])))
691                 return 0;
692
693         tipc_tlv_sprintf(msg->rep, "%-10u ",
694                          nla_get_u32(publ[TIPC_NLA_PUBL_TYPE]));
695
696         if (depth == 1)
697                 goto out;
698
699         tipc_tlv_sprintf(msg->rep, "%-10u %-10u ",
700                          nla_get_u32(publ[TIPC_NLA_PUBL_LOWER]),
701                          nla_get_u32(publ[TIPC_NLA_PUBL_UPPER]));
702
703         if (depth == 2)
704                 goto out;
705
706         node = nla_get_u32(publ[TIPC_NLA_PUBL_NODE]);
707         sprintf(port_str, "<%u.%u.%u:%u>", tipc_zone(node), tipc_cluster(node),
708                 tipc_node(node), nla_get_u32(publ[TIPC_NLA_PUBL_REF]));
709         tipc_tlv_sprintf(msg->rep, "%-26s ", port_str);
710
711         if (depth == 3)
712                 goto out;
713
714         tipc_tlv_sprintf(msg->rep, "%-10u %s",
715                          nla_get_u32(publ[TIPC_NLA_PUBL_REF]),
716                          scope_str[nla_get_u32(publ[TIPC_NLA_PUBL_SCOPE])]);
717 out:
718         tipc_tlv_sprintf(msg->rep, "\n");
719
720         return 0;
721 }
722
723 static int __tipc_nl_compat_publ_dump(struct tipc_nl_compat_msg *msg,
724                                       struct nlattr **attrs)
725 {
726         u32 type, lower, upper;
727         struct nlattr *publ[TIPC_NLA_PUBL_MAX + 1];
728
729         nla_parse_nested(publ, TIPC_NLA_PUBL_MAX, attrs[TIPC_NLA_PUBL], NULL);
730
731         type = nla_get_u32(publ[TIPC_NLA_PUBL_TYPE]);
732         lower = nla_get_u32(publ[TIPC_NLA_PUBL_LOWER]);
733         upper = nla_get_u32(publ[TIPC_NLA_PUBL_UPPER]);
734
735         if (lower == upper)
736                 tipc_tlv_sprintf(msg->rep, " {%u,%u}", type, lower);
737         else
738                 tipc_tlv_sprintf(msg->rep, " {%u,%u,%u}", type, lower, upper);
739
740         return 0;
741 }
742
743 static int tipc_nl_compat_publ_dump(struct tipc_nl_compat_msg *msg, u32 sock)
744 {
745         int err;
746         void *hdr;
747         struct nlattr *nest;
748         struct sk_buff *args;
749         struct tipc_nl_compat_cmd_dump dump;
750
751         args = nlmsg_new(NLMSG_GOODSIZE, GFP_KERNEL);
752         if (!args)
753                 return -ENOMEM;
754
755         hdr = genlmsg_put(args, 0, 0, &tipc_genl_family, NLM_F_MULTI,
756                           TIPC_NL_PUBL_GET);
757
758         nest = nla_nest_start(args, TIPC_NLA_SOCK);
759         if (!nest) {
760                 kfree_skb(args);
761                 return -EMSGSIZE;
762         }
763
764         if (nla_put_u32(args, TIPC_NLA_SOCK_REF, sock)) {
765                 kfree_skb(args);
766                 return -EMSGSIZE;
767         }
768
769         nla_nest_end(args, nest);
770         genlmsg_end(args, hdr);
771
772         dump.dumpit = tipc_nl_publ_dump;
773         dump.format = __tipc_nl_compat_publ_dump;
774
775         err = __tipc_nl_compat_dumpit(&dump, msg, args);
776
777         kfree_skb(args);
778
779         return err;
780 }
781
782 static int tipc_nl_compat_sk_dump(struct tipc_nl_compat_msg *msg,
783                                   struct nlattr **attrs)
784 {
785         int err;
786         u32 sock_ref;
787         struct nlattr *sock[TIPC_NLA_SOCK_MAX + 1];
788
789         nla_parse_nested(sock, TIPC_NLA_SOCK_MAX, attrs[TIPC_NLA_SOCK], NULL);
790
791         sock_ref = nla_get_u32(sock[TIPC_NLA_SOCK_REF]);
792         tipc_tlv_sprintf(msg->rep, "%u:", sock_ref);
793
794         if (sock[TIPC_NLA_SOCK_CON]) {
795                 u32 node;
796                 struct nlattr *con[TIPC_NLA_CON_MAX + 1];
797
798                 nla_parse_nested(con, TIPC_NLA_CON_MAX, sock[TIPC_NLA_SOCK_CON],
799                                  NULL);
800
801                 node = nla_get_u32(con[TIPC_NLA_CON_NODE]);
802                 tipc_tlv_sprintf(msg->rep, "  connected to <%u.%u.%u:%u>",
803                                  tipc_zone(node),
804                                  tipc_cluster(node),
805                                  tipc_node(node),
806                                  nla_get_u32(con[TIPC_NLA_CON_SOCK]));
807
808                 if (con[TIPC_NLA_CON_FLAG])
809                         tipc_tlv_sprintf(msg->rep, " via {%u,%u}\n",
810                                          nla_get_u32(con[TIPC_NLA_CON_TYPE]),
811                                          nla_get_u32(con[TIPC_NLA_CON_INST]));
812                 else
813                         tipc_tlv_sprintf(msg->rep, "\n");
814         } else if (sock[TIPC_NLA_SOCK_HAS_PUBL]) {
815                 tipc_tlv_sprintf(msg->rep, " bound to");
816
817                 err = tipc_nl_compat_publ_dump(msg, sock_ref);
818                 if (err)
819                         return err;
820         }
821         tipc_tlv_sprintf(msg->rep, "\n");
822
823         return 0;
824 }
825
826 static int tipc_nl_compat_media_dump(struct tipc_nl_compat_msg *msg,
827                                      struct nlattr **attrs)
828 {
829         struct nlattr *media[TIPC_NLA_MEDIA_MAX + 1];
830
831         nla_parse_nested(media, TIPC_NLA_MEDIA_MAX, attrs[TIPC_NLA_MEDIA],
832                          NULL);
833
834         return tipc_add_tlv(msg->rep, TIPC_TLV_MEDIA_NAME,
835                             nla_data(media[TIPC_NLA_MEDIA_NAME]),
836                             nla_len(media[TIPC_NLA_MEDIA_NAME]));
837 }
838
839 static int tipc_nl_compat_node_dump(struct tipc_nl_compat_msg *msg,
840                                     struct nlattr **attrs)
841 {
842         struct tipc_node_info node_info;
843         struct nlattr *node[TIPC_NLA_NODE_MAX + 1];
844
845         nla_parse_nested(node, TIPC_NLA_NODE_MAX, attrs[TIPC_NLA_NODE], NULL);
846
847         node_info.addr = htonl(nla_get_u32(node[TIPC_NLA_NODE_ADDR]));
848         node_info.up = htonl(nla_get_flag(node[TIPC_NLA_NODE_UP]));
849
850         return tipc_add_tlv(msg->rep, TIPC_TLV_NODE_INFO, &node_info,
851                             sizeof(node_info));
852 }
853
854 static int tipc_nl_compat_net_set(struct sk_buff *skb,
855                                   struct tipc_nl_compat_msg *msg)
856 {
857         u32 val;
858         struct nlattr *net;
859
860         val = ntohl(*(__be32 *)TLV_DATA(msg->req));
861
862         net = nla_nest_start(skb, TIPC_NLA_NET);
863         if (!net)
864                 return -EMSGSIZE;
865
866         if (msg->cmd == TIPC_CMD_SET_NODE_ADDR) {
867                 if (nla_put_u32(skb, TIPC_NLA_NET_ADDR, val))
868                         return -EMSGSIZE;
869         } else if (msg->cmd == TIPC_CMD_SET_NETID) {
870                 if (nla_put_u32(skb, TIPC_NLA_NET_ID, val))
871                         return -EMSGSIZE;
872         }
873         nla_nest_end(skb, net);
874
875         return 0;
876 }
877
878 static int tipc_nl_compat_net_dump(struct tipc_nl_compat_msg *msg,
879                                    struct nlattr **attrs)
880 {
881         __be32 id;
882         struct nlattr *net[TIPC_NLA_NET_MAX + 1];
883
884         nla_parse_nested(net, TIPC_NLA_NET_MAX, attrs[TIPC_NLA_NET], NULL);
885         id = htonl(nla_get_u32(net[TIPC_NLA_NET_ID]));
886
887         return tipc_add_tlv(msg->rep, TIPC_TLV_UNSIGNED, &id, sizeof(id));
888 }
889
890 static int tipc_cmd_show_stats_compat(struct tipc_nl_compat_msg *msg)
891 {
892         msg->rep = tipc_tlv_alloc(ULTRA_STRING_MAX_LEN);
893         if (!msg->rep)
894                 return -ENOMEM;
895
896         tipc_tlv_init(msg->rep, TIPC_TLV_ULTRA_STRING);
897         tipc_tlv_sprintf(msg->rep, "TIPC version " TIPC_MOD_VER "\n");
898
899         return 0;
900 }
901
902 static int tipc_nl_compat_handle(struct tipc_nl_compat_msg *msg)
903 {
904         struct tipc_nl_compat_cmd_dump dump;
905         struct tipc_nl_compat_cmd_doit doit;
906
907         memset(&dump, 0, sizeof(dump));
908         memset(&doit, 0, sizeof(doit));
909
910         switch (msg->cmd) {
911         case TIPC_CMD_NOOP:
912                 msg->rep = tipc_tlv_alloc(0);
913                 if (!msg->rep)
914                         return -ENOMEM;
915                 return 0;
916         case TIPC_CMD_GET_BEARER_NAMES:
917                 msg->rep_size = MAX_BEARERS * TLV_SPACE(TIPC_MAX_BEARER_NAME);
918                 dump.dumpit = tipc_nl_bearer_dump;
919                 dump.format = tipc_nl_compat_bearer_dump;
920                 return tipc_nl_compat_dumpit(&dump, msg);
921         case TIPC_CMD_ENABLE_BEARER:
922                 msg->req_type = TIPC_TLV_BEARER_CONFIG;
923                 doit.doit = tipc_nl_bearer_enable;
924                 doit.transcode = tipc_nl_compat_bearer_enable;
925                 return tipc_nl_compat_doit(&doit, msg);
926         case TIPC_CMD_DISABLE_BEARER:
927                 msg->req_type = TIPC_TLV_BEARER_NAME;
928                 doit.doit = tipc_nl_bearer_disable;
929                 doit.transcode = tipc_nl_compat_bearer_disable;
930                 return tipc_nl_compat_doit(&doit, msg);
931         case TIPC_CMD_SHOW_LINK_STATS:
932                 msg->req_type = TIPC_TLV_LINK_NAME;
933                 msg->rep_size = ULTRA_STRING_MAX_LEN;
934                 msg->rep_type = TIPC_TLV_ULTRA_STRING;
935                 dump.dumpit = tipc_nl_link_dump;
936                 dump.format = tipc_nl_compat_link_stat_dump;
937                 return tipc_nl_compat_dumpit(&dump, msg);
938         case TIPC_CMD_GET_LINKS:
939                 msg->req_type = TIPC_TLV_NET_ADDR;
940                 msg->rep_size = ULTRA_STRING_MAX_LEN;
941                 dump.dumpit = tipc_nl_link_dump;
942                 dump.format = tipc_nl_compat_link_dump;
943                 return tipc_nl_compat_dumpit(&dump, msg);
944         case TIPC_CMD_SET_LINK_TOL:
945         case TIPC_CMD_SET_LINK_PRI:
946         case TIPC_CMD_SET_LINK_WINDOW:
947                 msg->req_type =  TIPC_TLV_LINK_CONFIG;
948                 doit.doit = tipc_nl_link_set;
949                 doit.transcode = tipc_nl_compat_link_set;
950                 return tipc_nl_compat_doit(&doit, msg);
951         case TIPC_CMD_RESET_LINK_STATS:
952                 msg->req_type = TIPC_TLV_LINK_NAME;
953                 doit.doit = tipc_nl_link_reset_stats;
954                 doit.transcode = tipc_nl_compat_link_reset_stats;
955                 return tipc_nl_compat_doit(&doit, msg);
956         case TIPC_CMD_SHOW_NAME_TABLE:
957                 msg->req_type = TIPC_TLV_NAME_TBL_QUERY;
958                 msg->rep_size = ULTRA_STRING_MAX_LEN;
959                 msg->rep_type = TIPC_TLV_ULTRA_STRING;
960                 dump.header = tipc_nl_compat_name_table_dump_header;
961                 dump.dumpit = tipc_nl_name_table_dump;
962                 dump.format = tipc_nl_compat_name_table_dump;
963                 return tipc_nl_compat_dumpit(&dump, msg);
964         case TIPC_CMD_SHOW_PORTS:
965                 msg->rep_size = ULTRA_STRING_MAX_LEN;
966                 msg->rep_type = TIPC_TLV_ULTRA_STRING;
967                 dump.dumpit = tipc_nl_sk_dump;
968                 dump.format = tipc_nl_compat_sk_dump;
969                 return tipc_nl_compat_dumpit(&dump, msg);
970         case TIPC_CMD_GET_MEDIA_NAMES:
971                 msg->rep_size = MAX_MEDIA * TLV_SPACE(TIPC_MAX_MEDIA_NAME);
972                 dump.dumpit = tipc_nl_media_dump;
973                 dump.format = tipc_nl_compat_media_dump;
974                 return tipc_nl_compat_dumpit(&dump, msg);
975         case TIPC_CMD_GET_NODES:
976                 msg->rep_size = ULTRA_STRING_MAX_LEN;
977                 dump.dumpit = tipc_nl_node_dump;
978                 dump.format = tipc_nl_compat_node_dump;
979                 return tipc_nl_compat_dumpit(&dump, msg);
980         case TIPC_CMD_SET_NODE_ADDR:
981                 msg->req_type = TIPC_TLV_NET_ADDR;
982                 doit.doit = tipc_nl_net_set;
983                 doit.transcode = tipc_nl_compat_net_set;
984                 return tipc_nl_compat_doit(&doit, msg);
985         case TIPC_CMD_SET_NETID:
986                 msg->req_type = TIPC_TLV_UNSIGNED;
987                 doit.doit = tipc_nl_net_set;
988                 doit.transcode = tipc_nl_compat_net_set;
989                 return tipc_nl_compat_doit(&doit, msg);
990         case TIPC_CMD_GET_NETID:
991                 msg->rep_size = sizeof(u32);
992                 dump.dumpit = tipc_nl_net_dump;
993                 dump.format = tipc_nl_compat_net_dump;
994                 return tipc_nl_compat_dumpit(&dump, msg);
995         case TIPC_CMD_SHOW_STATS:
996                 return tipc_cmd_show_stats_compat(msg);
997         }
998
999         return -EOPNOTSUPP;
1000 }
1001
1002 static int tipc_nl_compat_recv(struct sk_buff *skb, struct genl_info *info)
1003 {
1004         int err;
1005         int len;
1006         struct tipc_nl_compat_msg msg;
1007         struct nlmsghdr *req_nlh;
1008         struct nlmsghdr *rep_nlh;
1009         struct tipc_genlmsghdr *req_userhdr = info->userhdr;
1010         struct net *net = genl_info_net(info);
1011
1012         memset(&msg, 0, sizeof(msg));
1013
1014         req_nlh = (struct nlmsghdr *)skb->data;
1015         msg.req = nlmsg_data(req_nlh) + GENL_HDRLEN + TIPC_GENL_HDRLEN;
1016         msg.cmd = req_userhdr->cmd;
1017         msg.dst_sk = info->dst_sk;
1018
1019         if ((msg.cmd & 0xC000) && (!netlink_net_capable(skb, CAP_NET_ADMIN))) {
1020                 msg.rep = tipc_get_err_tlv(TIPC_CFG_NOT_NET_ADMIN);
1021                 err = -EACCES;
1022                 goto send;
1023         }
1024
1025         len = nlmsg_attrlen(req_nlh, GENL_HDRLEN + TIPC_GENL_HDRLEN);
1026         if (TLV_GET_LEN(msg.req) && !TLV_OK(msg.req, len)) {
1027                 msg.rep = tipc_get_err_tlv(TIPC_CFG_NOT_SUPPORTED);
1028                 err = -EOPNOTSUPP;
1029                 goto send;
1030         }
1031
1032         err = tipc_nl_compat_handle(&msg);
1033         if (err == -EOPNOTSUPP)
1034                 msg.rep = tipc_get_err_tlv(TIPC_CFG_NOT_SUPPORTED);
1035         else if (err == -EINVAL)
1036                 msg.rep = tipc_get_err_tlv(TIPC_CFG_TLV_ERROR);
1037 send:
1038         if (!msg.rep)
1039                 return err;
1040
1041         len = nlmsg_total_size(GENL_HDRLEN + TIPC_GENL_HDRLEN);
1042         skb_push(msg.rep, len);
1043         rep_nlh = nlmsg_hdr(msg.rep);
1044         memcpy(rep_nlh, info->nlhdr, len);
1045         rep_nlh->nlmsg_len = msg.rep->len;
1046         genlmsg_unicast(net, msg.rep, NETLINK_CB(skb).portid);
1047
1048         return err;
1049 }
1050
1051 static struct genl_family tipc_genl_compat_family = {
1052         .id             = GENL_ID_GENERATE,
1053         .name           = TIPC_GENL_NAME,
1054         .version        = TIPC_GENL_VERSION,
1055         .hdrsize        = TIPC_GENL_HDRLEN,
1056         .maxattr        = 0,
1057         .netnsok        = true,
1058 };
1059
1060 static struct genl_ops tipc_genl_compat_ops[] = {
1061         {
1062                 .cmd            = TIPC_GENL_CMD,
1063                 .doit           = tipc_nl_compat_recv,
1064         },
1065 };
1066
1067 int tipc_netlink_compat_start(void)
1068 {
1069         int res;
1070
1071         res = genl_register_family_with_ops(&tipc_genl_compat_family,
1072                                             tipc_genl_compat_ops);
1073         if (res) {
1074                 pr_err("Failed to register legacy compat interface\n");
1075                 return res;
1076         }
1077
1078         return 0;
1079 }
1080
1081 void tipc_netlink_compat_stop(void)
1082 {
1083         genl_unregister_family(&tipc_genl_compat_family);
1084 }