#!/bin/sh
#------------------------------------------------------------------------------
# opt/files/srv/www/admin/status_wlan.cgi                          __FLI4LVER__
#
# Creation: Karsten Horsmann 11.12.2005
# Last Update:  $Id$
#------------------------------------------------------------------------------
# set_debug='yes'
# get main helper functions
. /srv/www/include/cgi-helper

: ${FORM_action:=WLAN_cfg}

# Security
check_rights "wlan" "$FORM_action"

tr='<tr><td>'
tdz='</td><td>'
trz='</td></tr>'

#------------------------------------------------------------------------------
#------------------------- Functions ------------------------------------------
#------------------------------------------------------------------------------


wlan_cfg_f() {
    echo '<table class="normtable">'
    for device in `iwconfig 2>/dev/null | sed -n '/^wlan[0-9]/s/ .*$//p'`
    do
        # Fuer jedes gefundene Device ein eigenes Form erstellen
        echo "<form enctype=\"text\" action=\"$myname\" method=\"post\">"
        echo "<tr><th colspan=\"2\">$_WLAN_cfg_dev: $device</th></tr>"
        echo "<tr><th>$_WLAN_cfg_name</th><th>$_WLAN_cfg_value</th></tr>"

        # Cleanup
        ESSID="";NICK="";FREQ="";MODE="";APMAC="";OWNMAC="";
        eval `iwconfig $device | 
        sed -n "s/.*\(ESSID\):\(\".*\"\).*Nickname:\(\".*\"\).*/\1=\2 ;NICK=\3/p
        s/.*\(Mode\):\(.*\).*Frequency:\(.*\) GHz.*.*Access Point: \(.*\)/\MODE=\2 ;FREQ=\3; APMAC=\4/p"`
        OWNMAC=`ip link show $device | sed -n 'y/abcdef/ABCDEF/;s/.*\(\([0-9A-F]\{2\}:\)\{5\}[0-9A-F]\{2\}\).\+/\1/p'`

        echo "$tr $_WLAN_cfg_essid $tdz <input maxLength=\"32\" name=\"ESSID\" size=\"32\" value=\"$ESSID\">$trz"
        echo "$tr $_WLAN_cfg_nick  $tdz <input maxLength=\"32\" name=\"NICK\" size=\"32\" value=\"$NICK\">$trz"
        echo "$tr $_WLAN_cfg_channel $tdz <select size=\"1\" name=\"FREQ\">"
        # Die Kurze Alternative mit sed:
        # iwlist $device chan | 
        # sed -n 's/.*Channel 0*\([0-9]\{1,2\}\) : \([\.0-9]\{5\}\).*/<option value="\1">\1 - \2 GHz<\/option>/p' | 
        # sed "/$FREQ/s/\">/\" selected>/"
        # Leider liefert iwlist nicht immer denselben output. 
        # Diese sollte atheros, prism54, hostap(prism2,5) und ipw2200 abdecken
        OUT=`iwlist $device chan`
        m=4
        num=0;A
        for i in $OUT
        do
            case $i in 
                'Channel') m=3 ;;
                'Current') m=5 ;;
            esac
            case $m in 
                0) CC="$CC"$i" " ; m=1 ;;
                1) m=2 ;;
                2) FF="$FF"$i" " ; m=3 ; num=`expr $num + 1`;;
                3) m=0 ;;
                4) m=4 ;;
                5)
                    case $i in
                        '(Channel') m=6 ;;
                        *)
                            if [ -n "${i%Channel?[0..9]+}" ]
                            then
                                sel=${i#Channel?*}
                            fi
                        ;;
                    esac
                ;;
                6) sel=${i%*\)} ; m=4 ;;
            esac
        done
        i=0;
        while [ $num != 0 ]
        do
            echo -n "<option value=\""${CC%% *}"\""
            h=`expr $sel - ${CC%% *}`

            case $h in
                0) echo -n " selected " ;;
            esac

            echo -n ">" ${CC%% *} - ${FF%% *} "GHz </option>"
            echo;
            Y2=${FF%% *} ;
            Y=${CC%% *} ;
            Z=${CC##$Y } ;
            Z2=${FF##$Y2 } ;
            if [ "$Z" != "$CC" ]
            then
                CC=$Z
                FF=$Z2
            else
                break
            fi
            num=`expr $num - 1`
        done

        echo "</select> $trz"
        echo -n "$tr $_WLAN_cfg_mode $tdz <select size=\"1\" name=\"MODE_$device\">" 

        drivername='other'
        candomaster='no'
        candowpa='no'
        for i in /usr/local/wlan/detect_*
        do
            if [ "$drivername" = "other" ]
            then
                if [ -f "$i" ]
                then
                    . $i
                fi
            fi
        done

        case $candomaster in
            yes)
                MODEAVA="Ad-hoc Managed Master"
            ;;
            *)
                MODEAVA="Ad-hoc Managed"
            ;;
        esac


        for i in $MODEAVA
        do
            echo -n "<option value=\"${i}\""
            case $MODE in
                $i)
                    echo -n " selected>${i}</option>"
                ;;
                *)
                    echo -n ">${i}</option>"
                ;;
            esac
        done
        echo "</select> $trz"
        echo "$tr $_WLAN_cfg_ap $tdz <input maxLength=\"32\" name=\"APMAC\" size=\"20\" value=\"${APMAC}\">$trz"
        echo "$tr $_WLAN_cfg_hwaddr $tdz <input maxLength=\"32\" name=\"OWNMAC\" size=\"20\" value=\"${OWNMAC}\">$trz"
        echo "$tr $_WLAN_cfg_driver $tdz $drivername $trz"
        echo "$tr $_WLAN_cfg_update $tdz $(date -R) $trz"
        echo '<input type="hidden" name="wlandevice" value="'$device'">'

        echo '<input type="submit" value="'$_WLAN_cfg_refresh'" name="action" class="actions">'
        echo '</form>'
    done
    echo "$tr$trz</table>"
}

