#!/bin/sh

export DATE="10.8.2008";SCRIPT=${0#/rom}
export TITLE="Admin:
Bluetooth"
. ${SCRIPT%/*}/cgi-bin-pre.sh

cat<<EOF
<H1>Admin:
Bluetooth</H1>
EOF

if [ "$REQUEST_METHOD" = "POST" ]; then
read QUERY_STRING
fi
if [ -z "$QUERY_STRING" ]; then
#Speedups
ff_bt_role="$(nvram get ff_bt_role)"

cat<<EOF
<FORM ACTION="bluetooth.html" METHOD="POST">
<TABLE CLASS="shadow0" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow1" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow2" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE BORDER="0" CLASS="form">
<TR
TITLE="Determines the bluetooth operation mode.">
<TD>Bluetooth
Role:</TD>
<TD><SELECT NAME="ff_bt_role" ONCHANGE="this.form.ff_bt_id.disabled=(0!=this.value.indexOf('PANU'));">
<OPTION
VALUE='PANU' $(test "$ff_bt_role" = "PANU" && echo "selected=selected")>PANU (Personal Area Network
User)</OPTION>
<OPTION
VALUE='NAP' $(test "$ff_bt_role" = "NAP" && echo "selected=selected")>NAP (Network Access Point, Master)</OPTION>
</SELECT> </TD>
</TR>
<TR
TITLE="MAC address of the bluetooth NAP / the mobile phone. Example: 00:01:02:03:04:05'">
<TD>Bluetooth
NAP ID:</TD>
<TD><INPUT NAME="ff_bt_id" SIZE="20" TYPE="TEXT" VALUE="$(nvram get ff_bt_id)"$(if [ "$ff_bt_role" != "PANU" ];then echo ' disabled="disabled"';fi)></TD>
</TR>
<TR
TITLE="Access PIN for the bluetooth peer. Example:12345678'">
<TD>Bluetooth
PIN:</TD>
<TD><INPUT NAME="ff_bt_pin" SIZE="20" TYPE="TEXT" VALUE="$(nvram get ff_bt_pin)"></TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR>
<TD COLSPAN="2"><INPUT NAME="post_bluez" TITLE="Apply these settings. The settings are applied with the next restart." TYPE="SUBMIT" VALUE="Apply">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Cancel dialog page." TYPE="SUBMIT" VALUE="Cancel"></TD>
</TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></FORM>
<P><B>Note</B>: The
freifunk-bluetooth packages is work in progress. Pairings are stored in
/etc/bluetooth/persist, so they are valid after a reboot. You need to
enter the following commands on the ssh command line.</P>
<P>In
PANU mode the router uses a mobile phone as internet access. Enter <CODE>/etc/init.d/S75bluetooth
connect</CODE> resp. <CODE>/etc/init.d/S75bluetooth disconnect</CODE>. To
find a NAP ID, use <CODE>hcitool scan</CODE>. On the addressed device you
need to enter the PIN to complete the pairing. The router will start to
announce Internet via HNA0/0 immediately after connection is up.
</P>
<P>In NAP mode, the
bluetooth dongle is bridged to the LAN adapter which probably provides
DHCP. To start the paring, use <CODE>/etc/init.d/S75bluetooth connect</CODE>
and initiate the pairing from the remote device. The NAP ID is irrelevant
in this mode, so any device can connect during the 30 seconds paring time
if it knows the correct PIN.</P>
EOF

else
IFS=\&;set $QUERY_STRING;unset IFS;eval $*
DIRTY=
if [ -n "$post_bluez" ]; then
for V in ff_bt_role ff_bt_id ff_bt_pin; do
eval "C=\$$V"
C=$(unescape $C)
if [ "$C" != "$(nvram get $V)" ]; then
DIRTY=1
nvram set $V="$C"
fi
done
fi
if [ -n "$DIRTY" ]; then
nvram commit>/dev/null 2>&1

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>The changed settings are committed. The
settings are active after the next <A HREF="reset.html">Restart</A>.</TD>
</TR>
</TABLE>
EOF

else

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>No
settings are changed.</TD>
</TR>
</TABLE>
EOF

fi
fi

. ${SCRIPT%/*}/cgi-bin-post.sh