 ".$puebl[$cuenta]." | \n";
} else {
echo "
 ".$puebl[$cuenta]." |
\n";
}
}
}
function extraedir() {
$d = dir('.');
global $cuenta;
global $web;
$cuenta=1;
while($entry=$d->read()) {
if (strchr($entry, 'internet')!='' && strchr($entry, '.htm')!='') {
$web[$cuenta]=$entry;
/* echo $cuenta." ".$entry."
\n"; */
$cuenta+=1;
}
}
$d->close();
/* echo $web[$cuenta-1].' '.$web[$cuenta-2].' '.$web[$cuenta-3].' '.$web[$cuenta-4].' '.$web[$cuenta-5].' '.$web[$cuenta-6].' '.$web[$cuenta-7].' '.$web[$cuenta-8]; */
return array ($web[$cuenta-1],$web[$cuenta-2],$web[$cuenta-3],$web[$cuenta-4],$web[$cuenta-5],$web[$cuenta-6],$web[$cuenta-7],$web[$cuenta-8]);
}
function extraetitulo($web) {
$file = fopen('http://perso.wanadoo.es/jvillalbam/'.$web, 'r');
if (!$file) {
echo 'No he podido abrir la página solicitada.\n';
exit;
}
global $cuenta;
$cuenta=0;
$vble=0;
while (!feof($file)) {
$line = fgets($file, 1024);
/* This only works if the title and its tags are on one line. */
if ($vble==0) {
if ($cuenta==0) {
if (eregi('titulo:(.*)=1) {
if (eregi('(.*)No he podido abrir la página solicitada.\n';
exit;
}
global $cuenta;
$cuenta=0;
while (!feof($file)) {
$line = fgets($file, 1024);
/* This only works if the title and its tags are on one line. */
if (eregi('fecha:(.*)>', $line, $out)) {
$title = $out[1];
$cuenta+=1;
}
}
fclose($file);
return ($title);
}
function extraewebs($web) {
$file = fopen($web, 'r');
if (!$file) {
echo 'No he podido abrir la página solicitada.\n';
exit;
}
global $cuenta;
$cuenta=0;
while (!feof($file)) {
$line = fgets($file, 1024);
/* This only works if the title and its tags are on one line. */
if (eregi('(.*)<', $line, $out)) {
$title = $out[1];
echo "
| - ".extraetitulo($title)." |
\n";
$cuenta+=1;
}
}
fclose($file);
return ($title);
}
echo "
El Mirador de la Subbética. Actualidad en Internet.
| |
 |
 |
| |
Boletín
informativo Electrónico de la Subbética
|
|
Última actualización: ";
echo extraefecha("http://perso.wanadoo.es/jvillalbam/indice.txt");
echo "
|
 |
|
 |
| |
|
|
| |
|
|
| | ";
$pepe = extraewebs("http://perso.wanadoo.es/jvillalbam/indice.txt");
echo " |
|
|
|
|
| |
|
|
| |
|
|
| |
| |
Para realizar esta sección tomamos
como fuentes informativas las ediciones de los
periódicos y medios informativos virtuales:
"La Brujula.Net", "El Mundo",
"La Vanguardia", "Lo + Web",
"ProNews", "Cinco días",
"CNN" y "Noticias Intercom". |
| |
|
| |
|
|
Dirección de contacto:
Aptdo. Postal nº 128
14800 Priego de Córdoba
e-mail: elmirador@gonvi.com
Publicidad: Telf. 957 54 08 89 ó escribir a elmirador@gonvi.com
|
| |
|
|
";
?>
Página Principal
Actualidad
de
