m
[public/mirror.git] / routing / orionroutes.py
1 #!/usr/bin/python
2
3 # This file updates the orion routing table.
4 # Put it at /usr/local/sbin/orionroutes.py
5
6 # Configuration
7 ORION_TABLE =   1 # from /etc/iproute2/rt_tables
8 ORION_REALMS =  1 # from /etc/iproute2/rt_realms
9 ORION_VIAS =    [ "66.97.23.33", "66.97.28.65", "129.97.1.46" ]
10 ORION_GW =      "129.97.134.1"
11 ORION_SRC =     "129.97.134.42"
12 ORION_IFACE =   "eth0"
13
14 # Don't touch anything beyond here
15
16 import sys, iplib, SubnetTree
17 from ctypes import *
18
19 NETLINK_ROUTE =         0
20 AF_UNSPEC =             0
21 RT_SCOPE_UNIVERSE =     0
22 RTPROT_STATIC =         4
23 NLM_F_REPLACE =         0x100
24
25 def die(msg):
26     sys.stderr.write("orionroutes.py: %s\n" % msg)
27     sys.exit(1)
28
29 try:
30     libnl = cdll.LoadLibrary("libnl.so.1")
31     nl_geterror = CFUNCTYPE(c_char_p) (("nl_geterror", libnl), None)
32     nl_handle_alloc = CFUNCTYPE(c_void_p) (("nl_handle_alloc", libnl), None)
33     nl_connect = CFUNCTYPE(c_int, c_void_p, c_int) \
34         (("nl_connect", libnl), ((1, "handle", None), (1, "type", NETLINK_ROUTE)))
35     rtnl_route_alloc = CFUNCTYPE(c_void_p) (("rtnl_route_alloc", libnl), None)
36     rtnl_link_alloc_cache = CFUNCTYPE(c_void_p, c_void_p) \
37         (("rtnl_link_alloc_cache", libnl), ((1, "handle", None), ))
38     rtnl_link_name2i = CFUNCTYPE(c_int, c_void_p, c_char_p) \
39         (("rtnl_link_name2i", libnl), ((1, "cache", None), (1, "iface", -1)))
40     rtnl_route_set_oif = CFUNCTYPE(c_void_p, c_void_p, c_int) \
41         (("rtnl_route_set_oif", libnl), ((1, "route", None), (1, "iface", -1)))
42     nl_cache_free = CFUNCTYPE(None, c_void_p) \
43         (("nl_cache_free", libnl), ((1, "cache", None), ))
44     nl_addr_parse = CFUNCTYPE(c_void_p, c_char_p, c_int) \
45         (("nl_addr_parse", libnl), ((1, "dst", None), (1, "family", AF_UNSPEC)))
46     rtnl_route_set_dst = CFUNCTYPE(c_int, c_void_p, c_void_p) \
47         (("rtnl_route_set_dst", libnl), ((1, "route", None), (1, "dst", None)))
48     rtnl_route_set_pref_src = CFUNCTYPE(c_int, c_void_p, c_void_p) \
49         (("rtnl_route_set_pref_src", libnl), ((1, "route", None), (1, "src", None)))
50     nl_addr_put = CFUNCTYPE(None, c_void_p) \
51         (("nl_addr_put", libnl), ((1, "addr", None), ))
52     rtnl_route_set_gateway = CFUNCTYPE(c_int, c_void_p, c_void_p) \
53         (("rtnl_route_set_gateway", libnl), ((1, "route", None), (1, "gw", None)))
54     rtnl_route_set_table = CFUNCTYPE(None, c_void_p, c_int) \
55         (("rtnl_route_set_table", libnl), ((1, "route", None), (1, "table", -1)))
56     rtnl_route_set_scope = CFUNCTYPE(None, c_void_p, c_int) \
57         (("rtnl_route_set_scope", libnl), ((1, "route", None), (1, "scope", -1)))
58     rtnl_route_set_protocol = CFUNCTYPE(None, c_void_p, c_int) \
59         (("rtnl_route_set_protocol", libnl), ((1, "route", None), (1, "proto", -1)))
60     rtnl_route_set_realms = CFUNCTYPE(None, c_void_p, c_int) \
61         (("rtnl_route_set_realms", libnl), ((1, "route", None), (1, "realms", -1)))
62     rtnl_route_add = CFUNCTYPE(c_int, c_void_p, c_void_p, c_int) \
63         (("rtnl_route_add", libnl), ((1, "handle", None), (1, "route", None), (1, "flags", 0)))
64     rtnl_route_put = CFUNCTYPE(None, c_void_p) \
65         (("rtnl_route_put", libnl), ((1, "route", None), ))
66     nl_handle_destroy = CFUNCTYPE(None, c_void_p) \
67         (("nl_handle_destroy", libnl), ((1, "handle", None), ))
68     rtnl_route_alloc_cache = CFUNCTYPE(c_void_p, c_void_p) \
69         (("rtnl_route_alloc_cache", libnl), ((1, "handle", None), ))
70     nl_cache_get_first = CFUNCTYPE(c_void_p, c_void_p) \
71         (("nl_cache_get_first", libnl), ((1, "cache", None), ))
72     rtnl_route_get_table = CFUNCTYPE(c_int, c_void_p) \
73         (("rtnl_route_get_table", libnl), ((1, "route", None), ))
74     rtnl_route_get_dst = CFUNCTYPE(c_void_p, c_void_p) \
75         (("rtnl_route_get_dst", libnl), ((1, "route", None), ))
76     nl_addr2str = CFUNCTYPE(c_char_p, c_void_p, c_char_p, c_int) \
77         (("nl_addr2str", libnl), ((1, "addr", None), (1, "buffer", None), (1, "size", 0)))
78     rtnl_route_del = CFUNCTYPE(c_int, c_void_p, c_void_p, c_int) \
79         (("rtnl_route_del", libnl), ((1, "handle", None), (1, "route", None), (1, "flags", 0)))
80     nl_cache_get_next = CFUNCTYPE(c_void_p, c_void_p) \
81         (("nl_cache_get_next", libnl), ((1, "object", None), ))
82 except Exception,e:
83     die("Failed to load libnl: %s" % e)
84
85 def nl_die(func):
86     die("%s: %s" % (func, nl_geterror()))
87
88 ips = [[] for i in range(33)]
89 for line in sys.stdin:
90     try:
91         ip, mask, via = line.strip().split(',')[0:3]
92     except ValueError:
93         die("Malformed line: %s" % line.strip())
94
95     if via not in ORION_VIAS:
96         continue
97     bits = int(iplib.IPv4NetMask(mask).get_bits())
98     ips[bits].append(int(iplib.IPv4Address(ip)))
99
100 count = sum([len(ip_list) for ip_list in ips])
101 if count < 10:
102     die("Not enough routes (got %d)" % count)
103
104 cidrs = []
105 for bits in range(32, 1, -1):
106     ips[bits].sort()
107     last_ip = 0
108     for ip in ips[bits]:
109         if ip != last_ip and (ip ^ last_ip) == (1 << (32 - bits)):
110             ips[bits - 1].append(ip & (((1 << (bits - 1)) - 1) << (32 - (bits - 1))))
111             last_ip = 0
112         elif last_ip != 0:
113             cidrs.append((iplib.IPv4Address(last_ip), bits))
114         last_ip = ip
115     if last_ip != 0:
116         cidrs.append((iplib.IPv4Address(last_ip), bits))
117
118 nlh = nl_handle_alloc()
119 if nlh == None: nl_die("nl_handle_alloc")
120 if nl_connect(nlh, NETLINK_ROUTE) < 0: nl_die("nl_connect")
121
122 link_cache = rtnl_link_alloc_cache(nlh)
123 if link_cache == None: nl_die("rtnl_link_alloc")
124 iface = rtnl_link_name2i(link_cache, ORION_IFACE)
125 if iface < 0: nl_die("rtnl_link_name2i")
126 nl_cache_free(link_cache)
127
128 cidrs.sort(lambda (ip1, bits1), (ip2, bits2): cmp(ip1, ip2) if bits1 == bits2 else (bits1 - bits2))
129 tree = SubnetTree.SubnetTree()
130 for (ip, bits) in cidrs:
131     if str(ip) not in tree:
132         cidr = "%s/%s" % (ip, bits)
133         tree[cidr] = None
134
135         route = rtnl_route_alloc()
136         if route == None: nl_die("rtnl_route_alloc")
137
138         dstaddr = nl_addr_parse(cidr, AF_UNSPEC)
139         if dstaddr == None: nl_die("nl_addr_parse(%s)" % cidr)
140         if rtnl_route_set_dst(route, dstaddr) < 0: nl_die("rtnl_route_set_dst")
141         nl_addr_put(dstaddr)
142
143         srcaddr = nl_addr_parse(ORION_SRC, AF_UNSPEC)
144         if srcaddr == None: nl_die("nl_addr_parse(%s)" % ORION_SRC)
145         if rtnl_route_set_pref_src(route, srcaddr) < 0: nl_die("nl_route_set_pref_src")
146         nl_addr_put(srcaddr)
147
148         gwaddr = nl_addr_parse(ORION_GW, AF_UNSPEC)
149         if gwaddr == None: nl_die("nl_addr_parse(%s)" % ORION_GW)
150         if rtnl_route_set_gateway(route, gwaddr) < 0: nl_die("nl_route_set_gateway")
151         nl_addr_put(gwaddr)
152
153         rtnl_route_set_oif(route, iface)
154         rtnl_route_set_table(route, ORION_TABLE)
155         rtnl_route_set_scope(route, RT_SCOPE_UNIVERSE)
156         rtnl_route_set_protocol(route, RTPROT_STATIC)
157         rtnl_route_set_realms(route, ORION_REALMS)
158
159         if rtnl_route_add(nlh, route, NLM_F_REPLACE) < 0: nl_die("rtnl_route_add(dst=%s)" % cidr)
160         rtnl_route_put(route)
161
162 route_cache = rtnl_route_alloc_cache(nlh)
163 if route_cache == None: nl_die("rtnl_route_alloc_cache")
164 dstaddr_s = create_string_buffer(100)
165
166 route = nl_cache_get_first(route_cache)
167 while route != None:
168     table = rtnl_route_get_table(route)
169     if table != ORION_TABLE:
170         route = nl_cache_get_next(route)
171         continue
172
173     dstaddr = rtnl_route_get_dst(route)
174     if dstaddr == None:
175         continue
176     if nl_addr2str(dstaddr, dstaddr_s, sizeof(dstaddr_s)) == None: nl_die("nl_addr2str")
177     dstaddr = str(repr(dstaddr_s.value)).strip('\'').split('/')[0]
178
179     if dstaddr not in tree:
180         rtnl_route_del(nlh, route, 0)
181
182     route = nl_cache_get_next(route)
183
184 nl_cache_free(route_cache)
185
186 nl_handle_destroy(nlh)