+++ /dev/null
-#!/bin/bash
-
-
-STROK="remote IP address"
-GCOM=""
-LOGF="/tmp/umtslogs"
-PPPD_PIDFILE="/var/run/umts_pppd.pid"
-DESTS_FILE="/tmp/umts_dest_file"
-FILE_TEMP_NID="/tmp/umts_temp_nid"
-FILE_UMTS_INT="/tmp/umts_dev"
-LOCK_DIR="/var/run/umts_lock"
-FILE_LOCK_SLIVER="/var/run/umts_locking_sliver"
-PPP_INT="ppp0"
-PPPD="pppd"
-
-
-function set_umts_dev(){
- local umts_dev=$1
- echo $umts_dev > $FILE_UMTS_INT
-}
-
-function get_umts_dev(){
- if [ -e $FILE_UMTS_INT ]; then
- cat $FILE_UMTS_INT
- fi
-}
-
-function unset_umts_dev(){
- rm -f $FILE_UMTS_INT
-}
-
-
-function init_umts(){
- local found=1
-
- if [ -f /usr/bin/gcom ]; then
- GCOM=/usr/bin/gcom
- elif [ -f /usr/bin/comgt ]; then
- GCOM=/usr/bin/comgt
- else
- echo "I couldn't find gcom"
- return 1;
- fi
-
- unset_umts_dev
-
- if [ -e $LOCK_DIR ]; then
- rmdir $LOCK_DIR
- fi
-
- for i in /dev/umts_modem /dev/umts_modem1; do
- echo "Testing if the umts interface is present on the device $i..."
- if [ -e $i ]; then
- if $GCOM -d $i; then
- found=0
- set_umts_dev $i
- break
- fi
- fi
- done
-
- if ! [ $found == 0 ]; then
- echo "I couldn't find the umts device. Make a symlink from it to /dev/umts_modem."
- return 1
- fi
-
- if ! grep "umts_table" /etc/iproute2/rt_tables > /dev/null 2>&1; then
- echo "20 umts_table" >> /etc/iproute2/rt_tables
- fi
-
- return 0
-
-}
-
-
-function get_temp_nid(){
- cat $FILE_TEMP_NID
-}
-
-
-#called when the connection is started
-function conn_on(){
- local sliver=$1
-
- #DESTS_FILE contains added destinations
- rm -f $DESTS_FILE
-
- set_temp_nid $sliver_nid
-
- set_routes $sliver
-
- cat $LOGF | grep "local"
- return 0
-
-}
-
-#called when the connection is terminated
-function conn_off(){
- local sliver=$1
- local ppp_addr=$2
-
- unset_routes $sliver $ppp_addr
-
- for i in `cat $DESTS_FILE`; do
- del_destination $i $sliver > /dev/null 2>&1
- done
-
- rm $DESTS_FILE >/dev/null 2>&1
-}
-
-function start_umts(){
- local sliver=$1
- local sliver_nid=`get_nid $sliver`
-
- if ! lock $sliver; then
- return 1
- fi
-
- if status_umts; then
- echo "Already connected"
- return 0;
- fi
-
- if [[ `get_umts_dev` == "" ]]; then
- if [[ init_umts != 0 ]]; then
- return 1
- fi
- fi
-
- if ! [ -e `get_umts_dev` ]; then
- echo "Umts interface is not present"
- return 1
- fi
-
- rm -f $LOGF
-
- exec /usr/sbin/pppd nodetach `get_umts_dev` 460800 \
- 0.0.0.0:0.0.0.0 \
- connect "/usr/sbin/chat -v \
- TIMEOUT 6 \
- ABORT '\nBUSY\r' \
- ABORT '\nNO ANSWER\r' \
- ABORT '\nRINGING\r\n\r\nRINGING\r' \
- '' ATZ OK 'ATQ0 V1 E1 S0=0 &C1 &D2 +FCLASS=0' OK \
- ATD*99***1# CONNECT ''" > $LOGF &
-
- echo $! > $PPPD_PIDFILE
-
- sleep 5s; #waiting for the interface to establish the link
- if grep "$STROK" $LOGF >/dev/null 2>&1; then
- conn_on $sliver $sliver_nid
- else
- #second try
- sleep 5s;
- if grep "$STROK" $LOGF >/dev/null 2>&1; then
- conn_on $sliver $sliver_nid
- else
- stop_umts $sliver
- return 1
- fi
- fi
-}
-
-
-
-
-function stop_umts(){
- local sliver=$1
- local sliver_nid=`get_nid $sliver`
- local ppp_addr
-
- if ! [ -e $PPPD_PIDFILE ]; then
- echo "Disconnected"
- return 0;
- fi
-
- ppp_addr=`get_ppp_address`
-
- if ! check_who_locked $sliver; then
- return 1
- fi
-
- PID=`cat $PPPD_PIDFILE`;
-
- if [ -d /proc/$PID ] && grep $PPPD /proc/$PID/cmdline >/dev/null 2>&1; then
- kill $PID; touch $DESTS_FILE
-
- sleep 2s;
- fi
-
- if status_umts; then
- return 1;
- else
- conn_off $sliver $ppp_addr
- cat $LOGF | grep "time"
- rm $PPPD_PIDFILE
- unlock $sliver;
- return 0
- fi
-}
-
-
-function status_umts(){
- local sliver=$1
-
- if ! [ -e $PPPD_PIDFILE ]; then return 1; fi
-
- PID=`cat $PPPD_PIDFILE`
-
- if [ -d /proc/$PID ] && grep $PPPD /proc/$PID/cmdline >/dev/null 2>&1; then
- return 0;
- else
- return 1;
- fi
-}
-
-#add the ppp interface to the slice - not used at the moment
-function add_interface(){
- local nid=`get_nid $1`
- $NADDRESS --add --nid $nid --ip $PPP_INT >>$LOGFILE 2>&1;
-}
-
-#remove the ppp interface from the slice - not used at the moment
-function del_interface(){
- local nid=`get_nid $1`
- #$NADDRESS --remove --nid $NID --ip $PPP_INT >>$LOGFILE 2>&1;
-}
-
-#get slice network id
-function get_nid(){
- id -u ${1}
-}
-
-function set_routes(){
- local sliver=$1
- local sliver_nid=`get_nid $sliver`
- local temp_nid=`get_temp_nid`
- local ppp_addr=`get_ppp_address`
-
- #remarking of packets, to trigger rerouting, and SNAT
- iptables -t mangle -A OUTPUT -j MARK --copy-xid 0x00
- iptables -t mangle -A OUTPUT -m mark --mark $sliver_nid -j MARK --set-mark $temp_nid
- iptables -t nat -A POSTROUTING -o $PPP_INT -j SNAT --to-source $ppp_addr
-
- #restores the original mark
- iptables -t mangle -I POSTROUTING 1 -m mark --mark $temp_nid -j MARK --set-mark $sliver_nid
-
- #forbids other slices to use the UMTS interface
- iptables -t mangle -I POSTROUTING 2 -o $PPP_INT -m mark ! --mark $sliver_nid -j DROP
-
- #enables the explicit bind to the ppp interface
- ip route flush table umts_table >/dev/null 2>&1
- ip rule add from $ppp_addr fwmark $temp_nid table umts_table >/dev/null 2>&1
- ip route add default dev $PPP_INT src $ppp_addr table umts_table >/dev/null 2>&1
- ip route flush cache >/dev/null 2>&1
-}
-
-function unset_routes(){
- local sliver=$1
- local ppp_addr=$2
- local sliver_nid=`get_nid $sliver`
- local temp_nid=`get_temp_nid`
-
-
- #remarking and SNAT removed
- iptables -t mangle -D OUTPUT -j MARK --copy-xid 0x00
- iptables -t mangle -D OUTPUT -m mark --mark $sliver_nid -j MARK --set-mark $temp_nid
- iptables -t nat -D POSTROUTING -o $PPP_INT -j SNAT --to-source $ppp_addr
- iptables -t mangle -D POSTROUTING -m mark --mark $temp_nid -j MARK --set-mark $sliver_nid
-
- iptables -t mangle -D POSTROUTING -o $PPP_INT -m mark ! --mark $sliver_nid -j DROP
-
- #disable the explicit bind to the ppp interface
- ip rule del from $ppp_addr fwmark $temp_nid table umts_table >/dev/null 2>&1
- #ip route del default dev $PPP_INT src $ppp_addr table umts_table >/dev/null 2>&1
- ip route flush cache >/dev/null 2>&1
-
-}
-
-function add_destination(){
- local dest="$1"
- local sliver=$2
- local sliver_nid=`get_nid $sliver`
- local temp_nid=`get_temp_nid`
-
- if [[ ! $dest ]]; then return 1; fi
-
- if ! status_umts; then
- return 1;
- fi
-
- if ! check_who_locked $sliver; then
- return 1;
- fi
-
- if ip rule add to "$dest" fwmark $temp_nid table umts_table >/dev/null 2>&1; then
- echo "$dest" >> $DESTS_FILE
- return 0
- else
- return 1
- fi
- ip route flush cache >/dev/null 2>&1
-}
-
-function del_destination(){
- local dest="$1"
- local sliver=$2
- local sliver_nid=`get_nid $sliver`
- local temp_nid=`get_temp_nid`
-
- if [[ ! $dest ]]; then return 1; fi
-
- if ! check_who_locked $sliver; then
- return 1;
- fi
-
- if ip rule del to "$dest" fwmark $temp_nid table umts_table >/dev/null 2>&1; then
- return 0;
- else
- return 1;
- fi
- ip route flush cache >/dev/null 2>&1
-}
-
-
-function get_ppp_address(){
- ifconfig $PPP_INT | grep inet\ addr | cut -d ":" -f 2 | cut -d " " -f 1
-}
-
-function set_temp_nid(){
- local sliver_nid=$1
- local temp_nid=$((0x20000+$sliver_nid))
-
- #k=0
- #while grep :$temp_nid: /etc/passwd; do
- # temp_nid=$((temp_nid+1))
- # k=$((k+1))
- # if [[ $k == 1000 ]]; then
- # logger "Fatal error: I couldn't find a temp_nid"
- # stop_umts
- # exit 1
- # fi
- #done
- echo $temp_nid > $FILE_TEMP_NID
-
-
-}
-
-function check_who_locked(){
- local sliver=$1
- local sliver_nid=`get_nid $sliver`
- local ret=0
-
- if [ -e $LOCK_DIR ]; then
- if [[ `cat $FILE_LOCK_SLIVER` != $sliver_nid ]]; then
- echo "Interface in use by another slice.";
- ret=1
- fi
- else
- ret=1
- fi
-
- return $ret
-
-}
-
-function lock(){
- local sliver=$1
- local sliver_nid=`get_nid $sliver`
- local ret=0
-
- if [ -e $LOCK_DIR ]; then
- if ! check_who_locked $sliver; then
- ret=1
- fi
- else
- if mkdir $LOCK_DIR >/dev/null 2>&1; then
- echo "$sliver_nid" > $FILE_LOCK_SLIVER
- else
- ret=1
- fi
- fi
-
- return $ret
-}
-
-function unlock(){
- local sliver=$1
- local sliver_nid=`get_nid $sliver`
- local ret=0
-
- if ! [ -e $LOCK_DIR ]; then
- ret=1
- else
- if ! check_who_locked $sliver; then
- ret=1
- else
- if ! rmdir $LOCK_DIR; then
- ret=1
- fi
- fi
- fi
-
- return $ret
-}
-
-
-
-
-# checks ip addresses
-function valid_dotted_quad(){
- oldIFS=$IFS
- IFS=.
- set -f
- set -- $1
- if [ $# -eq 4 ]
- then
- for seg
- do
- case $seg in
- ""|*[!0-9]*) return 1; break ;; ## Segment empty or non-numeric char
- *) [ $seg -gt 255 ] && return 2 ;;
- esac
- done
- else
- return 3 ## Not 4 segments
- fi
- IFS=$oldIFS
- set +f
- return 0;
-}
-
git://git.onelab.eu / planetlab-umts-tools.git / blobdiff