#!/usr/local/bin/perl
#
&reqinit;
&contar;
&PrintResult;

sub contar {
open (ARCHIVO, "$dir/$who/chavotos");
while ($linea=<ARCHIVO>)
        {chop ($linea);
        ++$tot;
        ($f1,$f2,$f3,$f4,$f5)=split(/\t/, $linea);
        ++$v{$f1};
        ++$v{$f2};
        ++$v{$f3};
        ++$v{$f4};
        ++$v{$f5};
        }
close (ARCHIVO);
open (OUT, "> $dircgil/tempgano");
foreach $f (sort keys %v)
        {$num=substr(($v{$f}+10000),1,4);
        print OUT "$num\t$f\n";}
close (OUT);
system "sort -r $dircgil/tempgano > $dircgil/tempganos\n";
open (IN, "$dircgil/tempganos");
 $f1=<IN>;chop($f1);($v1,$l1)=split(/\t/, $f1);
 $f2=<IN>;chop($f2);($v2,$l2)=split(/\t/, $f2);
 $f3=<IN>;chop($f3);($v3,$l3)=split(/\t/, $f3);
 $f4=<IN>;chop($f4);($v4,$l4)=split(/\t/, $f4);
 $f5=<IN>;chop($f5);($v5,$l5)=split(/\t/, $f5);
close (IN);
}

sub reqinit {
require("cgi-lib.pl");
print &PrintHeader;
&ReadParse;
#
require("xdefaults");
&xdefaults;
require("xfecha");
&xfecha;
#
$who="Chapines";
$quienes=$who;
$who=~tr/A-Z/a-z/; # viene Nicas, Chapines, etc.
$pre=substr($who,0,3);
require ($pre."ht");

open (IN, "$dircgil/logif");
while ($linea=<IN>)
	{chop($linea);
	($l,$i)=split(/\t/, $linea);
	$logif{$l}=$i;
#	print "$l\t$i\t$logif{$l}\n";
	}
close (IN);
}

sub PrintResult {
$title="Resultados Finales.";
&header;
$v1=$v1*1; $v2=$v2*1; $v3=$v3*1;$v4=$v4*1;$v5=$v5*1;
$totvot=$tot*5;
print <<EOD;
<font size=+1><a href=http://www.nortropic.com/chapines/diseno/index.html>Concurso de Dise&ntilde;o</a>:</font><br>
<font size=+2><b>Resultados Finales</b></font><br>
<font size=-1>($fecha, $hora)</font>
<p>
 Votaron : <b>$tot</b> personas<br>
Recibimos: <b>$totvot</b> votos.
<hr>
<table cellspacing=10>
<tr><th></th>
    <th><font face="verdana, arial" size=+2>Votos</font></th>
    <th><font face="verdana, arial" size=+2>Dise&ntilde;o</th></tr>
<tr><td><font face="verdana, arial" size=+2>Primer Lugar:</font></td>
    <td><font face="verdana, arial" size=+2>$v1</font></td>
    <td><a href="http://www.nortropic.com/chapines/diseno/$l1.html">
    <img src="http://www.nortropic.com/chapines/diseno/thumbs/$logif{$l1}"></a></td></tr>
<tr><td><font face="verdana, arial" size=+2>Segundo Lugar:</font></td>
    <td><font face="verdana, arial" size=+2>$v2</font></td>
    <td><a href="http://www.nortropic.com/chapines/diseno/$l2.html">
    <img src="http://www.nortropic.com/chapines/diseno/thumbs/$logif{$l2}"></a></td></tr>
<tr><td><font face="verdana, arial" size=+2>Tercer Lugar:</font></td>
    <td><font face="verdana, arial" size=+2>$v3</font></td>
    <td><a href="http://www.nortropic.com/chapines/diseno/$l3.html">
    <img src="http://www.nortropic.com/chapines/diseno/thumbs/$logif{$l3}"></a></td></tr>
<tr><td><font face="verdana, arial" size=+2>Cuarto Lugar:</font></td>
    <td><font face="verdana, arial" size=+2>$v4</font></td>
    <td><a href="http://www.nortropic.com/chapines/diseno/$l4.html">
    <img src="http://www.nortropic.com/chapines/diseno/thumbs/$logif{$l4}"></a></td></tr>
<tr><td><font face="verdana, arial" size=+2>Quinto Lugar:</font></td>
    <td><font face="verdana, arial" size=+2>$v5</font></td>
    <td><a href="http://www.nortropic.com/chapines/diseno/$l5.html">
    <img src="http://www.nortropic.com/chapines/diseno/thumbs/$logif{$l5}"></a></td></tr>
</table>

EOD
&tail;
}