".$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.

  Patrocinador: Gonzñalez-Vida, Zapaterías
 

Boletín informativo Electrónico de la Subbética

 


Última actualización: "; echo extraefecha("http://perso.wanadoo.es/jvillalbam/indice.txt"); echo "


 
 
"; $a=menu("internet"); echo"
 
Página Principal
 
Noticias Generales
 
Noticias Locales
 
Actualidad de
     Internet
 
Índice temático
     de webs de la
     Subbética
 
 
"; $pepe = extraewebs("http://perso.wanadoo.es/jvillalbam/indice.txt"); echo "
 
Titulares de Actualidad en Internet
 
 
     
     
 
  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

     

"; ?>