#!/bin/sh

cfgfile=`xsetrcv wcfg`

nexts=
while [ x$nexts = x ]; do


if `xset q |grep -q "timeout:  0"`; then
    enabled=0
else
    enabled=1
fi

if `xset q |grep -q "prefer blanking:  yes"`; then
    blank=1
else
    blank=0
fi

if `xset q |grep -q "allow exposures:  yes"`; then
    expose=1
else
    expose=0
fi

timeout=`xset q |grep timeout |sed 's/[^;]\+ timeout://' |sed 's/cycle[^;]\+//' \
|sed 's/ //g'`		
cycle=`xset q |grep timeout |sed 's/[^;]\+ cycle://' |sed 's/ //g'`		

eval `dml "<meta title='Wygaszacz ekranu' width=56><br><br> \
<check id=enable checked=$enabled> Wczony        \
<check id=expose checked=$expose> Expose        \
<check id=blank checked=$blank> Blank<br><br><br>     \
Timeout <input width=6 id=timeout caption=$timeout> s        \
Cycle <input width=6 id=cycle caption=$cycle> s<br><br><br> \
    <button caption=Ustaw> \
     <button caption=Default id=default> \
     <button caption=Anuluj id=end><br><br>"`


if [ X$default = Xyes ]; then
    xset s default
else
    nexts=1        
fi
done

if [ X$end = Xyes ]; then
    exit 0
fi

if [ X$blank = Xyes ]; then
    blank=1
    b_parm="blank"
else
    blank=0
    b_parm="noblank"
fi

if [ X$expose = Xyes ]; then
    expose=1
    e_parm="expose"
else
    expose=0
    e_parm="noexpose"
fi

if [ X$enable = Xyes ]; then
    enabled=1
    xset s $timeout $cycle
    xset s $b_parm
    xset s $e_parm
else
    enabled=0
    xset s $timeout $cycle
    xset s $b_parm
    xset s $e_parm
    xset s off
fi

cat $cfgfile |sed 's/s_enabled=//' |sed 's/s_timeout=//' \
|sed 's/s_cycle=//' |sed 's/s_blank=//' |sed 's/s_expose=//' \
|grep = >$cfgfile

echo "s_enabled=$enabled" >>$cfgfile
echo "s_timeout=$timeout" >>$cfgfile
echo "s_cycle=$cycle" >>$cfgfile
echo "s_blank=$blank" >>$cfgfile
echo "s_expose=$expose" >>$cfgfile
