make gmap-probes
[sliver-openvswitch.git] / planetlab / scripts / sliver-ovs.in
1 #!/bin/bash
2 # -*-shell-mode-*-
3
4 ### expected to be run as root
5
6 COMMAND=$0
7
8 #################### global vars
9 RUN_DIR=@RUNDIR@
10 DB_CONF_FILE=@DBDIR@/conf.db
11 DB_SCHEMA=@pkgdatadir@/vswitch.ovsschema
12 DB_LOG=@LOGDIR@/ovs-db.log
13 ##
14 DB_SOCKET=$RUN_DIR/db.sock
15 ##
16 SWITCH_LOG=@LOGDIR@/ovs-switch.log
17
18 #################### helper functions
19
20 function kill_pltap_ovs () {
21     killall pltap-ovs 2>/dev/null || :
22 }
23
24 function error {
25     echo "$@" >&2
26     exit 1
27 }
28
29 function get_params {
30     params=$1; shift
31     err_msg="$COMMAND $SUBCOMMAND $(echo $params | perl -pe 's/\S+/<$&>/g')"
32     for p in $(echo $params); do
33         [[ -z "$@" ]] && error "$err_msg"
34         pname=$(echo -n $p|perl -pe 's/\W/_/g')
35         eval $pname="$1"; shift
36     done
37     [[ -n "$@" ]] && error "$err_msg"
38 }
39
40 function is_switch_running {
41     ovs-appctl --target=ovs-vswitchd version >& /dev/null
42 }
43
44 function is_db_running {
45     ovs-appctl --target=ovsdb-server version >& /dev/null
46 }
47
48 function tapname () {
49     IP=$1; shift
50     echo $(ip addr show to "$IP/32" | perl -ne '/^\s*\d+:\s*([\w-]+):/ && print $1')
51 }
52     
53 function wait_server () {
54     pid_file=$1; shift
55     server_name=$1; shift
56     timeout=$1; shift
57
58     expire=$(($(date +%s) + $timeout))
59
60     ## wait for it to be up - xxx todo - could use a timeout of some kind
61     while [ ! -f "$pid_file" ]; do
62         echo "Waiting for $server_name to start... $(($expire - $(date +%s)))s left" >&2
63         sleep 1;
64         [ $(date +%s) -ge $expire ] && return 1
65     done
66     cat "$pid_file"
67 }
68
69 function wait_device () {
70     tapname=$1; shift
71     timeout=$1; shift
72
73     expire=$(($(date +%s) + $timeout))
74
75     while ! ip link show up | egrep -q "^[0-9]+: +$tapname:"; do
76         echo "Waiting for $tapname to come UP...$(($expire - $(date +%s)))s left" >&2
77         sleep 1
78         [ $(date +%s) -ge $expire ] && return 1
79     done
80     return 0
81 }
82
83 ######################################## startup
84 function start_db () {
85     get_params "" "$@"
86
87     ## init conf
88     conf_dir=$(dirname $DB_CONF_FILE)
89     [ -d $conf_dir ] || mkdir -p $conf_dir
90     [ -f $DB_CONF_FILE ] || ovsdb-tool create $DB_CONF_FILE $DB_SCHEMA
91
92     ## init run
93     [ -d $RUN_DIR ] || mkdir -p $RUN_DIR
94
95     ## check 
96     [ -f $DB_CONF_FILE ] || { echo "Could not initialize $DB_CONF_FILE - exiting" ; exit 1 ; }
97     [ -d $RUN_DIR ] || { echo "Could not initialize $RUN_DIR - exiting" ; exit 1 ; }
98
99     ## run the stuff
100     if [ ! -f "$RUN_DIR/ovsdb-server.pid" ]; then
101         ovsdb-server $DB_CONF_FILE \
102             --remote=punix:$DB_SOCKET \
103             --remote=db:Open_vSwitch,manager_options \
104             --private-key=db:SSL,private_key \
105             --certificate=db:SSL,certificate \
106             --bootstrap-ca-cert=db:SSL,ca_cert \
107             --pidfile \
108             --log-file=$DB_LOG \
109             --detach >& /dev/null
110     else
111         echo 'ovsdb-server appears to be running already, *not* starting'
112     fi
113     wait_server $RUN_DIR/ovsdb-server.pid ovsdb-server 30
114 }
115
116 function start_switch () {
117     get_params "" "$@"
118
119     # ensure ovsdb-server is running
120     is_db_running || { echo "ovsdb-server not running" >&2 ; exit 1 ; }
121
122     if [ ! -f "$RUN_DIR/ovs-vswitchd.pid" ] ; then
123         ovs-vswitchd \
124             --pidfile \
125             --log-file=$SWITCH_LOG \
126             --detach \
127             unix:$DB_SOCKET >& /dev/null
128     else
129         echo 'ovs-vswitchd appears to be running already, *not* starting'
130     fi
131     wait_server $RUN_DIR/ovs-vswitchd.pid ovs-vswitchd 30
132 }
133
134 function stop_db () { 
135     ovs-appctl --target=ovsdb-server exit || :
136 }
137
138 function stop_switch () { 
139     ovs-appctl --target=ovs-vswitchd exit || :
140 }
141
142 function status () {
143     pids=$(pgrep '^ovs')
144     [ -n "$pids" ] && ps $pids
145 }
146
147 function start () {
148     start_db
149     start_switch
150 }
151
152 function stop () {
153     stop_switch
154     stop_db
155 }
156
157 #################### create functions
158 function create_bridge () {
159     
160     get_params "bridge IP/PREFIX" "$@"
161
162     IP=${IP_PREFIX%/*}
163     PREFIX=${IP_PREFIX#*/}
164
165     # ensure ovs-vswitchd is running
166     is_switch_running || { echo "ovs-vswitchd not running" >&2 ; exit 1 ; }
167
168     set -e
169     ovs-vsctl --db=unix:$DB_SOCKET -- --may-exist add-br "$bridge" \
170         -- set bridge "$bridge" datapath_type=planetlab \
171         -- set interface "$bridge" options:local_ip="$IP" option:local_netmask="$PREFIX"
172     ovs-appctl netdev-pltap/get-tapname "$bridge"
173 }
174
175 function create_port () {
176
177     get_params "bridge port" "$@"
178
179     # ensure ovs-vswitchd is running
180     is_switch_running || { echo "ovs-vswitchd not running" >&2 ; exit 1 ; }
181
182     set -e
183     ovs-vsctl --db=unix:$DB_SOCKET -- --may-exist add-port "$bridge" "$port" -- set interface "$port" type=tunnel
184     ovs-appctl --target=ovs-vswitchd netdev-tunnel/get-port "$port"
185 }
186
187 function set_remote_endpoint () {
188
189     get_params "local_port remote_ip remote_UDP_port" "$@"
190
191     # ensure ovs-vswitchd is running
192     is_switch_running || { echo "ovs-vswitchd not running" >&2 ; exit 1 ; }
193
194     set -e
195     ovs-vsctl --db=unix:$DB_SOCKET set interface $local_port \
196         options:remote_ip=$remote_ip \
197         options:remote_port=$remote_UDP_port
198 }
199
200 function set_controller () {
201
202     get_params "bridge_name controller" "$@"
203
204     # ensure ovs-vswitchd is running
205     is_switch_running || { echo "ovs-vswitchd not running" >&2 ; exit 1 ; }
206
207     set -e
208     ovs-vsctl --db=unix:$DB_SOCKET set-controller "$bridge_name" "$controller"
209 }
210
211 function del_controller () {
212
213     get_params "bridge_name" "$@"
214
215     # ensure ovs-vswitchd is running
216     is_switch_running || { echo "ovs-vswitchd not running" >&2 ; exit 1 ; }
217
218     set -e
219     ovs-vsctl --db=unix:$DB_SOCKET del-controller "$bridge_name"
220 }
221
222 #################### del functions
223 function del_bridge () {
224     
225     get_params "bridge_name" "$@"
226
227     W=
228     if ! is_switch_running; then
229         # we can delete the bridge even if ovs-vswitchd is not running,
230         # but we need a running ovsdb-server
231         is_db_running || { echo "ovsdb-server not running" >&2; exit 1; }
232         W="--no-wait"
233     fi
234
235     ovs-vsctl --db=unix:$DB_SOCKET $W -- --if-exists del-br $bridge_name
236 }
237
238 function del_port () {
239     
240     get_params "port" "$@"
241
242     W=
243     if ! is_switch_running; then
244         # we can delete the port even if ovs-vswitchd is not running,
245         # but we need a running ovsdb-server
246         is_db_running || { echo "ovsdb-server not running" >&2; exit 1; }
247         W="--no-wait"
248     fi
249
250     ovs-vsctl --db=unix:$DB_SOCKET $W -- --if-exists del-port "$port"
251 }
252
253 function show () {
254
255     get_params "" "$@"
256
257     is_db_running || { echo "ovsdb-server not running" >&2; exit 1; }
258
259     ovs-vsctl --db=unix:$DB_SOCKET show
260 }
261
262 ### for demos - connect to an ndnmap deployment to visualize links bandwidth
263 # this expects 3 arguments
264 # an interface name, L<id1>-<id2> based on your ids in conf.mk
265 # the hostname for a ndnmap deployment
266 # a linkid, this is the id that this link has in your ndnmap scenario (hard-coded in some json file)
267 # this one-shot function writes the current statistics onto the ndnmap site
268 # it needs to be called regularly so that ndnmap can do the bw computations
269 # would make sense for the caller to redirect stderr onto some relevant location
270 function gmap_report_once () {
271     iface=$1; shift
272     hostname=$1; shift
273     linkid=$1; shift
274     rx_bytes=$(ovs-appctl netdev-tunnel/get-rx-bytes $iface)
275     tx_bytes=$(ovs-appctl netdev-tunnel/get-tx-bytes $iface)
276     rx_bits=$(($rx_bytes*8))
277     tx_bits=$(($tx_bytes*8))
278     now=$(date +%s).$(date +%N)
279     trigger=http://${hostname}/bw/${linkid}/${now}/${rx_bits}/${tx_bits}
280 #    curl -s -L $trigger | grep -q "Got it" || echo Missed event with $trigger
281 #    echo $trigger
282     curl -s -L $trigger >& /dev/null
283 }
284
285 ### the front end, manages pid and so on
286 function gmap_report () {
287     iface=$1; shift
288     hostname=$1; shift
289     linkid=$1; shift
290     looptime=$1; shift
291     [ -z "$looptime" ] && looptime=1
292     pid_file=/var/run/openvswitch/gmap-$iface.pid
293     if [ -f $pid_file ] ; then
294         pid=$(cat $pid_file)
295         [ -n "$pid" ] && kill $pid >& /dev/null
296         rm $pid_file
297     fi
298     # close std fds so that ssh invokations can return
299     exec <&-
300     exec >&-
301     while true; do
302         gmap_report_once $iface $hostname $linkid
303         sleep $looptime
304     done &
305     # this is the pid for the background process
306     echo $! > $pid_file
307 }
308
309 ####################
310 SUPPORTED_SUBCOMMANDS="start stop status 
311 start_db stop_db start_switch stop_switch
312 create_bridge create_port del_bridge del_port
313 show set_remote_endpoint set_controller del_controller gmap_report"
314
315 function main () {
316         message="Usage: $COMMAND <subcommand> ...
317 Supported subcommands are (dash or underscore is the same):
318 $SUPPORTED_SUBCOMMANDS"
319         [[ -z "$@" ]] && error "$message"
320
321         SUBCOMMAND=$1; shift
322         # support dashes instead of underscores
323         SUBCOMMAND=$(echo $SUBCOMMAND | sed -e s,-,_,g)
324         found=""
325         for supported in $SUPPORTED_SUBCOMMANDS; do [ "$SUBCOMMAND" = "$supported" ] && found=yes; done
326
327         [ -z "$found" ] && error $message
328
329         $SUBCOMMAND "$@"
330 }
331
332 main "$@"