#!/usr/bin/perl
BEGIN { push @INC,"/home/content/b/i/c/biciperro/html/org"; }
#
use biciperros;
use programa;

require "calendario/1999.pl";
require "calendario/2000.pl";
require "calendario/2001.pl";
require "calendario/2002.pl";
require "calendario/2003.pl";
require "calendario/2004.pl";
require "calendario/2005.pl";
require "calendario/2006.pl";
require "calendario/2007.pl";
require "calendario/2008.pl";
require "calendario/2009.pl";
require "calendario/2010.pl";

&init_programa($primer_domingo,@paseos2009);

@keys = keys %destinos;

foreach $key (@keys){
    $hit_parade{$key}[0]=0;
    $hit_parade{$key}[1]=0;
}

&count_hits(@paseos1999);
&count_hits(@paseos2000);
&count_hits(@paseos2001);
&count_hits(@paseos2002);
&count_hits(@paseos2003);
&count_hits(@paseos2004);
&count_hits(@paseos2005);
&count_hits(@paseos2006);
&count_hits(@paseos2007);
&count_hits(@paseos2008);
&count_hits(@paseos2009);
&count_hits(@paseos2010);

$title="Grupo Bicicletero del Parque Hundido ";
$html_title="Hit Parade del Grupo Bicicletero del Parque Hundido";
$keywords="ciclismo,cicloturismo,bicicletas,parque hundido,paseos ciclistas, bici";
$subtitle="<h1><i>Hit Parade</i></h1>";
$description="<font color=$fg_color> Este es el \"hit parade\" de los paseos ciclistas desde <font size=+1>1999-2010</font>.
<p>
Los que llevan la delantera en cuanto a frecuencia de salidas están en <font color=$green_color>este color</font>, mientras que los populares en cuanto a kilometraje están en <font color=$red_color>este otro color.</font>
<p>
<!--$proximo_paseo -->
La cita es en el Parque Hundido, en la esquina de Insurgentes y Porfirio Díaz.
</font>
</center>
<!--p>
Por último, los paseos aún no programados por el Grupo Bicicletero del Parque Hundido (Los Biciperros) están en <font color=#999999>gris</font>.-->

</font> ";
$text ="<table>";

@frequency = sort {$hit_parade{$b}[0] <=> $hit_parade{$a}[0]} @keys;
@distance = sort {$hit_parade{$b}[1] <=> $hit_parade{$a}[1]} @keys;

for ($i=0; $i <= $#frequency; $i++) {
    $total_frecuency += $hit_parade{$frequency[$i]}[0];
    $total_distance += $hit_parade{$frequency[$i]}[1];

    if ($hit_parade{$frequency[$i]}[0] > 0) {
	if ($hit_parade{$frequency[$i]}[0] > 1) {$vez = "veces"} else {$vez="vez"} 
	undef $foto_text1;
	undef $foto_text2;
	if ($foto_cronica{$frequency[$i]}) {
	    $foto_text1 = "<a href=/foto-cronicas/$foto_cronica{$frequency[$i]} target=F_$frequency[$i]>(fotos)</a>";
	}
	if ($foto_cronica{$distance[$i]}) {
	    $foto_text2 = "<a href=/foto-cronicas/$foto_cronica{$distance[$i]} target=F_$distance[$i]>(fotos)</a>";
	}
	$text .= "
	    <tr>
	      <td><font color=$green_color>$frequency[$i] $foto_text1</font></td>
	      <td><font color=$green_color>$hit_parade{$frequency[$i]}[0] $vez</font></td>
	     <td>&nbsp;</td>
	      <td><font color=$red_color>$distance[$i] $foto_text2</font></td> 
	      <td><font color=$red_color>($hit_parade{$distance[$i]}[1] kms.)</font></td>
	    </tr>\n";
    }
}
$text .= "</table>\n
<p>
<center>
<b>kilometraje total=$total_distance en $total_frecuency paseos
</center>
<p>
<center><font color=#999999 size=+2>
Paseos aún no programados<br>
por el Grupo Bicicletero del Parque Hundido
</center></font>
<table>\n";
foreach $key  (@keys) {
    if ($hit_parade{$key}[0] == 0) {
	$text .= "
	    <tr>
	      <td><font color=#999999>$key</font></td>
	      <td><font color=#999999>($destinos{$key}[0] kms.)</font></td>
	    </tr>\n";
    }
}
$text .= "</table>\n";


 
&init($title,$html_title,$keywords,$subtitle,$description,$text);

exit(0);

sub count_hits {
    my @paseos = @_;
    foreach $paseo (@paseos){
       $hit_parade{$paseo}[0]++;
       $hit_parade{$paseo}[1] += $destinos{$paseo}[0];
    }
}