#!/bin/sh

echo Content-type: text/html
echo

PATH=`echo $PATH":."`
./fprincipio
echo "<TD WIDTH=100% ALIGN=CENTER>"
echo "<BR><H1>Lo Mejor / Onena</H1>"
echo "<FORM METHOD=GET ACTION=/cgi-local/onena>"
echo "<SELECT name=Voto>"
awk '
       BEGIN { FS=":::" }
               { print "<OPTION VALUE="NR">"$3 }' onena.dat 
echo "</SELECT>"
echo "E-mail: <INPUT size=20 type=text name=Email>"
echo "<INPUT type=submit value="Votar/Botu.Eman">"
echo "</FORM>"
echo "</TD>"
echo "</TR>"
echo "<TR>"
echo "<TD ALIGN=CENTER>"
echo "</TD>"

echo "</TR>"

echo "</TABLE>"
echo "</CENTER>"
echo "<table><tr><td>"
WWW_email=`echo $QUERY_STRING | cut -d"&" -f2 | cut -d"=" -f2 `
WWW_voto=`echo $QUERY_STRING | cut -d"&" -f1 | cut -d"=" -f2 `
if [ "$WWW_voto" != "" ]
	then
           if [ "$WWW_email" = "" ]
                then 
		     echo "Introduce tu E-mail para votar <BR>"
		     echo "Botua emateko sarzazu zure E-mail <BR><HR><BR>"
                else
                 grep $WWW_email email.dat >> kk
                 if [ "$?" = 0 ]
                   then 
		     echo "Esta semana ya has votado, vota la proxima semana <BR>"
		     echo "Aste honetan botua eman duzu. Urrengo astean botua eman <BR><HR><BR>"
                   else 
                     echo $WWW_email >> email.dat
                     awk '
                       BEGIN { FS=":::" }
                                { if (NR != '$WWW_voto' )
                                        { print $1":::"$2":::"$3 } 
                                      else 
                                        { $1=++$1 ; print  $1":::"$2":::"$3 }
                                }' onena.dat   > vot$$
                     sort -nr vot$$ > onena.dat
                     rm vot$$
                 fi 
           fi  
fi
awk '
       	BEGIN { FS=":::" }  
            {print "<B>",NR,"</B>.-<A href=",$2,">",$3,"</A>:<B>",$1,"</B>votos/botuak<BR>"}' onena.dat
echo "</td></tr>"
./ffinal