wlan_sec_f() {
    echo '<table class="normtable">'
    for device in `iwconfig 2>/dev/null | sed -n '/^wlan[0-9]/s/ .*$//p'`
    do
        echo "<tr><th colspan=\"2\">$_WLAN_cfg_dev $device</th></tr>"
        echo "<tr><th>$_WLAN_cfg_secname</th><th>$_WLAN_cfg_value</th>"
        echo "<form enctype=\"text\" action=\"$myname\" method=\"post\">"
        drivername='other'
        candomaster='no'
        candowpa='no'
        for i in /usr/local/wlan/detect_*
        do
            if [ "$drivername" = "other" ]
            then
                if [ -f "$i" ]
                then
                    . $i
                fi
            fi
        done
        case $candowpa in
            yes)
            ssid="";scan_ssid="";key_mgmt="";psk="";wpa_passphrase="";wpa_pairwise="";wpa_key_mgmt=""
            # Noch zu tun: Durchsuche hostap nach Schluesseldaten, WEP Schluessel

            if [ -f /etc/wpa_supplicant.$device ]
            # Durchsuche wpa_supplicant.$device nach Schluesseldaten 
            then
                eval `sed -n "s/^[[:space:]]*\(psk\|\(scan_\|\)ssid\|key_mgmt\)=\"*\([^\"]*\).*/\1='\3'/p" </etc/wpa_supplicant.$device`
                echo "$tr ESSID $tdz <input maxLength=\"32\" name=\"ssid\" size=\"32\" value=\"$ssid\"> $trz"

                echo "$tr scan_ssid $tdz <select size=\"1\" name=\"scan_ssid\">"
                for i in 1 0
                    do
                    echo -n "<option value=\"${i}\""
                    case $scan_ssid in
                        $i)
                            echo -n " selected>${i}</option>"
                        ;;
                        *)
                            echo -n ">${i}</option>"
                        ;;
                    esac
                done

                echo -n "$trz"
                echo "$tr key_mgmt	$tdz <select size=\"1\" name=\"key_mgmt\">"
                # WPA-PSK okay. Was gibts noch?
                for i in WPA-PSK WPA-TKIP
                    do
                    echo -n "<option value=\"${i}\""
                    case $key_mgmt in
                        $i)
                            echo -n " selected>${i}</option>"
                        ;;
                        *)
                            echo -n ">${i}</option>"
                        ;;
                    esac
                done

                # zeige erstmal Sternchen, und auf Anfrage die Passphrase
                case x"$1" in
                    xshow_plain)
                        echo "$tr psk	$tdz <input maxLength=\"64\" name=\"psk\" size=\"64\" value=\"$psk\"> $trz"
                    ;;
                    x)
                        echo "$tr psk	$tdz <input maxLength=\"64\" name=\"psk\" size=\"64\" value=\"*************\"> $trz"
                        echo '<input type="submit" value="'$_WLAN_cfg_passplain'" name="action" class="actions">'
                    ;;
                esac

            elif  [ -f /etc/hostapd.$device ]
            then
                eval `sed -n "s/^[[:space:]]*\(wpa_passphrase\|\(wpa_pairwise_\|\)ssid\|wpa_key_mgmt\)=\"*\([^\"]*\).*/\1='\3'/p" </etc/hostapd.$device`
                echo "$tr ESSID $tdz <input maxLength=\"32\" name=\"ssid\" size=\"32\" value=\"$ssid\"> $trz"

                case x"$1" in
                    xshow_plain)
                        echo "$tr wpa_passphrase	$tdz <input maxLength=\"64\" name=\"wpa_passphrase\" size=\"64\" value=\"$wpa_passphrase\"> $trz"
                    ;;
                    x)
                        echo "$tr wpa_passphrase	$tdz <input maxLength=\"64\" name=\"wpa_passphrase\" size=\"64\" value=\"*************\"> $trz"  
                        echo '<input type="submit" value="'$_WLAN_cfg_passplain'" name="action" class="actions">'
                    ;;
                esac
            fi

            ;;
            *)
            # Hier könnte WEP hin
            echo 'WEP kommt noch'
            ;;
        esac
        echo '</form>'
    done
    echo "$tr$trz</table>"
}

