# l2tp.sh - L2TPv3 tunnel backend
# Copyright (c) 2010 OpenWrt.org
 
l2tp_next_tunnel_id() {
        local max=0
        local val
        for val in $(
                local l
                l2tpv3tun show tunnel | while read l; do
                        case "$l" in
                                Tunnel*,*encap*) l="${l#Tunnel }"; echo "${l%%,*}";;
                        esac
                done
        ); do
                [ "$val" -gt "$max" ] && max="$val"
        done
        echo $((max + 1))
}
 
l2tp_next_session_id() {
        local tunnel="$1"
        local max=0
        local val
        for val in $(
                local l
                l2tpv3tun show session${tunnel:+ tunnel_id "$tunnel"} | while read l; do
                        case "$l" in
                                Session*in*) l="${l#Session }"; echo "${l%% *}";;
                        esac
                done
        ); do
                [ "$val" -gt "$max" ] && max="$val"
        done
        echo $((max + 1))
}
 
l2tp_tunnel_exists() {
        test -n "$(l2tpv3tun show tunnel tunnel_id "$1" 2>/dev/null)"
}
 
l2tp_session_exists() {
        test -n "$(l2tpv3tun show session tunnel_id "$1" session_id "$2" 2>/dev/null)"
}
 
l2tp_ifname() {
        l2tpv3tun show session tunnel_id "$1" session_id "$2" 2>/dev/null | \
                sed -ne 's/^.*interface name: //p'
}
 
l2tp_lock() {
        lock /var/lock/l2tp-setup
}
 
l2tp_unlock() {
        lock -u /var/lock/l2tp-setup
}
 
l2tp_log() {
        logger -t "ifup-l2tp" "$@"
}
 
 
# Hook into scan_interfaces() to synthesize a .device option
# This is needed for /sbin/ifup to properly dispatch control
# to setup_interface_l2tp() even if no .ifname is set in
# the configuration.
scan_l2tp() {
        local dev
        config_get dev "$1" device
        config_set "$1" device "${dev:+$dev }l2tp-$1"
}
 
coldplug_interface_l2tp() {
        setup_interface_l2tp "l2tp-$1" "$1"
}
 
setup_interface_l2tp() {
        local iface="$1"
        local cfg="$2"
        local link="l2tp-$cfg"
 
        l2tp_lock
 
        # prevent recursion
        local up="$(uci_get_state network "$cfg" up 0)"
        [ "$up" = 0 ] || {
                l2tp_unlock
                return 0
        }
 
        local tunnel_id
        config_get tunnel_id "$cfg" tunnel_id
        [ -n "$tunnel_id" ] || {
                tunnel_id="$(l2tp_next_tunnel_id)"
                uci_set_state network "$cfg" tunnel_id "$tunnel_id"
                l2tp_log "No tunnel ID specified, assuming $tunnel_id"
        }
 
        local peer_tunnel_id
        config_get peer_tunnel_id "$cfg" peer_tunnel_id
        [ -n "$peer_tunnel_id" ] || {
                peer_tunnel_id="$tunnel_id"
                uci_set_state network "$cfg" peer_tunnel_id "$peer_tunnel_id"
                l2tp_log "No peer tunnel ID specified, assuming $peer_tunnel_id"
        }
 
        local encap
        config_get encap "$cfg" encap udp
 
        local sport dport
        [ "$encap" = udp ] && {
                config_get sport "$cfg" sport 1701
                config_get dport "$cfg" dport 1701
        }
 
        local peeraddr
        config_get peeraddr "$cfg" peeraddr
        [ -z "$peeraddr" ] && config_get peeraddr "$cfg" peer6addr
 
        local localaddr
        case "$peeraddr" in
                *:*) config_get localaddr "$cfg" local6addr ;;
                *)   config_get localaddr "$cfg" localaddr  ;;
        esac
 
        [ -n "$localaddr" -a -n "$peeraddr" ] || {
                l2tp_log "Missing local or peer address for tunnel $cfg - skipping"
                return 1
        }
 
        (
                while ! l2tp_tunnel_exists "$tunnel_id"; do
                        [ -n "$sport" ] && l2tpv3tun show tunnel 2>/dev/null | grep -q "ports: $sport/" && {
                                l2tp_log "There already is a tunnel with src port $sport - skipping"
                                l2tp_unlock
                                return 1
                        }
 
                        l2tpv3tun add tunnel tunnel_id "$tunnel_id" peer_tunnel_id "$peer_tunnel_id" \
                                encap "$encap" local "$localaddr" remote "$peeraddr" \
                                ${sport:+udp_sport "$sport"} ${dport:+udp_dport "$dport"}
 
                        # Wait for tunnel
                        sleep 1
                done
 
 
                local session_id
                config_get session_id "$cfg" session_id
                [ -n "$session_id" ] || {
                        session_id="$(l2tp_next_session_id "$tunnel_id")"
                        uci_set_state network "$cfg" session_id "$session_id"
                        l2tp_log "No session ID specified, assuming $session_id"
                }
 
                local peer_session_id
                config_get peer_session_id "$cfg" peer_session_id
                [ -n "$peer_session_id" ] || {
                        peer_session_id="$session_id"
                        uci_set_state network "$cfg" peer_session_id "$peer_session_id"
                        l2tp_log "No peer session ID specified, assuming $peer_session_id"
                }
 
 
                while ! l2tp_session_exists "$tunnel_id" "$session_id"; do
                        l2tpv3tun add session ifname "$link" tunnel_id "$tunnel_id" \
                                session_id "$session_id" peer_session_id "$peer_session_id"
 
                        # Wait for session
                        sleep 1
                done
 
 
                local dev
                config_get dev "$cfg" device
 
                local ifn
                config_get ifn "$cfg" ifname
 
                uci_set_state network "$cfg" ifname "${ifn:-$dev}"
                uci_set_state network "$cfg" device "$dev"
 
                local mtu
                config_get mtu "$cfg" mtu 1462
 
                local ttl
                config_get ttl "$cfg" ttl
 
                ip link set mtu "$mtu" ${ttl:+ ttl "$ttl"} dev "$link"
 
                # IP setup inherited from proto static
                prepare_interface "$link" "$cfg"
                setup_interface_static "${ifn:-$dev}" "$cfg"
 
                ip link set up dev "$link"
 
                uci_set_state network "$cfg" up 1
                l2tp_unlock
        ) &
}
 
stop_interface_l2tp() {
        local cfg="$1"
        local link="l2tp-$cfg"
 
        local tunnel=$(uci_get_state network "$cfg" tunnel_id)
        local session=$(uci_get_state network "$cfg" session_id)
 
        [ -n "$tunnel" ] && [ -n "$session" ] && {
                l2tpv3tun del session tunnel_id "$tunnel" session_id "$session"
                l2tpv3tun del tunnel tunnel_id "$tunnel"
        }
}