#!/usr/bin/haserl --shell=/bin/bash --upload-limit=32768 --upload-dir=/www/tmp
<%# upload limit: 32Mb %>
<%
_WWW='/www'
_TMP="${_WWW}/tmp"
_LOG="${_WWW}/systemupdate.log" ## safe persistently
_DEBUG=1
err() {
_ERR="$?"
[[ "$_ERR" -gt 0 ]] || return 0
log "$1"
head "${2:='400'}"
exit "$_ERR"
}
logThis() {
[[ "$_DEBUG" -gt 0 ]] || return 0
local _TYPE='I:'
[[ "$_ERR" -gt 0 ]] && _TYPE='E:'
local _TIME; printf -v _TIME '%(%d.%m.%Y %H:%M:%S)T' -1
printf '%b\n' "$_TIME $_TYPE ${@} " >> "$_LOG"
[[ "$_DEBUG" -gt 1 ]] && printf '%b\n' "[verbose] $_TYPE ${1}"
}
headerPrint() {
case "$1" in
200|'') printf '%b' 'HTTP/1.1 200 OK\r\n';;
301) printf '%b' "HTTP/1.1 301 Moved Permanently\r\nLocation: $HTTP_REFERER\r\n";;
403) printf '%b' 'HTTP/1.1 403 Forbidden\r\n';;
405) printf '%b' 'HTTP/1.1 405 Method Not Allowed\r\n';;
406) printf '%b' 'HTTP/1.1 406 Not Acceptable\r\n';;
*) printf '%b' 'HTTP/1.1 400 Bad Request\r\n';;
esac
printf '%b' 'Content-Type: text/html\r\n\r\n';
}
setQueryVars() {
env
}
runSuid() {
local _SID=$(/usr/bin/ps -p $$ -o sid=) ## pass session id to the child
local _CMD=$@
sudo ./suid.sh $_CMD $_SID 2>/dev/null
}
getQueryFile() {
local _UPLD="${HASERL_fwupload_path##*/}"
logThis "'multipart': decoding stream"
mv "$_TMP/$_UPLD" "$_TMP/fwupload.bin" 2>/dev/null || _ERR=$?
if [[ $_ERR -gt 0 ]]; then
showMesg 'Firmware upload has failed' 'Reboot your Superglue server and try again'
fi
}
validIp() {
local _IP=$1
local _RET=1
if [[ $_IP =~ ^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$ ]]; then
OIFS=$IFS
IFS='.'
_IP=($_IP)
IFS=$OIFS
[[ ${_IP[0]} -le 255 && ${_IP[1]} -le 255 && ${_IP[2]} -le 255 && ${_IP[3]} -le 255 ]]
_RET=$?
fi
return $_RET
}
pwdChange() {
if [[ ! -z "${_pwd##$_pwdd}" ]]; then
_ERR=1
showMesg 'Passwords did not match'
fi
if [[ ${#_pwd} -lt 6 ]]; then
_ERR=1
showMesg 'Password must be at least 6 characters long'
fi
runSuid "echo -e \"$_pwd\n$_pwd\" | passwd root"
runSuid "echo $(htDigest $_pwd) > $_PWDFILE"
_ERR=$?
if [[ $_ERR -gt 0 ]]; then
showMesg 'Password change failed'
else
showMesg 'Password is changed'
fi
}
lanAddr() {
logThis "new LAN addr is: $_laddr"
validIp $_laddr || showMesg 'Not valid network address'
doUci set laddr $_laddr
_ERR=$?
if [[ $_ERR -gt 0 ]]; then
showMesg 'Setting network address failed'
else
(sleep 1; doUci commit network; doUci commit wireless;)&
showMesg 'New network address is set' "Your server is now accessible under http://superglue.local/admin"
fi
}
wanSet() {
if [[ ! -z $_wanifname ]]; then
## eth and wlan wan cases are different!
## eth wan requires:
## config interface 'wan'
## option ifname 'eth0'
##
## config wifi-iface
## option device 'radio0'
## option network 'wan'
## option disabled '1' (or no 'config wifi-iface' section at all)
##
## wlan wan requires:
## config interface 'wan'
## option proto 'dhcp'
## (without 'option ifname' specified!)
##
## config wifi-iface
## option device 'radio0'
## option network 'wan'
logThis "wan.ifname=$_wanifname"
if [[ $_wanifname == 'eth0' ]]; then
doUci set wanifname $_wanifname
doUci set wanwifacedis '1'
elif [[ $_wanifname == 'wlan1' ]]; then
doUci set wanifname ''
doUci set wanwifacedis ''
fi
if [[ $_wanproto == 'dhcp' ]]; then
doUci set wanproto dhcp
elif [[ $_wanproto == 'static' ]]; then
logThis "wan.ipaddr=$_wanipaddr"
doUci set wanproto static
doUci set wanipaddr $_wanipaddr
doUci set wannetmask $_wannetmask
fi
if [[ $_wanifname == 'wlan1' ]]; then
ssidChange || showMesg 'Wireless changes failed'
fi
## background the following
doUci commit network &&
showMesg 'Internet connection is configured' 'Waiting for device to get ready' ||
showMesg 'Configuring Internet connection failed'
fi
logThis "new WAN iface is: $_wanifname"
}
ssidChange() {
## check for iface
[[ ! $_iface =~ ^('wan'|'lan')$ ]] && showMesg 'Error changing wireless settings' 'unknown/unconfigured interface'
logThis "$_iface is being set"
_p=$_iface
## default enc for now
local _enc='psk2'
if [[ $_iface == 'wan' ]]; then
local _mode='sta'
local _ssid="${_wanssid}"
local _key="${_wankey}"
else
local _mode='ap'
local _ssid="${_lanssid}"
local _key="${_lankey}"
fi
logThis "ssid: $_ssid [$_mode], key: $_key [$_enc]"
logThis $_wanssid
if [[ ${#_ssid} -lt 4 ]]; then
_ERR=1
showMesg 'SSID must be at least 4 characters long'
fi
doUci set $_p'ssid' "${_ssid}"
_ERR=$?
[[ $_ERR -gt 0 ]] && showMesg 'New SSID is not set'
if [[ -z $_key ]]; then
## if key is empty set encryption to none and remove key
doUci set $_p'key' && doUci set $_p'enc' 'none'
_ERR=$?
else
if [[ ${#_key} -lt 8 ]]; then
_ERR=1
showMesg 'Passphrase must be at least 8 characters long'
fi
doUci set $_p'key' "${_key}" && doUci set $_p'enc' "${_enc}"
_ERR=$?
[[ $_ERR -gt 0 ]] && showMesg 'Passphrase is not set'
fi
[[ $_ERR -gt 0 ]] && return $_ERR ##showMesg 'Wireless changes failed'
doUci commit wireless ##&& showMesg 'Wireless changes applied'
}
#showError() {
# headerPrint 406
# logThis "$@"
# echo "ERROR: $@"
# exit 1
#}
showMesg() {
logThis "$@"
local _MSG=$1
local _SUBMSG=$2
_MSG=${_MSG:='Not defined'}
_SUBMSG=${_SUBMSG:='back to control panel in a second..'}
if [[ $_ERR -gt 0 ]]; then
local _TYPE='ERROR: '
headerPrint 406
else
local _TYPE='OK: '
headerPrint 200
fi
htmlHead ""
echo "
Superglue system update
$_TYPE $_MSG
$_SUBMSG