#!/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 .= "
\n";
# $i++;
}
#&set_fotos("Los Biciperros",@fotos);
open INPUT,"scripts/google.txt" or die "cannot open scripts/google.txt";
@data = ;
close INPUT;
$biciperros="Hemos recibido la alerta desde google acerca de la proliferación de sitios biciperros
piratas y comerciales:
\n";
foreach $d (@data){
$biciperros .= $d;
}
open INPUT,"scripts/news.txt" or die "cannot open scripts/prensa.txt";
@data = ;
close INPUT;
reverse @data;
$prensa="Prensa:
\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="
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.
En biciperros.org no colocamos propaganda, pues somos una organización sin fines de lucro, reunidos únicamente por el placer de rodar en bicicleta. Biciperros.org 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.
";
$description=<
$text_description.
EOD
$text = "