#!/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="

Hit Parade

"; $description=" Este es el \"hit parade\" de los paseos ciclistas desde 1999-2010.

Los que llevan la delantera en cuanto a frecuencia de salidas están en este color, mientras que los populares en cuanto a kilometraje están en este otro color.

La cita es en el Parque Hundido, en la esquina de Insurgentes y Porfirio Díaz. "; $text =""; @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 = "(fotos)"; } if ($foto_cronica{$distance[$i]}) { $foto_text2 = "(fotos)"; } $text .= " \n"; } } $text .= "
$frequency[$i] $foto_text1 $hit_parade{$frequency[$i]}[0] $vez   $distance[$i] $foto_text2 ($hit_parade{$distance[$i]}[1] kms.)
\n

kilometraje total=$total_distance en $total_frecuency paseos

Paseos aún no programados
por el Grupo Bicicletero del Parque Hundido
\n"; foreach $key (@keys) { if ($hit_parade{$key}[0] == 0) { $text .= " \n"; } } $text .= "
$key ($destinos{$key}[0] kms.)
\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]; } }