#!/bin/sh
#------------------------------------------------------------------------------
#                                                                  3.0.2-rev11686
# /usr/bin/wrap_keyprog
# Creation:     17.06.2006 bastard
# Last Update:  $Id: wrap_keyprog 11656 2006-06-26 21:25:25Z lanspezi $
#------------------------------------------------------------------------------

usage()
{
    myname=`basename $0`
    cat <<-EOF
	Usage: $myname wlan_toggle|reset|online_toggle [debug]
EOF
}

case "$#" in
    0) usage ;;
    *) case $1 in
        wlan_toggle)
            . /var/run/wrapd.conf
            if [ -n "$wrap_wlan_device" ]
            then
                if ifconfig $wrap_wlan_device | grep -q UP
                then
                    ifconfig $wrap_wlan_device down
                    echo "$wrap_wlan_led off" > /var/run/wrap.fifo
                else
                    ifconfig $wrap_wlan_device up
                    echo "$wrap_wlan_led on" > /var/run/wrap.fifo
                fi
            fi
        ;;
        reset)
            reboot
        ;;
        online_toggle)
	    if [ -f /etc/default-route-interface ]	# default route existing?
	    then
	        default_route_interface=`/bin/cat /etc/default-route-interface`
	    else
	        default_route_interface=`/sbin/route -n | grep '^0.0.0.0' | sed 's/.* //g'`
		case $default_route_interface in
		    ppp0) default_route_interface=pppoe ;;
		esac
	    fi 
	    if [ -f /var/run/online ]
	    then
	       # go offline
	       fli4lctrl hangup $default_route_interface
	    else
	       # go online
	       fli4lctrl dial $default_route_interface
	    fi
        ;;
        none) ;;
    esac
    ;;
esac
