Telepieza´s Weblog

El juez Baltasar Garzón sentado en el banquillo de los acusados y sometido a un proceso absolutamente inmoral iniciado por representantes del fascismo puro y duro amparados por jueces nostálgicos del franquismo.

El partido de la oposición sembrado de corruptos que dedicaros sus mejores y peores afanes a enriquecerse y enriquecer a sus amigos como si estuviesen en su finca privada y el resto de los mortales fuésemos ciegos, sordos y mudos.

Álvarez Cascos acusa a la policía de inventar pruebas para inculpar a miembros del PP en la trama Gürtel. Esperanza Aguirre declara sin sonrojarse que fue ella quien destapó la existencia de esa trama que amenaza con hacer pedazos la impresentable estrategia de los populares para llegar a la Moncloa.

Federico Trillo continúa ejerciendo de diputado y encargado de la comisión de Justicia de su partido en el Parlamento, a pesar de estar rodeado d cadáveres.

Un ministro de justicia socialista se vio obligado a renunciar porque tuvo la desgraciada ocurrencia de participar en una partida de caza con el juez Garzón y la inmaculada oposición descargó sobre él una tormenta de acusaciones, descalificaciones y sospechas.

Y nosotros seguimos confiando en las columnas de destacadas firmas para sublimar nuestra indignación y protestamos cómodamente instalados ante el televisor mientras fuera se cae a pedazos cualquier parecido con la ética, la honestidad y la justicia.

Ellos salen a la calle convocados por los obispos para defender su cerrada concepción del mundo, invocan la democracia aplastándolas con las botas de Pinochet y utilizan el dinero de todos para comprarle una medalla a su presidente.

Nosotros seguimos así, escribiendo cartas que seguramente no se publicaran y creyendo que el fascismo es cosa del pasado. Así nos va.

(Gerardo di Masso. Barcelona)

En el apartado (buscar de Forma automática el cambio de Divisa (I) , nos quedamos en la instrucción fsockopen() devuelve un puntero a fichero, el cual se puede usar junto con las otras funciones de ficheros (como fgets(), fgetss(), fputs(), fclose(), feof()).

Voy a colgar el programa en PHP que está funcionando desde hace muchos meses sin dar ningún tipo de error para localizar el cambio de divisa desde un Hosting con la instrucción fsockopen()

El programa php currency_class.php es una clase y la he llamado currency_class.php, ire comentando casi todas las instrucciones para su mejor comprensión.

PROGRAMA REALIZADO PARA PHP LLAMADO CURRENCY_CLASS.PHP SIENDO LA CLASE Currency.

<?php
/**
* @version  $Id: currency_class.php
* @package  mvmphp
* @copyright Copyright (C) 2009
* @comment      Clase Currency (Buscar Valor de la Divisa)
*/

class Currency {
// Por defecto para toCurr es USD = Dólares y fromCurr es EUR = Euros 

 public $toCurr   = ‘USD’; 
 public $fromCurr = ‘EUR’;
 // Constructor de la Clase, si los parametros a pasar son diferentes de null, pasamos los valores a las variables de la clase
 function __construct($p_curr=null, $p_from=null) {
  if ($p_curr != null ) $this->toCurr   = $p_curr;
  if ($p_from != null) $this->fromCurr = $p_from; 
  $this->toAmount = 1;  // Valor es siempre 1
 }  
 
/**
* Busca mediante la tecnica del Socker del puerto 80 en google el valor de la divisa
* Si es correcto devuelve una página para después localizar el cambio de la divisa
*/
 function getCurrencyGoogle() {

 $host = ‘www.google.com’;
 $page = ‘/search?&q=’.$this->toAmount.’+’.$this->toCurr.’+in+’.$this->fromCurr;
 $file_info = ”;   $get_info = false;  $returnHtml = array();  $t_d=”; 

# Open Socker (Google) y search con las dos divisas con valor 1
 if ($fsock = @fsockopen($host, $port=80, $errno, $errstr, $timeout=15))
 {
# Pagina y valores a buscar en el servidor
  @fputs($fsock, “GET $page HTTP/1.1\r\n”);
# DNS o IP del Host
  @fputs($fsock, “HOST: $host\r\n”);
# Tipo de Conexion y cierre
  @fputs($fsock, “Connection: close\r\n\r\n”);
  while (!@feof($fsock))
  {  
# A partir de la Segunda Lectura grabamos la informacion en $file_info para su posterior tratamiento
   if ($get_info) $file_info .= @fread($fsock, 1024);
   else
   {
# Por primera vez eliminamos la cabecera y controlamos errores de conexion
    $line = @fgets($fsock, 1024);
    if ($line == “\r\n”) $get_info = true;
    else if (stripos($line, ’404 not found’) !== false)
    {
     $errstr = ‘FILE_NOT_FOUND’ . ‘: ‘ . $host . $page;
     error_log_event(‘ Currency 01-Error : ‘,$errstr ); 
     return false;
    }
   }
  }
  @fclose($fsock);
 }
 else
 {
  if ($errstr) { $errstr = utf8_convert_message($errstr);
                 error_log_event(‘ Currency 02-Error : ‘,$errstr );
                       return false;  }
  else     { $errstr = ‘FSOCK_DISABLED’;  
                 error_log_event(‘ Currency 03-Error : ‘,$errstr );
        return false; }
 }

Lee el resto de esta entrada »