<?php 
	$forillo = fopen("versiones.txt",r);
	
	$fecha = fgets($forillo,400);
	#print $fecha." ".strftime('%d-%m-%y');
	if (trim($fecha) != trim(strftime('%d-%m-%y'))){
		fclose($forillo);
		$forillo = fopen("versiones.txt",w);
		$sindica = fopen("versions.rss",w);
		$cabecerarss = '<?xml version="1.0" encoding="ISO-8859-1"?>

<rdf:RDF
 xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
 xmlns="http://purl.org/rss/1.0/"
 xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"
 xmlns:dc="http://purl.org/dc/elements/1.1/"
 xmlns:syn="http://purl.org/rss/1.0/modules/syndication/"
 xmlns:admin="http://webns.net/mvcb/"
>

<channel rdf:about="Ultimas versiones por www.assamita.net">
<title>Ultimas versiones</title>
<link>http://www.assamita.net/versions.php</link>
<description>Ultimas versiones de software libre</description>
<dc:language>es</dc:language>
<dc:rights>Copyright &amp;copy; 2005, www.assamita.net,Packo</dc:rights>
';
		$cuerporss = '
<dc:publisher>www.assamita.net</dc:publisher>
<dc:creator>webmaster@assamita.net</dc:creator>
<dc:subject>Software libre</dc:subject>
<syn:updatePeriod>daily</syn:updatePeriod>
<syn:updateFrequency>1</syn:updateFrequency>
<syn:updateBase>1970-01-01T00:00+00:00</syn:updateBase>
<items>
 <rdf:Seq>
  <rdf:li rdf:resource="http://www.ati.com" />
  <rdf:li rdf:resource="http://www.nvidia.com/object/unix.html" />
  <rdf:li rdf:resource="http://www.kernel.org/" />
  <rdf:li rdf:resource="http://www.x.org/" />
  <rdf:li rdf:resource="http://www.kde.org/" />
  <rdf:li rdf:resource="http://www.mozilla-europe.org/es/products/firefox/" />
  <rdf:li rdf:resource="http://www.gnome.org/" />
  <rdf:li rdf:resource="http://es.openoffice.org/" />
  <rdf:li rdf:resource="http://www.winehq.com/" />
 </rdf:Seq>
</items>
<image rdf:resource="http://www.assamita.net/favicon.jpg" />
</channel>

<image rdf:about="http://www.assamita.net/favicon.jpg">
<title>www.assamita.net</title>
<url>http://www.assamita.net/favicon.jpg</url>
<link>http://www.assamita.net</link>
</image>
';
		$finalrss = '
</rdf:RDF>';
		fwrite($sindica,$cabecerarss.'<dc:date>'.strftime('%y-%m-%d').'T'.strftime('%h:%m:%s').'+00:00</dc:date>');
		fwrite($sindica,$cuerporss);
		
		fwrite($forillo,strftime('%d-%m-%y')."\n");
		$a =shell_exec('python versiones.py'); 
		$contador = 0;
		$contador2 = 0;
		$anterior;
		$lista = split(' ',$a);
		$lenlaces[] = '<a class="versiones_l" href="http://www.ati.com" >';
		$lenlaces[] = '<a class="versiones_l" href="http://www.nvidia.com/object/unix.html" >';
		$lenlaces[] = '<a class="versiones_l" href="http://www.kernel.org" >';
		$lenlaces[] = '<a class="versiones_l" href="http://www.x.org" >';
		$lenlaces[] = '<a class="versiones_l" href="http://www.kde.org/" >';
		$lenlaces[] = '<a class="versiones_l" href="http://www.mozilla-europe.org/es/products/firefox/" >';
		$lenlaces[] = '<a class="versiones_l" href="http://www.gnome.org/" >';
		$lenlaces[] = '<a class="versiones_l" href="http://es.openoffice.org/" >';
		$lenlaces[] = '<a class="versiones_l" href="http://www.winehq.com/" >';
		$lenlaces2[] = 'http://www.ati.com';
		$lenlaces2[] = 'http://www.nvidia.com/object/unix.html';
		$lenlaces2[] = 'http://www.kernel.org';
		$lenlaces2[] = 'http://www.x.org';
		$lenlaces2[] = 'http://www.kde.org/';
		$lenlaces2[] = 'http://www.mozilla-europe.org/es/products/firefox/';
		$lenlaces2[] = 'http://www.gnome.org/';
		$lenlaces2[] = 'http://es.openoffice.org/';
		$lenlaces2[] = 'http://www.winehq.com/';
		$elementos[] = 'Controladores Ati para Gnu/Linux: ';
		$elementos[] = 'Controladores Nvidia para Gnu/Linux: ';
		$elementos[] = 'Kernel de Linux: ';
		$elementos[] = 'Sistema X windows: ';
		$elementos[] = 'Kde, escritorio para Gnu/Linux: ';
		$elementos[] = 'Firefox, buen navegador multiplataforma: ';
		$elementos[] = 'Gnome, escritorio para Gnu/Linux: ';
		$elementos[] = 'Openoffice, suite de ofimatica libre: ';
		$elementos[] = 'Wine, Wine Is Not Emulator: ';
		
		foreach ( $lista as $elemento){
			#print $elemento;
			$modulo = $contador % 2;
			#print $modulo;
			if ( $modulo == 0)
				$anterior = $elemento;
			else{
				
				//escribe en el archivo de versiones
				fwrite($forillo,$lenlaces[$contador2].$anterior."</a>   ".$elemento);
				//escribe en la sindicalizacion
				fwrite($sindica,'
<item rdf:about="'.$lenlaces2[$contador2].'">
<title>'.$elementos[$contador2].$elemento.'</title>
<link>'.$lenlaces2[$contador2].'</link>
<dc:creator>Packo</dc:creator>
<dc:date>'.strftime('%y-%m-%d').'T'.strftime('%h:%m:%s').'+00:00</dc:date>
</item>
');
				//muestra por pantalla
				echo $lenlaces[$contador2].$anterior."</a>   ".$elemento;	
				$contador2 = $contador2+1;
			}
			$contador = $contador +1;
		
		}
		fwrite($forillo,"A fecha: ".strftime('%d-%m-%y'));
		print "A fecha: ".strftime('%d-%m-%y');
		fwrite($sindica,$finalrss);
		fclose($forillo);
		fclose($sindica);
		
	}else{
		while ($lineas= trim(fgets($forillo,400)))
			print $lineas."\n";
		fclose($forillo);
	}
?>