wlan_scan_f() {
    echo "$_WLAN_cfg_update: $(date -R)"
    echo " "
    # haben wir wlanconfig an Board, dann sollten wir das nutzen
    if [ -x /usr/bin/wlanconfig ]
    then
        wlanconfigbin=yes
    fi

    for device in `iwconfig 2>/dev/null | sed -n '/^wlan[0-9]/s/ .*$//p'`
    do
        case x"$wlanconfigbin" in
        xyes)

            unset OWNMAC
            unset APMAC
            OWNMAC=`ip link show $device | sed -n 'y/abcdef/ABCDEF/;s/.*\(\([0-9A-F]\{2\}:\)\{5\}[0-9A-F]\{2\}\).\+/\1/p'`
            APMAC=`iwgetid -ar $device`

            if [ "$OWNMAC" = "$APMAC" ]                  # Ist es ein AP, dann ist die eigene MAC = die des APs
            then
                echo "wlanconfig $device list sta"
                wlanconfig $device list sta 2>/dev/null
            else                                         # andere APs zeigen (bin client oder adhoc)
                echo "wlanconfig $device list ap"
                wlanconfig $device list ap 2>/dev/null   # zeigt den scan leider gekürzt an
                echo " "
                echo "iwlist $device scan"
                iwlist $device scan 2>/dev/null
            fi
        ;;
        x)

            unset ISAP
            ISAP=`iw dev $device info | sed -n '/AP/p'`  # Ist es ein AP, dann enthält die Statusmeldung "AP"

            if [ "$ISAP" = "" ]
            then
                echo "available access points"
                echo " "
                iw dev $device scan 2>/dev/null          # andere APs zeigen (bin client oder adhoc)
            else
                echo "connected devices"
                echo " "
                iw dev $device station dump 2>/dev/null  # Geräte auflisten, die mit dem FLI verbunden sind
            fi
        ;;
        esac
    done
}

