Actualización de COMET.DAT
$dbh=mysql_connect ("localhost", "elcae959_mpc","190988") or die ('I cannot connect to the database because: ' . mysql_error());
mysql_select_db ("elcae959_mpc",$dbh);
$url="http://www.astro.cz/mpcorb/COMET.DAT";
$ch = curl_init();
curl_setopt ( $ch, CURLOPT_URL, $url );
curl_setopt ( $ch, CURLOPT_RETURNTRANSFER, 1 );
$content = curl_exec ( $ch ) ;
curl_close ( $ch );
$archivo="gg.txt";
if (file_exists($archivo))
{
$fp=fopen($archivo,'w');
fwrite($fp,$content);
}
else
{
$fp=fopen($archivo,'a');
fwrite($fp,$content);
}
fclose($fp);
$fp=fopen('gg.txt',"r");
while (!feof($fp))
{
$linea=fgets($fp,1024);
$designacion=trim(substr($linea,0,13));
$anio=substr($linea,14,4);
$mes=substr($linea,19,2);
$dia=substr($linea,22,7);
$q=substr($linea,31,8);
$e=substr($linea,41,8);
$arg=substr($linea,51,8);
$long=substr($linea,61,8);
$i=substr($linea,71,8);
$fecha=substr($linea,81,8);
$magnitud=substr($linea,91,4);
$pendiente=substr($linea,96,4);
$nombre=trim(substr($linea,102,999));
$p=strrpos($nombre," ");
$nombre=trim(substr($nombre,0,$p));
if ($anio!=0)
{
mysql_query("REPLACE INTO cometas VALUES ('".$designacion."','".$anio."','".$mes."','".$dia."','".$q."','".$e."','".$arg."','".$long."','".$i."','".$fecha."','".$magnitud."','".$pendiente."','".$nombre."')");
}
}
fclose($fp);
$archivo="fechaactualizacometdat.txt";
if (file_exists($archivo))
{
$fp=fopen($archivo,'w');
fwrite($fp,date("U"));
}
else
{
$fp=fopen($archivo,'a');
fwrite($fp,date("U"));
}
fclose($fp);
echo '';
?>