babeld.init

#!/bin/sh /etc/rc.common

START=70

pidfile='/var/run/babeld.pid'
EXTRA_COMMANDS="status"
EXTRA_HELP="        status Dump Babel's table to the log file."

listen_ifname() {
	local ifname=$(uci_get_state network "$1" ifname "$1")
	local switch="$2"
	append args "$switch $ifname"
	append interfaces "$ifname"
}

append_ifname() {
	local section="$1"
	local option="$2"
	local switch="$3"
	local _name
	config_get _name "$section" "$option"
	[ -z "$_name" ] && return 0
	local ifname=$(uci_get_state network "$_name" ifname "$_name")
	append args "$switch $ifname"
}

append_bool() {
	local section="$1"
	local option="$2"
	local value="$3"
	local _loctmp
	config_get_bool _loctmp "$section" "$option" 0
	[ "$_loctmp" -gt 0 ] && append args "$value"
}

append_switch() {
	local value="$1"
	local switch="$2"
	append args "$switch $value"
}

append_parm() {
	local section="$1"
	local option="$2"
	local switch="$3"
	local _loctmp
	config_get _loctmp "$section" "$option"
	[ -z "$_loctmp" ] && return 0
	append args "$switch $_loctmp"
}

babel_filter() {
	local cfg="$1"
	local _loctmp

	local _ignored
	config_get_bool _ignored "$cfg" 'ignore' 0
	[ "$_ignored" -eq 1 ] && return 0
	
	append args "-C '"

	append_parm "$cfg" 'type' ''

	append_bool "$cfg" 'local' 'local'

	append_parm "$cfg" 'ip' 'ip'
	append_parm "$cfg" 'eq' 'eq'
	append_parm "$cfg" 'le' 'le'
	append_parm "$cfg" 'ge' 'ge'
	append_parm "$cfg" 'neigh' 'neigh'
	append_parm "$cfg" 'id' 'id'
	append_parm "$cfg" 'proto' 'proto'

	append_ifname "$cfg" 'if' 'if'

	append_parm "$cfg" 'action' ''

	append args ' ' "'"
}

babel_addif() {
	local cfg="$1"

	local _ignored
	config_get_bool _ignored "$cfg" 'ignore' 0
	[ "$_ignored" -eq 1 ] && return 0
	
	listen_ifname "$cfg" "-C 'interface"

	append_parm "$cfg" 'wired' 'wired'
	append_parm "$cfg" 'link_quality' 'link-quality'
	append_parm "$cfg" 'split_horizon' 'split-horizon'
	append_parm "$cfg" 'rxcost' 'rxcost'
	append_parm "$cfg" 'hello_interval' 'hello-interval'
	append_parm "$cfg" 'update_interval' 'update-interval'
	append_bool "$cfg" 'enable_timestamps' 'enable-timestamps'
	append_parm "$cfg" 'max_rtt_penalty' 'max-rtt-penalty'
	append_parm "$cfg" 'rtt_decay' 'rtt-decay'
	append_parm "$cfg" 'rtt_min' 'rtt-min'
	append_parm "$cfg" 'rtt_max' 'rtt-max'

	append args ' ' "'"
}

babel_config() {
	local cfg="$1"

	append_bool "$cfg" 'carrier_sense' '-l'
	append_bool "$cfg" 'assume_wireless' '-w'
	append_bool "$cfg" 'no_split_horizon' '-s'
	append_bool "$cfg" 'keep_unfeasible' '-u'
	append_bool "$cfg" 'random_router_id' '-r'

	append_parm "$cfg" 'multicast_address' '-m'
	append_parm "$cfg" 'port' '-p'
	append_parm "$cfg" 'state_file' '-S'
	append_parm "$cfg" 'hello_interval' '-h'
	append_parm "$cfg" 'wired_hello_interval' '-H'
	append_parm "$cfg" 'diversity' '-z'
	append_parm "$cfg" 'smoothing_half_time' '-M'
	append_parm "$cfg" 'kernel_priority' '-k'
	append_parm "$cfg" 'duplication_priority' '-A'
	append_parm "$cfg" 'debug' '-d'
	append_parm "$cfg" 'local_server' '-g'
	append_parm "$cfg" 'export_table' '-t'
	config_list_foreach "$cfg" 'import_table' append_switch '-T'
	append_parm "$cfg" 'conf_file' '-c'
	append_parm "$cfg" 'log_file' '-L'
}

start() {
	mkdir -p /var/lib
	config_load babeld
	unset args
	unset interfaces
	config_foreach babel_config general
	config_foreach babel_addif interface
	config_foreach babel_filter filter
	[ -z "$interfaces" ] && return 0
	eval "/usr/sbin/babeld -D -I $pidfile $args $interfaces"
}

stop() {
	[ -f "$pidfile" ] && kill $(cat $pidfile)
  # avoid race-condition on restart: wait for
  # babeld to die for real.
  [ -f "$pidfile" ] && sleep 1
  [ -f "$pidfile" ] && sleep 1
  [ -f "$pidfile" ] && sleep 1
  [ -f "$pidfile" ] && exit 42
}

status() {
	[ -f "$pidfile" ] && kill -USR1 $(cat $pidfile)
}