#------------------------------------------------------------------------------
#------------------------- Actions without htmlheader -------------------------
#------------------------------------------------------------------------------


myname=`basename $0`

case "$FORM_action" in

"$_WLAN_cfg_scan_sv")
    unset file
    unset fname
    fname="WLAN_SEARCH_$(date +%F_%H%M%S).txt"
    file=$$wlan_scan_f.txt
    wlan_scan_f >/tmp/$$wlan_scan_f.txt
    # hier eventuell unix2dos sed 
    ctype=application/download;filename=$file
    set -- `ls -l /tmp/$file`
    length=$5
    echo "Content-Type: $ctype"
    echo "Content-Disposition: attachment; filename=$fname"
    echo "Content-Length: $length"
    echo
    cat /tmp/$$wlan_scan_f.txt && rm -f /tmp/$$wlan_scan_f.txt
;;

esac

#------------------------------------------------------------------------------
#------------------------- Actions with htmlheader ----------------------------
#------------------------------------------------------------------------------


show_html_header "$_WLAN_cfg_header-`eval echo '$_'$FORM_action`"
maintabs=""
case $FORM_action in
    WLAN_cfg|${_WLAN_cfg_refresh}) maintabs="${maintabs}\"${_WLAN_cfg}\" \"no\" " ;;
    *) maintabs="${maintabs}\"${_WLAN_cfg}\" \"${myname}\" " ;;
esac
case $FORM_action in
    WLAN_sec|${_WLAN_cfg_passplain}) maintabs="${maintabs}\"${_WLAN_sec}\" \"no\" " ;;
    *) maintabs="${maintabs}\"${_WLAN_sec}\" \"${myname}?action=WLAN_sec\" " ;;
esac
case $FORM_action in
    WLAN_scan) maintabs="${maintabs}\"${_WLAN_scan}\" \"no\" " ;;
    *) maintabs="${maintabs}\"${_WLAN_scan}\" \"${myname}?action=WLAN_scan\" " ;;
esac
eval show_tab_header $maintabs

case "$FORM_action" in

WLAN_sec)
    wlan_sec_f 
;;

"$_WLAN_cfg_passplain")
    wlan_sec_f show_plain
;;

WLAN_scan)
    echo '<form enctype="text" action="'$myname'" method="post">'
    echo '<input type="submit" value="'$_WLAN_cfg_scan_sv'" name="action" class="actions">'
    echo '</form>'
    echo '<pre>'
    wlan_scan_f >/tmp/$$wlan_scan_f.txt  || show_error "" "$_WLAN_cfg_write_err"
    cat /tmp/$$wlan_scan_f.txt  || show_error "" "$_WLAN_cfg_read_err"
    rm -f /tmp/$$wlan_scan_f.txt 
    echo '</pre>'
;;

WLAN_cfg)
    if [ ! -f /tmp/wlan_cfg_f.html ]
    then
        wlan_cfg_f >/tmp/wlan_cfg_f.html || show_error "" "$_WLAN_cfg_write_err"
    fi
    cat /tmp/wlan_cfg_f.html || show_error "" "$_WLAN_cfg_read_err"
;;

"$_WLAN_cfg_refresh")
    rm -f /tmp/wlan_cfg_f.html 2>/dev/null
    if [ ! -f /tmp/wlan_cfg_f.html ]
    then
        wlan_cfg_f >/tmp/wlan_cfg_f.html || show_error "" "$_WLAN_cfg_write_err"
    fi
    cat /tmp/wlan_cfg_f.html || show_error "" "$_WLAN_cfg_read_err"
;;

esac

show_tab_footer
show_html_footer