#!/usr/bin/perl

use biciperros;
sub init;
sub set_fotos;


@perros = (
# consejo de ancianos:
	"david",
	"david",
	"don_raul",
	"lucha",
	"alex",
	"ernesto",
	"ada",
	"capulin",
	"sergio",
# consejo de jóvenes:
	"samanta",
	"pollo",
	"juanito", # Mungia
	"miss_laurita",

	"richard",
	"juanito_rojas",
	"juanito_cross",
	"fernando",
	"patricia",
	"sonia",
	"pablo",
	"sandra",
	"jesus",
	"alfredo",
	"gilberto",
	"hector",
	"jose_luis",
	"julio_cesar",
	"isaac",
	"leo",
	"manuel",
	"paola",
	"reynaldo",
	"victor",
	"don_luis",
	"arturo",
	"memo",
	"javier",
	"lalo",
	"lucero",
	"luis",
	"miguel",
	"noe",
	"tico",
	"omar",
# equipo ecatepec
	"gus",
	"ecatepec1",
	"ecatepec2",
	"ecatepec3",
# equipo biciteka
	"atilio",
#	"biciteka1",
#	"biciteka2",
#	"biciteka3",
	"chan-chan",
# esporadicos:
);

#$i=0;
$foto_description="";
foreach $perro (@perros) {
#    $fotos[$i] = "$image_site/$perro.jpg";
    $foto_description .= "<img style=\"display: none; opacity: -0.01;\" width=auto height=350 alt=\"$perro\" src=\"http://info.biciperros.org/los_perros/$perro.jpg\" />\n";
#    $i++;
}


#&set_fotos("Los Biciperros",@fotos);
open INPUT,"scripts/google.txt" or die "cannot open scripts/google.txt";
@data = <INPUT>;
close INPUT;
$biciperros="Hemos recibido la alerta desde google acerca de la proliferación de sitios biciperros
piratas y comerciales:<br>\n";
foreach $d (@data){
    $biciperros .= $d;
}

open INPUT,"scripts/news.txt" or die "cannot open scripts/prensa.txt";
@data = <INPUT>;
close INPUT;
reverse @data;
$prensa="Prensa:<br>\n";
foreach $d (@data){
    $prensa .= $d;
}

$title="Los ciclistas del Parque Hundido";
$html_title="BICIPERROS: Grupo Bicicletero del Parque Hundido";
$keywords="ciclismo,cicloturismo,bicicletas,parque hundido,paseos ciclistas, bici";
$subtitle="<h1>Quienes somos los Biciperros</h1>";
$text_description=" 
La costumbre de los ciclistas en reunirse en el Parque Hundido nació en los años setenta del siglo pasado y continua hasta nuestros días. Algunos miembros se han ido y otros han regresado. De los que han marchado se han formado otros grupos ciclistas de gran renombre.
<p>
El gusto a pasear en bicicleta es lo que mantiene a salvo al Grupo Bicicletero de Parque Hundido de los intentos de utilizarlos con fines políticos o comerciales.
<p>
En <font color=$red_color>biciperros.org</font> no colocamos propaganda, pues somos una organización <font color=$green_color><b>sin fines de lucro</b></font>, reunidos únicamente por el placer de rodar en bicicleta. <font color=$red_color>Biciperros.org</font> tiene por finalidad que el grupo permanezca libre de gravamen y que el programa de paseos y la invitación a participar a la ciudadania en general permanezca abierta en Internet.
<p>
<!--font color=#999999>Aclaración coyuntural: Si tu foto no aparece aquí, es porque <a href=http://nepomuseno.biciperros.org/>la cámara</a> es de tianguis y de cada 10 fotos que toma, 8 se echan a perder. También ten paciencia, mientras lees esto, se está descargando las fotos.</font-->
<!--
En  <font color=$red_color>biciperros.org</font> no estamos de acuerdo con la comercialización del grupo. Si desea información de cómo inició <font color=$red_color>biciperros.org</font> y por qué nos deslindamos de .COM, lea el 
<a href=el_chisme.html>chisme completo...</a>
-->
</b>
";



$description=<<EOD;
<center><Table><tr height=400>
<td width=450>
<i>$text_description</i>. 
</td>
<td>
<div id="fotos">
$foto_description
</div>
</td><td width=50>&nbsp;</td>
</tr></table>
<br>
</center>

EOD

$text = "<img src=http://info.biciperros.org/foto-cronicas/chalco07/IMG_0033.jpg border=0><br><center><i>El baile de los biciperros</i></center>";
 
&init($title,$html_title,$keywords,$subtitle,$description,$text);