Re: [Ayuda] [OT] consulta sobre sistema de mensajes.

["Ing. Salvador Fernández" <salvadorfb en yahoo com>]

 --- Javier Díaz <javierdiazm en yahoo com mx> escribió:
> De hecho es un poco mas dificil hacer un script,
> pero no es imposible,
> como pista te doy este codigo en python para que
> jueges

De hecho hice un script en php que saca las cookies
y se las vuelve a proporcionar al siguiente header
para simular que el "navegador" guardo las cookies,
se ejecuta pero no funciona; les envio mi script
a ver que me pueden comentar, muestra los headers
para ayudar en la depuracion.

Salvador.
---------------
#!/usr/bin/php 

<?
set_time_limit(0);
error_reporting(0);

$com="prueba";
$ate="cuate";

// Copia a Salvador de la caida.

$bip = fsockopen ("www.telcel.com", 80);
$post_data
="tel1=7221215648&tel2=&tel3=&tel4=&tel5=&tel6=&tel7=&tel8=&comments=$com&atencion=$ate&dia=&mes=&ano=&hora=&minutos=";

if (!$bip) {
    echo "Se cayo el telcel.com $errstr
($errno)<br>\n";
} 
else {

$paq="POST /servlet/Mensajes HTTP/1.1\r\n".
     "Host: www.telcel.com\r\n".
     "User-Agent: Mozilla/5.0 (X11; U; Linux i686;
en-US; rv:1.0.1) Gecko/20021003\r\n".
     "Content-Type:
application/x-www-form-urlencoded\r\n".
     "Content-Length: ".strlen($post_data)."\r\n\r\n".
     $post_data."\r\n\r\n";

    fputs ($bip, $paq);
   
    while (!feof($bip)) 
    {
    $linea=fgets ($bip,1280);
    $return= $return.$linea;

    if(strpos($linea,"Set-Cookie:")===false) {;}
    else {$galleta= $linea;}

    }
    echo $return;

$cookie=str_replace("Set-Cookie:","Cookie:",$galleta);


$paq="GET /servlet/paginamensajes HTTP/1.1\r\n".
     "Host: www.telcel.com\r\n".
     "User-Agent: Mozilla/5.0 (X11; U; Linux i686;
en-US; rv:1.0.1) Gecko/20021003\r\n".
     "Referer:
http://www.telcel.com/servlet/paginamensajes\r\n";.
      $cookie.
     "Content-Length: 0";
     "Content-Type: text/html";
     "Content-Language: en \r\n";
       
     fputs ($bip, $paq);  

    $return="";   
    while (!feof($bip)) $return .= fgets ($bip,1280);
    echo $return;
		
    fclose ($bip);
}

?>


_________________________________________________________
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes. http://net.yahoo.com.mx
_______________________________________________
Ayuda mailing list
Ayuda en linux org mx
Para salir de la lista: http://mail.linux.org.mx/mailman/listinfo/ayuda/