+
+int system_flush_routes(void)
+{
+ const char *names[] = {
+ "/proc/sys/net/ipv4/route/flush",
+ "/proc/sys/net/ipv6/route/flush"
+ };
+ int fd, i;
+
+ for (i = 0; i < ARRAY_SIZE(names); i++) {
+ fd = open(names[i], O_WRONLY);
+ if (fd < 0)
+ continue;
+
+ if (write(fd, "-1", 2)) {}
+ close(fd);
+ }
+ return 0;
+}
+
+bool system_resolve_rt_table(const char *name, unsigned int *id)
+{
+ FILE *f;
+ char *e, buf[128];
+ unsigned int n, table = RT_TABLE_UNSPEC;
+
+ /* first try to parse table as number */
+ if ((n = strtoul(name, &e, 0)) > 0 && !*e)
+ table = n;
+
+ /* handle well known aliases */
+ else if (!strcmp(name, "default"))
+ table = RT_TABLE_DEFAULT;
+ else if (!strcmp(name, "main"))
+ table = RT_TABLE_MAIN;
+ else if (!strcmp(name, "local"))
+ table = RT_TABLE_LOCAL;
+
+ /* try to look up name in /etc/iproute2/rt_tables */
+ else if ((f = fopen("/etc/iproute2/rt_tables", "r")) != NULL)
+ {
+ while (fgets(buf, sizeof(buf) - 1, f) != NULL)
+ {
+ if ((e = strtok(buf, " \t\n")) == NULL || *e == '#')
+ continue;
+
+ n = strtoul(e, NULL, 10);
+ e = strtok(NULL, " \t\n");
+
+ if (e && !strcmp(e, name))
+ {
+ table = n;
+ break;
+ }
+ }
+
+ fclose(f);
+ }
+
+ if (table == RT_TABLE_UNSPEC)
+ return false;
+
+ /* do not consider main table special */
+ if (table == RT_TABLE_MAIN)
+ table = RT_TABLE_UNSPEC;
+
+ *id = table;
+ return true;
+}
+
+static int system_iprule(struct iprule *rule, int cmd)
+{
+ int alen = ((rule->flags & IPRULE_FAMILY) == IPRULE_INET4) ? 4 : 16;
+
+ struct nl_msg *msg;
+ struct rtmsg rtm = {
+ .rtm_family = (alen == 4) ? AF_INET : AF_INET6,
+ .rtm_protocol = RTPROT_STATIC,
+ .rtm_scope = RT_SCOPE_UNIVERSE,
+ .rtm_table = RT_TABLE_UNSPEC,
+ .rtm_type = RTN_UNSPEC,
+ .rtm_flags = 0,
+ };
+
+ if (cmd == RTM_NEWRULE) {
+ rtm.rtm_type = RTN_UNICAST;
+ rtm.rtm_flags |= NLM_F_REPLACE | NLM_F_EXCL;
+ }
+
+ if (rule->invert)
+ rtm.rtm_flags |= FIB_RULE_INVERT;
+
+ if (rule->flags & IPRULE_SRC)
+ rtm.rtm_src_len = rule->src_mask;
+
+ if (rule->flags & IPRULE_DEST)
+ rtm.rtm_dst_len = rule->dest_mask;
+
+ if (rule->flags & IPRULE_TOS)
+ rtm.rtm_tos = rule->tos;
+
+ if (rule->flags & IPRULE_LOOKUP) {
+ if (rule->lookup < 256)
+ rtm.rtm_table = rule->lookup;
+ }
+
+ if (rule->flags & IPRULE_ACTION)
+ rtm.rtm_type = rule->action;
+ else if (rule->flags & IPRULE_GOTO)
+ rtm.rtm_type = FR_ACT_GOTO;
+ else if (!(rule->flags & (IPRULE_LOOKUP | IPRULE_ACTION | IPRULE_GOTO)))
+ rtm.rtm_type = FR_ACT_NOP;
+
+ msg = nlmsg_alloc_simple(cmd, NLM_F_REQUEST);
+
+ if (!msg)
+ return -1;
+
+ nlmsg_append(msg, &rtm, sizeof(rtm), 0);
+
+ if (rule->flags & IPRULE_IN)
+ nla_put(msg, FRA_IFNAME, strlen(rule->in_dev) + 1, rule->in_dev);
+
+ if (rule->flags & IPRULE_OUT)
+ nla_put(msg, FRA_OIFNAME, strlen(rule->out_dev) + 1, rule->out_dev);
+
+ if (rule->flags & IPRULE_SRC)
+ nla_put(msg, FRA_SRC, alen, &rule->src_addr);
+
+ if (rule->flags & IPRULE_DEST)
+ nla_put(msg, FRA_DST, alen, &rule->dest_addr);
+
+ if (rule->flags & IPRULE_PRIORITY)
+ nla_put_u32(msg, FRA_PRIORITY, rule->priority);
+ else if (cmd == RTM_NEWRULE)
+ nla_put_u32(msg, FRA_PRIORITY, rule->order);
+
+ if (rule->flags & IPRULE_FWMARK)
+ nla_put_u32(msg, FRA_FWMARK, rule->fwmark);
+
+ if (rule->flags & IPRULE_FWMASK)
+ nla_put_u32(msg, FRA_FWMASK, rule->fwmask);
+
+ if (rule->flags & IPRULE_LOOKUP) {
+ if (rule->lookup >= 256)
+ nla_put_u32(msg, FRA_TABLE, rule->lookup);
+ }
+
+ if (rule->flags & IPRULE_GOTO)
+ nla_put_u32(msg, FRA_GOTO, rule->gotoid);
+
+ return system_rtnl_call(msg);
+}
+
+int system_add_iprule(struct iprule *rule)
+{
+ return system_iprule(rule, RTM_NEWRULE);
+}
+
+int system_del_iprule(struct iprule *rule)
+{
+ return system_iprule(rule, RTM_DELRULE);
+}
+
+int system_flush_iprules(void)
+{
+ int rv = 0;
+ struct iprule rule;
+
+ system_if_clear_entries(NULL, RTM_GETRULE, AF_INET);
+ system_if_clear_entries(NULL, RTM_GETRULE, AF_INET6);
+
+ memset(&rule, 0, sizeof(rule));
+
+
+ rule.flags = IPRULE_INET4 | IPRULE_PRIORITY | IPRULE_LOOKUP;
+
+ rule.priority = 0;
+ rule.lookup = RT_TABLE_LOCAL;
+ rv |= system_iprule(&rule, RTM_NEWRULE);
+
+ rule.priority = 32766;
+ rule.lookup = RT_TABLE_MAIN;
+ rv |= system_iprule(&rule, RTM_NEWRULE);
+
+ rule.priority = 32767;
+ rule.lookup = RT_TABLE_DEFAULT;
+ rv |= system_iprule(&rule, RTM_NEWRULE);
+
+
+ rule.flags = IPRULE_INET6 | IPRULE_PRIORITY | IPRULE_LOOKUP;
+
+ rule.priority = 0;
+ rule.lookup = RT_TABLE_LOCAL;
+ rv |= system_iprule(&rule, RTM_NEWRULE);
+
+ rule.priority = 32766;
+ rule.lookup = RT_TABLE_MAIN;
+ rv |= system_iprule(&rule, RTM_NEWRULE);
+
+ return rv;
+}
+
+bool system_resolve_iprule_action(const char *action, unsigned int *id)
+{
+ char *e;
+ unsigned int n;
+
+ if (!strcmp(action, "local"))
+ n = RTN_LOCAL;
+ else if (!strcmp(action, "nat"))
+ n = RTN_NAT;
+ else if (!strcmp(action, "broadcast"))
+ n = RTN_BROADCAST;
+ else if (!strcmp(action, "anycast"))
+ n = RTN_ANYCAST;
+ else if (!strcmp(action, "multicast"))
+ n = RTN_MULTICAST;
+ else if (!strcmp(action, "prohibit"))
+ n = RTN_PROHIBIT;
+ else if (!strcmp(action, "unreachable"))
+ n = RTN_UNREACHABLE;
+ else if (!strcmp(action, "blackhole"))
+ n = RTN_BLACKHOLE;
+ else if (!strcmp(action, "xresolve"))
+ n = RTN_XRESOLVE;
+ else if (!strcmp(action, "unicast"))
+ n = RTN_UNICAST;
+ else if (!strcmp(action, "throw"))
+ n = RTN_THROW;
+ else if (!strcmp(action, "failed_policy"))
+ n = RTN_FAILED_POLICY;
+ else {
+ n = strtoul(action, &e, 0);
+ if (!e || *e || e == action || n > 255)
+ return false;
+ }
+
+ *id = n;
+ return true;
+}
+
+time_t system_get_rtime(void)
+{
+ struct timespec ts;
+ struct timeval tv;
+
+ if (syscall(__NR_clock_gettime, CLOCK_MONOTONIC, &ts) == 0)
+ return ts.tv_sec;
+
+ if (gettimeofday(&tv, NULL) == 0)
+ return tv.tv_sec;
+
+ return 0;
+}
+
+#ifndef IP_DF
+#define IP_DF 0x4000
+#endif
+
+static int tunnel_ioctl(const char *name, int cmd, void *p)
+{
+ struct ifreq ifr;
+
+ memset(&ifr, 0, sizeof(ifr));
+ strncpy(ifr.ifr_name, name, sizeof(ifr.ifr_name));
+ ifr.ifr_ifru.ifru_data = p;
+ return ioctl(sock_ioctl, cmd, &ifr);
+}
+
+int system_del_ip_tunnel(const char *name)
+{
+ return tunnel_ioctl(name, SIOCDELTUNNEL, NULL);
+}
+
+int system_update_ipv6_mtu(struct device *dev, int mtu)
+{
+ int ret = -1;
+ char buf[64];
+ snprintf(buf, sizeof(buf), "/proc/sys/net/ipv6/conf/%s/mtu",
+ dev->ifname);
+
+ int fd = open(buf, O_RDWR);
+ ssize_t len = read(fd, buf, sizeof(buf) - 1);
+ if (len < 0)
+ goto out;
+
+ buf[len] = 0;
+ ret = atoi(buf);
+
+ if (!mtu || ret <= mtu)
+ goto out;
+
+ lseek(fd, 0, SEEK_SET);
+ if (write(fd, buf, snprintf(buf, sizeof(buf), "%i", mtu)) <= 0)
+ ret = -1;
+
+out:
+ close(fd);
+ return ret;
+}
+
+int system_add_ip_tunnel(const char *name, struct blob_attr *attr)
+{
+ struct blob_attr *tb[__TUNNEL_ATTR_MAX];
+ struct blob_attr *cur;
+ bool set_df = true;
+ const char *str;
+
+ system_del_ip_tunnel(name);
+
+ blobmsg_parse(tunnel_attr_list.params, __TUNNEL_ATTR_MAX, tb,
+ blob_data(attr), blob_len(attr));
+
+ if (!(cur = tb[TUNNEL_ATTR_TYPE]))
+ return -EINVAL;
+ str = blobmsg_data(cur);
+
+ if ((cur = tb[TUNNEL_ATTR_DF]))
+ set_df = blobmsg_get_bool(cur);
+
+ unsigned int ttl = 0;
+ if ((cur = tb[TUNNEL_ATTR_TTL])) {
+ ttl = blobmsg_get_u32(cur);
+ if (ttl > 255 || (!set_df && ttl))
+ return -EINVAL;
+ }
+
+ unsigned int link = 0;
+ if ((cur = tb[TUNNEL_ATTR_LINK])) {
+ struct interface *iface = vlist_find(&interfaces, blobmsg_data(cur), iface, node);
+ if (!iface)
+ return -EINVAL;
+
+ if (iface->l3_dev.dev)
+ link = iface->l3_dev.dev->ifindex;
+ }
+
+ if (!strcmp(str, "sit")) {
+ struct ip_tunnel_parm p = {
+ .link = link,
+ .iph = {
+ .version = 4,
+ .ihl = 5,
+ .frag_off = set_df ? htons(IP_DF) : 0,
+ .protocol = IPPROTO_IPV6,
+ .ttl = ttl
+ }
+ };
+
+ if ((cur = tb[TUNNEL_ATTR_LOCAL]) &&
+ inet_pton(AF_INET, blobmsg_data(cur), &p.iph.saddr) < 1)
+ return -EINVAL;
+
+ if ((cur = tb[TUNNEL_ATTR_REMOTE]) &&
+ inet_pton(AF_INET, blobmsg_data(cur), &p.iph.daddr) < 1)
+ return -EINVAL;
+
+ strncpy(p.name, name, sizeof(p.name));
+ if (tunnel_ioctl("sit0", SIOCADDTUNNEL, &p) < 0)
+ return -1;
+
+#ifdef SIOCADD6RD
+ if ((cur = tb[TUNNEL_ATTR_6RD_PREFIX])) {
+ unsigned int mask;
+ struct ip_tunnel_6rd p6;
+
+ memset(&p6, 0, sizeof(p6));
+
+ if (!parse_ip_and_netmask(AF_INET6, blobmsg_data(cur),
+ &p6.prefix, &mask) || mask > 128)
+ return -EINVAL;
+ p6.prefixlen = mask;
+
+ if ((cur = tb[TUNNEL_ATTR_6RD_RELAY_PREFIX])) {
+ if (!parse_ip_and_netmask(AF_INET, blobmsg_data(cur),
+ &p6.relay_prefix, &mask) || mask > 32)
+ return -EINVAL;
+ p6.relay_prefixlen = mask;
+ }
+
+ if (tunnel_ioctl(name, SIOCADD6RD, &p6) < 0) {
+ system_del_ip_tunnel(name);
+ return -1;
+ }
+ }
+#endif
+ } else if (!strcmp(str, "ipip6")) {
+ struct ip6_tnl_parm p = {
+ .link = link,
+ .proto = IPPROTO_IPIP,
+ .hop_limit = (ttl) ? ttl : 64,
+ .encap_limit = 4,
+ };
+
+ if ((cur = tb[TUNNEL_ATTR_LOCAL]) &&
+ inet_pton(AF_INET6, blobmsg_data(cur), &p.laddr) < 1)
+ return -EINVAL;
+
+ if ((cur = tb[TUNNEL_ATTR_REMOTE]) &&
+ inet_pton(AF_INET6, blobmsg_data(cur), &p.raddr) < 1)
+ return -EINVAL;
+
+ strncpy(p.name, name, sizeof(p.name));
+ if (tunnel_ioctl("ip6tnl0", SIOCADDTUNNEL, &p) < 0)
+ return -1;
+ } else
+ return -EINVAL;
+
+ return 0;
+}