Cobertura Elecciones 20N Sigue la Campaņa Electoral del PSOE con @LGTorres_rtve.';
?>
", ">", $feed);
$feed = str_replace("rel=\"image\"/>", ">", $feed);
$clean = explode("", $feed);
$amount = count($clean) - 1;
$url_long = "";
$yfrog = "";
$ok = 'true';
$polyline = "";
$mun = 1;
for ($i = 1; $i <= $amount; $i++) {
$entry_close = explode("", $clean[$i]);
$clean_content_1 = explode("", $entry_close[0]);
$clean_content = explode("", $clean_content_1[1]);
$clean_name_2 = explode("", $entry_close[0]);
$clean_name_1 = explode("(", $clean_name_2[1]);
$clean_name = explode(")", $clean_name_1[1]);
$clean_published_1 = explode("", $entry_close[0]);
$clean_published = explode("", $clean_published_1[1]);
$clean_title_1 = explode("", $entry_close[0]);
$clean_title = explode("", $clean_title_1[1]);
$clean_uri_1 = explode("", $entry_close[0]);
$clean_uri = explode("", $clean_uri_1[1]);
$clean_geo_1 = explode("", $entry_close[0]);
$clean_geo = explode("", $clean_geo_1[1]);
$palabra0 = "http://";
if(ereg($palabra0,$clean_title[0])) {
$url1 = explode("http://",$clean_title[0]);
$url_long1 = "http://".$url1[1];
$url_long = expand_url($url_long1);
$clean_title[0] = ereg_replace($url_long1, $url_long, $clean_title[0]);
$clean_title[0] = $clean_title[0]." ".$url_long;
}
else {$url_long = "";}
$palabra = "http://yfrog.com/";
if(ereg($palabra,$clean_title[0])) {
$yfrog1 = explode("http://yfrog.com/",$clean_title[0]);
//$yfrog2 = explode("http://yfrog.com/",$yfrog1[1]);
//$yfrog3 = explode(" ",$yfrog2[0]);
$yfrog = "
![](http://yfrog.com/".$yfrog1[1].":iphone)
";
//echo "yfrog1 : ".$yfrog1[0]." || ".$yfrog1[1]." || yfrog2 : ".$yfrog2[0]." || ".$yfrog2[0]." || yfrog3 : ".$yfrog3[0]." || ".$yfrog3[0]." || yfrog : ".$yfrog;
//echo " || yfrog : ".$yfrog;
}else {$yfrog = "";}
$palabra2 = "
".$clean_title[0]."
".$yfrog." ]]>";
$xml_klm .= "";
$xml_klm .= " ";
$xml_klm .= " 1";
$xml_klm .= " relativeToGround ";
$xml_klm .= " ".$geo[1].",".$geo[0]." ";
$xml_klm .= " ";
$xml_klm .= " ";
//$geo[1] = 39.973929;
//$geo[0]= -3.55957;
$polyline .= $geo[1].",".$geo[0]." ";
if ($ok == 'true'){
if ($i == 1) {
$ok_2 = get_img ($clean_title[0]);
//echo $ok_2;
if ($ok_2 != ""){
$yfrog_b = explode("http://yfrog.com/",$clean_title[0]);
$foto = "
![](\"http://yfrog.com/".$yfrog_b[1].":iphone\")
";$espacio = "580";
//echo "yfrog_b : ".$yfrog_b[1]." || clean_title : ".$clean_title[0];
}
else {$foto = "";$espacio = "250";}
$first = "var myLatlng2 = new google.maps.LatLng(".$geo[0].",".$geo[1].");var marker = new google.maps.Marker({suppressInfoWindows: false,maxWidth: ".$espacio.", position: myLatlng2, map: map, icon:'http://origin-lab.rtve.es/elecciones/caravana/images/pp/symbol_excla.png', title:'@LGTorres_rtve'});";
$first .= "var infowindow = new google.maps.InfoWindow({content: '@LGTorres_rtve
".$clean_published[0]."
".$clean_title[0].$foto."', show:true});";
$ok = 'false';
$coords = $geo[0].",".$geo[1];
}
}
$mun++;
}
}
$coords = $coords;
$first .= "infowindow.open(map,marker);google.maps.event.addListener(marker, 'click', function() {infowindow.open(map,marker);});";
$xml_klm .= "Relative1Cobertura Elecciones 20N. Sigue la Campaņa Electoral del PSOE con @LGTorres_rtve.#redLine1relativeToGround".$polyline."";
$xml_klm .= '';
$fich=fopen("kml/caravana_tuit_psoe.kml","w");
fputs($fich,$xml_klm);
fclose($fich);
$xml_klm = ' Cobertura Elecciones 20N Sigue la Campaņa Electoral del PSOE con @M_Menendez_rtve';
?>
", ">", $feed);
$feed = str_replace("rel=\"image\"/>", ">", $feed);
$clean = explode("", $feed);
$amount = count($clean) - 1;
$url_long = "";
$yfrog = "";
$ok = 'true';
$polyline = "";
$mun = 1;
for ($i = 1; $i <= $amount; $i++) {
$entry_close = explode("", $clean[$i]);
$clean_content_1 = explode("", $entry_close[0]);
$clean_content = explode("", $clean_content_1[1]);
$clean_name_2 = explode("", $entry_close[0]);
$clean_name_1 = explode("(", $clean_name_2[1]);
$clean_name = explode(")", $clean_name_1[1]);
$clean_published_1 = explode("", $entry_close[0]);
$clean_published = explode("", $clean_published_1[1]);
$clean_title_1 = explode("", $entry_close[0]);
$clean_title = explode("", $clean_title_1[1]);
$clean_uri_1 = explode("", $entry_close[0]);
$clean_uri = explode("", $clean_uri_1[1]);
$clean_geo_1 = explode("", $entry_close[0]);
$clean_geo = explode("", $clean_geo_1[1]);
$palabra0 = "http://";
if(ereg($palabra0,$clean_title[0])) {
$url1 = explode("http://",$clean_title[0]);
$url_long1 = "http://".$url1[1];
$url_long = expand_url($url_long1);
$clean_title[0] = ereg_replace($url_long1, $url_long, $clean_title[0]);
$clean_title[0] = $clean_title[0]." ".$url_long;
}
else {$url_long = "";}
$palabra = "http://yfrog.com/";
if(ereg($palabra,$clean_title[0])) {
$yfrog1 = explode("http://yfrog.com/",$clean_title[0]);
//$yfrog2 = explode("http://yfrog.com/",$yfrog1[1]);
//$yfrog3 = explode(" ",$yfrog2[0]);
$yfrog = "
";
//echo "yfrog1 : ".$yfrog1[0]." || ".$yfrog1[1]." || yfrog2 : ".$yfrog2[0]." || ".$yfrog2[0]." || yfrog3 : ".$yfrog3[0]." || ".$yfrog3[0]." || yfrog : ".$yfrog;
//echo " || yfrog : ".$yfrog;
}else {$yfrog = "";}
$palabra2 = "
".$clean_title[0]."
".$yfrog." ]]>";
$xml_klm .= "";
$xml_klm .= " ";
$xml_klm .= " 1";
$xml_klm .= " relativeToGround ";
$xml_klm .= " ".$geo[1].",".$geo[0]." ";
$xml_klm .= " ";
$xml_klm .= " ";
//$geo[1] = 39.973929;
//$geo[0]= -3.55957;
$polyline .= $geo[1].",".$geo[0]." ";
if ($ok == 'true'){
if ($i == 1) {
$ok_2 = get_img ($clean_title[0]);
//echo $ok_2;
if ($ok_2 != ""){
$yfrog_b = explode("http://yfrog.com/",$clean_title[0]);
$foto = "
";$espacio = "580";
//echo "yfrog_b : ".$yfrog_b[1]." || clean_title : ".$clean_title[0];
}
else {$foto = "";$espacio = "250";}
$first = "var myLatlng4 = new google.maps.LatLng(".$geo[0].",".$geo[1].");var marker = new google.maps.Marker({suppressInfoWindows: false,maxWidth: ".$espacio.", position: myLatlng4, map: map, icon:'http://origin-lab.rtve.es/elecciones/caravana/images/pp/symbol_excla.png', title:'@M_Menendez_rtve'});";
$first .= "var infowindow = new google.maps.InfoWindow({content: '@M_Menendez_rtve
".$clean_published[0]."
".$clean_title[0].$foto."', show:true});";
$ok = 'false';
$coords = $geo[0].",".$geo[1];
}
}
$mun++;
}
}
$coords = $coords;
$first .= "infowindow.open(map,marker);google.maps.event.addListener(marker, 'click', function() {infowindow.open(map,marker);});";
$xml_klm .= "Relative1Cobertura Elecciones 20N. Sigue la Campaņa Electoral del PP con @M_Menendez_rtve.#thickBlackLine1relativeToGround".$polyline."";
$xml_klm .= '';
$fich=fopen("kml/caravana_tuit_pp.kml","w");
fputs($fich,$xml_klm);
fclose($fich);
function get_img ($title) {
$palabra = "http://yfrog.com/";
if(ereg($palabra,$title)) {
$yfrog1 = explode("http://yfrog.com/",$title);
$yfrog = "
";
return $yfrog;
}else {
$yfrog = "";
return $yfrog;
}
}
function expand_url($url){
$apiurl = "http://api.longurl.org/v2/expand?url=".urlencode($url);
$chi = curl_init();
curl_setopt($chi, CURLOPT_URL, $apiurl);
curl_setopt($chi, CURLOPT_RETURNTRANSFER, 1);
$resulti = curl_exec($chi);
$resultinfo = curl_getinfo($chi);
curl_close($chi);
$xmli = simplexml_load_string($resulti, 'SimpleXMLElement', LIBXML_NOCDATA);
return $xmli->{"long-url"};
}
?>