#!/bin/sh
###########################################################################
#
# Skripti wx200snap laatii wx200-raakadatatiedostosta wx200.txt
# eri kieliset versiot, vaihtaa ennustekuvan ja luo atomaarisen s?-html-tiedoston
# v.2.1 (c) rkv
# muutettu wx200 --> wx200d
# 2.11 korjattu ennusteen k?nns; Rain voi esiinty wx200.txt:ss kahdesti
# jos laitteen nytt nytt? sadem?r?
# 2.12 polkujen korjaus
# 2.13 muokattu aittaa varten
###########################################################################

# raakadata tiedostossa /usr/local/share/wx200d/html/wx200.txt
#
#cd /usr/local/share/wx200d/html/
cd /home/hassula/wx200/html/
#

# ennuste muuttujaan fcast, josta kuvaksi sijainnuste.gif
# peruskuvat valmiina, kopioidaan aina p?lle
#
fcast=`gawk '/forecast/ { print $11 }' wx200.txt`
cp ./$fcast.gif sijainnuste.gif

#
# kieliversiot wx200.txt:st wx200_EN.txt, wx200_FI.txt, myh. wx200_SE.txt
# vakiotekstien k?nnkset luodaan ed:ll komentotiedostoilla
#
#cd /usr/local/share/wx200/htmankeli/ vaihdettu alempana kans
cd /home/hassula/wx200/htmankeli/
/bin/ed ../html/wx200.txt < ./wx200data2EN
/bin/ed ../html/wx200.txt < ./wx200data2FI
# /usr/bin/ed ../html/wx200.txt < ./wx200data2SE
#
# ilmanpainek?nnkset erikseen
#
gawk '/Steady/ { print "Ilmanpaine: Vakaasti " $4 " " $5 } \
 /Rising/  { print "Ilmanpaine: Nouseva " $4 " " $5 } \
 /Falling/  { print "Ilmanpaine: Laskeva " $4 " " $5 } ' wx200_FI.txt >> wx200_FI.txt
# ennusteet samoin; lis? tarpeen mukaan; HUOM: palauttaa tyhjn, jos ei tikkuja!
gawk '/Partly Cloudy/ { print "Ennuste: Puolipilvist" } \
 (/Cloudy/ && !/Partly Cloudy/)  { print "Ennuste: Pilvist" } \
 /Sunny/  { print "Ennuste: Aurinkoista" } \
 /Forecast:  Rain/  { print "Ennuste: Sadetta" } ' wx200_FI.txt >> wx200_FI.txt
#
# samma p svenska (TBD)
#

#-----------------------------------------------------------------------------------------
# www-etusivu(t) /usr/local/share/wx200/html/index_FI/EN/SE.html koostetaan eri skriptiss
# palasista H, M ja T
#
# osan M tablen alkuosan koodit
cd /home/hassula/wx200/htmankeli/
cat wx200M_EN.hth > wxtbl_EN.html
cat wx200M_FI.hth > wxtbl_FI.html
cat wx200M_SE.hth > wxtbl_SE.html
#
# keskiosa M_EN
#
gawk '/localhost/ {print "<td><h3><font color=orange> " $4 " " $5 " " $6 " (GMT+2h)</font></h3></td></tr>"} \
 /Temperature/ {print "<tr><td><font color=#800000>" $1 "</td><td>" $2 " &deg;" $3 "</td></tr>"} \
 /Humidity:/ {print "<tr><td><font color=#800000>Rel." $1 "</td><td>" $2 " " $3"</td></tr>"} \
 /Wind Gust/ {print "<tr><td><font color=#800000>" $1 ":</td><td>" $3 " " $4 " " $5 " " $6 " " gensub("Wind","",1,$7) "</td></tr>"} \
 /Barometer/ {print "<tr><td><font color=#800000>" $1 "</td><td>" $2 " " $3 " " $4 " " $5"</td></tr>"} \
 /orecast/ {print "<tr><td><font color=#800000>" $10 "</td><td>" $11 " " $12 "</td></tr>" }' wx200_EN.txt >> wxtbl_EN.html
#
# keskiosa M_FI
#
gawk '/localhost/ {print "<td><h3><font color=orange> " $4 " " $5 " " $6 " (GMT+2h)</font></h3></td></tr>"} \
 /tila/ {print "<tr><td><font color=#800000>" $1 "</td><td>" $2 " &deg;" $3 "</td></tr>"} \
 /kosteus:/ {print "<tr><td><font color=#800000>" $1 " " $2 "</td><td>" $3 " " $4 "</td></tr>"} \
 /Tuuli/ {print "<tr><td><font color=#800000>" $1 "</td><td>" $2 " " $3 " " $4 " " $5 " " gensub("Wind","",1,$6) "</td></tr>"} \
 /Ilmanpaine/ {print "<tr><td><font color=#800000>" $1 "</td><td> " $2 " " $3 " " $4 "</td></tr>"} \
 /nnuste/ {print "<tr><td><font color=#800000>" $1 "</td><td>" $2 "</td></tr>" }' wx200_FI.txt >> wxtbl_FI.html
#
# keskiosa M_SE
#
# TBD
#
# osan M tablen loppuosa kaikilla sama
cat wx200M.htt >> wxtbl_EN.html
cat wx200M.htt >> wxtbl_FI.html
cat wx200M.htt >> wxtbl_SE.html
#
# kopioidaan sivuset viel html-kansioon siirtoa varten
cp wxtbl_*.html ../html/
#
# The End of Skripti
#