<?php
# Funcion que parsea el fichero de texto con los contactos
function ParseaRespuesta($listatexto)
{
    $lista = split("\n", $listatexto);
    return $lista;
}

# Funcion que recupera la lista de contactos
function RecuperaContactos($tm_login, $tm_password)
{
    $lista_contactos = "";
    
    $ch = curl_init();
    $url = "https://copiagenda.movistar.es/cp/ps/Main/login/Agenda";
    curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
    curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, false);
    curl_setopt ($ch, CURLOPT_HEADER, 1);
    curl_setopt($ch,CURLOPT_FOLLOWLOCATION,false);

    $useragent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322; Media Center PC 4.0; .NET CLR 2.0.50727)";
    curl_setopt($ch, CURLOPT_USERAGENT, $useragent);
    curl_setopt($ch, CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_1_1);
    curl_setopt ($ch, CURLOPT_RETURNTRANSFER, true);

    # Iniciamos login con HTTPS
    $res= curl_setopt ($ch, CURLOPT_URL,$url);
    $postdata = "TM_ACTION=LOGIN&TM_LOGIN=$tm_login&TM_PASSWORD=$tm_password";
    curl_setopt($ch, CURLOPT_POSTFIELDS, $postdata);
    curl_setopt($ch, CURLOPT_POST, true);
    # cabeceras HTTP
    $header = array("Content-Type: application/x-www-form-urlencoded",
    		    "Content-Length: ".strlen($postdata),
    		    "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*",
    		    "Connection: Keep-Alive");
    curl_setopt ($ch, CURLOPT_HTTPHEADER, $header);
    $result = curl_exec ($ch);
    $code = curl_getinfo($ch, CURLINFO_HTTP_CODE);

    if (curl_errno($ch))
    {
        print "Error: " . curl_error($ch);
    }
    else
    {
	if ($code == 301 || $code == 302)
	{
	    # Nos redirecionan y nos dan una cookie
            list($header, $result) = explode("\n\n", $result, 2);
            
	    $matches = array();
	    preg_match('/Location:(.*?)\n/', $header, $matches);
	    $url = @parse_url(trim(array_pop($matches)));
	    
	    $new_url = $url['scheme'] . '://' . $url['host'] . $url['path'] . ($url['query']?'?'.$url['query']:'');

	    $matches2 = array();
	    preg_match('/Set-Cookie: s=(.*?)\n/', $header, $matches2);
    	    list($cookie_value2, $rest) = explode("; ", $matches2[1], 2);
	    
	    $matches = array();
	    preg_match('/Set-Cookie:skf=(.*?)\n/', $header, $matches);
    	    list($cookie_value1, $rest) = explode("; ", $matches[1], 2);

            curl_setopt($ch, CURLOPT_URL, $new_url);
	    # cabeceras HTTP
	    $header = array("Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*",
	    		    "Cookie: skf=$cookie_value; s=$cookie_value2",
	    		    "Connection: Keep-Alive");
	    curl_setopt ($ch, CURLOPT_HTTPHEADER, $header);
	    curl_setopt($ch, CURLOPT_GET, true);
	    $result = curl_exec ($ch);
            
	    $matches = array();
	    preg_match('/password" value=(.*?)>\n/', $result, $matches);
	    $password = $matches[1];

	    # Nos piden que nos re-autentiquemos con los datos de usuario + la cookie y nos devuelven un token de sesion
            curl_setopt($ch, CURLOPT_URL, "https://copiagenda.movistar.es/cp/ps/Main/login/Authenticate");
	    $postdata = "password=$password&u=$tm_login&d=movistar.es";
	    curl_setopt($ch, CURLOPT_POSTFIELDS, $postdata);
	    curl_setopt($ch, CURLOPT_POST, true);
	    curl_setopt($ch, CURLOPT_GET, false);
	    # cabeceras HTTP
	    $header = array("Content-Type: application/x-www-form-urlencoded",
	    		    "Content-Length: ".strlen($postdata),
	    		    "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*",
	    		    "Cookie: skf=$cookie_value1; s=$cookie_value2",
	    		    "Connection: Keep-Alive");
	    $result = curl_exec ($ch);
	    $matches = array();
	    preg_match('/&t=(.*?)"\n/', $result, $matches);
	    $token = $matches[1];

	    # Pedimos un exportado de los datos en fichero txt separado por tabuladores
	    $urlfinal = "https://copiagenda.movistar.es/cp/ps/PSPab/preferences/ExportContacts?d=movistar.es&c=yes&u=$tm_login&t=$token";
            curl_setopt($ch, CURLOPT_URL, $urlfinal);
	    $postdata = "fileFormat=TEXT&charset=8859_1&delimiter=TAB";
	    curl_setopt($ch, CURLOPT_POSTFIELDS, $postdata);
	    curl_setopt($ch, CURLOPT_POST, true);
	    curl_setopt($ch, CURLOPT_GET, false);
	    # cabeceras HTTP
	    $header = array("Content-Type: application/x-www-form-urlencoded",
	    		    "Content-Length: ".strlen($postdata),
	    		    "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*",
	    		    "Cookie: skf=$cookie_value1; s=$cookie_value2",
	    		    "Connection: Keep-Alive");
	    # En este caso nos interesa eliminar las cabeceras
	    curl_setopt ($ch, CURLOPT_HEADER, false);
	    $result = curl_exec ($ch);
	    $lista_contactos = $result;
	}
	else
	{
	    print "No redirigido";
	}
	
        curl_close($ch);
    }
    
    $agenda = ParseaRespuesta($lista_contactos);
    return $agenda;
}

function BuscaPorNombre($nombre, $agenda)
{
    $count = count($agenda);
    for($i = 1; $i < $count; $i++)
    {
    	$contacto = split("\t",$agenda[$i]);

    	$nombreag = trim($contacto[3]);
    	$longnombre = strlen($nombreag);
    	$contacto[3] = substr($nombreag,1,$longnombre-2);

    	$telefono = trim($contacto[11]);
    	$longnumero = strlen($telefono);
    	$contacto[11] = substr($telefono,1,$longnumero-2);
    	
	if(eregi($nombre,$contacto[3]))
	    return $contacto;
    }
}

    $log = "6xxxxxxxx";
    $passw = "xxxxxx";
    $lista = RecuperaContactos($log, $passw);
    
    $busca = "nombre";
    $contacto = BuscaPorNombre($busca, $lista);
    if($contacto[3]=="")
        print "Contacto '$busca' no encontrado<br>";
    else
    	print $contacto[3]." ".$contacto[11]."<br>";
?>