1 /*
2  * NetLabel Network Address Lists
3  *
4  * This file contains network address list functions used to manage ordered
5  * lists of network addresses for use by the NetLabel subsystem.  The NetLabel
6  * system manages static and dynamic label mappings for network protocols such
7  * as CIPSO and RIPSO.
8  *
9  * Author: Paul Moore <paul@paul-moore.com>
10  *
11  */
12 
13 /*
14  * (c) Copyright Hewlett-Packard Development Company, L.P., 2008
15  *
16  * This program is free software;  you can redistribute it and/or modify
17  * it under the terms of the GNU General Public License as published by
18  * the Free Software Foundation; either version 2 of the License, or
19  * (at your option) any later version.
20  *
21  * This program is distributed in the hope that it will be useful,
22  * but WITHOUT ANY WARRANTY;  without even the implied warranty of
23  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See
24  * the GNU General Public License for more details.
25  *
26  * You should have received a copy of the GNU General Public License
27  * along with this program;  if not, see <http://www.gnu.org/licenses/>.
28  *
29  */
30 
31 #include <linux/types.h>
32 #include <linux/rcupdate.h>
33 #include <linux/list.h>
34 #include <linux/spinlock.h>
35 #include <linux/in.h>
36 #include <linux/in6.h>
37 #include <linux/ip.h>
38 #include <linux/ipv6.h>
39 #include <net/ip.h>
40 #include <net/ipv6.h>
41 #include <linux/audit.h>
42 
43 #include "netlabel_addrlist.h"
44 
45 /*
46  * Address List Functions
47  */
48 
49 /**
50  * netlbl_af4list_search - Search for a matching IPv4 address entry
51  * @addr: IPv4 address
52  * @head: the list head
53  *
54  * Description:
55  * Searches the IPv4 address list given by @head.  If a matching address entry
56  * is found it is returned, otherwise NULL is returned.  The caller is
57  * responsible for calling the rcu_read_[un]lock() functions.
58  *
59  */
60 struct netlbl_af4list *netlbl_af4list_search(__be32 addr,
61 					     struct list_head *head)
62 {
63 	struct netlbl_af4list *iter;
64 
65 	list_for_each_entry_rcu(iter, head, list)
66 		if (iter->valid && (addr & iter->mask) == iter->addr)
67 			return iter;
68 
69 	return NULL;
70 }
71 
72 /**
73  * netlbl_af4list_search_exact - Search for an exact IPv4 address entry
74  * @addr: IPv4 address
75  * @mask: IPv4 address mask
76  * @head: the list head
77  *
78  * Description:
79  * Searches the IPv4 address list given by @head.  If an exact match if found
80  * it is returned, otherwise NULL is returned.  The caller is responsible for
81  * calling the rcu_read_[un]lock() functions.
82  *
83  */
84 struct netlbl_af4list *netlbl_af4list_search_exact(__be32 addr,
85 						   __be32 mask,
86 						   struct list_head *head)
87 {
88 	struct netlbl_af4list *iter;
89 
90 	list_for_each_entry_rcu(iter, head, list)
91 		if (iter->valid && iter->addr == addr && iter->mask == mask)
92 			return iter;
93 
94 	return NULL;
95 }
96 
97 
98 #if IS_ENABLED(CONFIG_IPV6)
99 /**
100  * netlbl_af6list_search - Search for a matching IPv6 address entry
101  * @addr: IPv6 address
102  * @head: the list head
103  *
104  * Description:
105  * Searches the IPv6 address list given by @head.  If a matching address entry
106  * is found it is returned, otherwise NULL is returned.  The caller is
107  * responsible for calling the rcu_read_[un]lock() functions.
108  *
109  */
110 struct netlbl_af6list *netlbl_af6list_search(const struct in6_addr *addr,
111 					     struct list_head *head)
112 {
113 	struct netlbl_af6list *iter;
114 
115 	list_for_each_entry_rcu(iter, head, list)
116 		if (iter->valid &&
117 		    ipv6_masked_addr_cmp(&iter->addr, &iter->mask, addr) == 0)
118 			return iter;
119 
120 	return NULL;
121 }
122 
123 /**
124  * netlbl_af6list_search_exact - Search for an exact IPv6 address entry
125  * @addr: IPv6 address
126  * @mask: IPv6 address mask
127  * @head: the list head
128  *
129  * Description:
130  * Searches the IPv6 address list given by @head.  If an exact match if found
131  * it is returned, otherwise NULL is returned.  The caller is responsible for
132  * calling the rcu_read_[un]lock() functions.
133  *
134  */
135 struct netlbl_af6list *netlbl_af6list_search_exact(const struct in6_addr *addr,
136 						   const struct in6_addr *mask,
137 						   struct list_head *head)
138 {
139 	struct netlbl_af6list *iter;
140 
141 	list_for_each_entry_rcu(iter, head, list)
142 		if (iter->valid &&
143 		    ipv6_addr_equal(&iter->addr, addr) &&
144 		    ipv6_addr_equal(&iter->mask, mask))
145 			return iter;
146 
147 	return NULL;
148 }
149 #endif /* IPv6 */
150 
151 /**
152  * netlbl_af4list_add - Add a new IPv4 address entry to a list
153  * @entry: address entry
154  * @head: the list head
155  *
156  * Description:
157  * Add a new address entry to the list pointed to by @head.  On success zero is
158  * returned, otherwise a negative value is returned.  The caller is responsible
159  * for calling the necessary locking functions.
160  *
161  */
162 int netlbl_af4list_add(struct netlbl_af4list *entry, struct list_head *head)
163 {
164 	struct netlbl_af4list *iter;
165 
166 	iter = netlbl_af4list_search(entry->addr, head);
167 	if (iter != NULL &&
168 	    iter->addr == entry->addr && iter->mask == entry->mask)
169 		return -EEXIST;
170 
171 	/* in order to speed up address searches through the list (the common
172 	 * case) we need to keep the list in order based on the size of the
173 	 * address mask such that the entry with the widest mask (smallest
174 	 * numerical value) appears first in the list */
175 	list_for_each_entry_rcu(iter, head, list)
176 		if (iter->valid &&
177 		    ntohl(entry->mask) > ntohl(iter->mask)) {
178 			__list_add_rcu(&entry->list,
179 				       iter->list.prev,
180 				       &iter->list);
181 			return 0;
182 		}
183 	list_add_tail_rcu(&entry->list, head);
184 	return 0;
185 }
186 
187 #if IS_ENABLED(CONFIG_IPV6)
188 /**
189  * netlbl_af6list_add - Add a new IPv6 address entry to a list
190  * @entry: address entry
191  * @head: the list head
192  *
193  * Description:
194  * Add a new address entry to the list pointed to by @head.  On success zero is
195  * returned, otherwise a negative value is returned.  The caller is responsible
196  * for calling the necessary locking functions.
197  *
198  */
199 int netlbl_af6list_add(struct netlbl_af6list *entry, struct list_head *head)
200 {
201 	struct netlbl_af6list *iter;
202 
203 	iter = netlbl_af6list_search(&entry->addr, head);
204 	if (iter != NULL &&
205 	    ipv6_addr_equal(&iter->addr, &entry->addr) &&
206 	    ipv6_addr_equal(&iter->mask, &entry->mask))
207 		return -EEXIST;
208 
209 	/* in order to speed up address searches through the list (the common
210 	 * case) we need to keep the list in order based on the size of the
211 	 * address mask such that the entry with the widest mask (smallest
212 	 * numerical value) appears first in the list */
213 	list_for_each_entry_rcu(iter, head, list)
214 		if (iter->valid &&
215 		    ipv6_addr_cmp(&entry->mask, &iter->mask) > 0) {
216 			__list_add_rcu(&entry->list,
217 				       iter->list.prev,
218 				       &iter->list);
219 			return 0;
220 		}
221 	list_add_tail_rcu(&entry->list, head);
222 	return 0;
223 }
224 #endif /* IPv6 */
225 
226 /**
227  * netlbl_af4list_remove_entry - Remove an IPv4 address entry
228  * @entry: address entry
229  *
230  * Description:
231  * Remove the specified IP address entry.  The caller is responsible for
232  * calling the necessary locking functions.
233  *
234  */
235 void netlbl_af4list_remove_entry(struct netlbl_af4list *entry)
236 {
237 	entry->valid = 0;
238 	list_del_rcu(&entry->list);
239 }
240 
241 /**
242  * netlbl_af4list_remove - Remove an IPv4 address entry
243  * @addr: IP address
244  * @mask: IP address mask
245  * @head: the list head
246  *
247  * Description:
248  * Remove an IP address entry from the list pointed to by @head.  Returns the
249  * entry on success, NULL on failure.  The caller is responsible for calling
250  * the necessary locking functions.
251  *
252  */
253 struct netlbl_af4list *netlbl_af4list_remove(__be32 addr, __be32 mask,
254 					     struct list_head *head)
255 {
256 	struct netlbl_af4list *entry;
257 
258 	entry = netlbl_af4list_search_exact(addr, mask, head);
259 	if (entry == NULL)
260 		return NULL;
261 	netlbl_af4list_remove_entry(entry);
262 	return entry;
263 }
264 
265 #if IS_ENABLED(CONFIG_IPV6)
266 /**
267  * netlbl_af6list_remove_entry - Remove an IPv6 address entry
268  * @entry: address entry
269  *
270  * Description:
271  * Remove the specified IP address entry.  The caller is responsible for
272  * calling the necessary locking functions.
273  *
274  */
275 void netlbl_af6list_remove_entry(struct netlbl_af6list *entry)
276 {
277 	entry->valid = 0;
278 	list_del_rcu(&entry->list);
279 }
280 
281 /**
282  * netlbl_af6list_remove - Remove an IPv6 address entry
283  * @addr: IP address
284  * @mask: IP address mask
285  * @head: the list head
286  *
287  * Description:
288  * Remove an IP address entry from the list pointed to by @head.  Returns the
289  * entry on success, NULL on failure.  The caller is responsible for calling
290  * the necessary locking functions.
291  *
292  */
293 struct netlbl_af6list *netlbl_af6list_remove(const struct in6_addr *addr,
294 					     const struct in6_addr *mask,
295 					     struct list_head *head)
296 {
297 	struct netlbl_af6list *entry;
298 
299 	entry = netlbl_af6list_search_exact(addr, mask, head);
300 	if (entry == NULL)
301 		return NULL;
302 	netlbl_af6list_remove_entry(entry);
303 	return entry;
304 }
305 #endif /* IPv6 */
306 
307 /*
308  * Audit Helper Functions
309  */
310 
311 #ifdef CONFIG_AUDIT
312 /**
313  * netlbl_af4list_audit_addr - Audit an IPv4 address
314  * @audit_buf: audit buffer
315  * @src: true if source address, false if destination
316  * @dev: network interface
317  * @addr: IP address
318  * @mask: IP address mask
319  *
320  * Description:
321  * Write the IPv4 address and address mask, if necessary, to @audit_buf.
322  *
323  */
324 void netlbl_af4list_audit_addr(struct audit_buffer *audit_buf,
325 					int src, const char *dev,
326 					__be32 addr, __be32 mask)
327 {
328 	u32 mask_val = ntohl(mask);
329 	char *dir = (src ? "src" : "dst");
330 
331 	if (dev != NULL)
332 		audit_log_format(audit_buf, " netif=%s", dev);
333 	audit_log_format(audit_buf, " %s=%pI4", dir, &addr);
334 	if (mask_val != 0xffffffff) {
335 		u32 mask_len = 0;
336 		while (mask_val > 0) {
337 			mask_val <<= 1;
338 			mask_len++;
339 		}
340 		audit_log_format(audit_buf, " %s_prefixlen=%d", dir, mask_len);
341 	}
342 }
343 
344 #if IS_ENABLED(CONFIG_IPV6)
345 /**
346  * netlbl_af6list_audit_addr - Audit an IPv6 address
347  * @audit_buf: audit buffer
348  * @src: true if source address, false if destination
349  * @dev: network interface
350  * @addr: IP address
351  * @mask: IP address mask
352  *
353  * Description:
354  * Write the IPv6 address and address mask, if necessary, to @audit_buf.
355  *
356  */
357 void netlbl_af6list_audit_addr(struct audit_buffer *audit_buf,
358 				 int src,
359 				 const char *dev,
360 				 const struct in6_addr *addr,
361 				 const struct in6_addr *mask)
362 {
363 	char *dir = (src ? "src" : "dst");
364 
365 	if (dev != NULL)
366 		audit_log_format(audit_buf, " netif=%s", dev);
367 	audit_log_format(audit_buf, " %s=%pI6", dir, addr);
368 	if (ntohl(mask->s6_addr32[3]) != 0xffffffff) {
369 		u32 mask_len = 0;
370 		u32 mask_val;
371 		int iter = -1;
372 		while (ntohl(mask->s6_addr32[++iter]) == 0xffffffff)
373 			mask_len += 32;
374 		mask_val = ntohl(mask->s6_addr32[iter]);
375 		while (mask_val > 0) {
376 			mask_val <<= 1;
377 			mask_len++;
378 		}
379 		audit_log_format(audit_buf, " %s_prefixlen=%d", dir, mask_len);
380 	}
381 }
382 #endif /* IPv6 */
383 #endif /* CONFIG_AUDIT */
384