From 0e92e864ca66e676701d5c0934d86a37420cc993 Mon Sep 17 00:00:00 2001
From: Edmar Moretti <edmar.moretti@gmail.com>
Date: Sun, 14 Nov 2010 01:22:09 +0000
Subject: [PATCH] Inclusão do aplicativo twitter2geo.php para conversão de mensagens no Twitter em arquivos KML

---
 twitter2geo.php | 162 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 162 insertions(+), 0 deletions(-)
 create mode 100644 twitter2geo.php

diff --git a/twitter2geo.php b/twitter2geo.php
new file mode 100644
index 0000000..8e2a14a
--- /dev/null
+++ b/twitter2geo.php
@@ -0,0 +1,162 @@
+<?php
+/*
+Title: twitter2geo.php
+
+Converte mensagens registradas no twitter, para um determinado TAG, em um arquivo georreferenciado
+
+As mensagens são consideradas apenas qd possuírem as TAGs #x ou #y, ou então, #lat ou #long
+
+São aceitos todos os parâmetros de busca da API do Twitter, como definidos em http://search.twitter.com/
+
+Licenca
+
+i3Geo Interface Integrada de Ferramentas de Geoprocessamento para Internet
+
+Direitos Autorais Reservados (c) 2006 Ministério do Meio Ambiente Brasil
+Desenvolvedor: Edmar Moretti edmar.moretti@mma.gov.br
+
+Este programa é software livre; você pode redistribuí-lo
+e/ou modificá-lo sob os termos da Licença Pública Geral
+GNU conforme publicada pela Free Software Foundation;
+tanto a versão 2 da Licença.
+Este programa é distribuído na expectativa de que seja útil,
+porém, SEM NENHUMA GARANTIA; nem mesmo a garantia implícita
+de COMERCIABILIDADE OU ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA.
+Consulte a Licença Pública Geral do GNU para mais detalhes.
+Você deve ter recebido uma cópia da Licença Pública Geral do
+GNU junto com este programa; se não, escreva para a
+Free Software Foundation, Inc., no endereço
+59 Temple Street, Suite 330, Boston, MA 02111-1307 USA.
+
+Arquivo: i3geo/twitter2geo.php
+
+Parametros:
+
+ajuda - se for definida na URL, mostra uma ajuda ao usuário
+
+tipo - tipo de arquivo que será retornado
+
+Valores:
+
+	twitter - retona os resultados originais encontrados
+	
+	kml - retorna os dados no formato kml
+
+Exemplos:
+
+twitter2geo.php?ajuda
+
+twitter2geo.php?tipo=kml&q=twit2kml
+*/
+include("classesphp/carrega_ext.php");
+/*
+Código de consulta à API adaptado de http://www.reynoldsftw.com/2009/02/using-jquery-php-ajax-with-the-twitter-api/
+*/
+$par = array_merge($_POST,$_GET);
+$chaves = array_keys($par);
+
+if($par["ajuda"] || !$par["tipo"]){
+	echo "<pre>Title: twitter2geo.php
+		Converte mensagens registradas no twitter, para um determinado TAG, em um arquivo georreferenciado
+		As mensagens são consideradas apenas qd possuírem as TAGs #x ou #y, ou então, #lat ou #long
+		São aceitos todos os parâmetros de busca da API do Twitter, como definidos em http://search.twitter.com/
+
+		Parametros:
+
+		ajuda - se for definida na URL, mostra uma ajuda ao usuário
+		tipo - tipo de arquivo que será retornado
+
+		Valores:
+
+		twitter - retona os resultados originais encontrados		
+		kml - retorna os dados no formato kml
+
+		Exemplos:
+
+		twitter2geo.php?ajuda
+		twitter2geo.php?tipo=kml&q=twit2kml";
+		exit;
+}
+$query = array();
+foreach($chaves as $chave)
+{$query[] = $chave."=".$par[$chave];}
+$query = implode("&",$query);
+$s = PHP_SHLIB_SUFFIX;
+if(!function_exists('curl_init'))
+{@dl( 'php_curl'.'.'.$s );}
+if(!function_exists('curl_init'))
+{echo "curl não instalado";}
+$curl = curl_init();
+curl_setopt ($curl, CURLOPT_URL, "http://search.twitter.com/search.json?".($query));
+curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
+$result = curl_exec ($curl);
+curl_close ($curl);
+$result = fixEncoding($result);
+if(strtolower($par["tipo"]) == "twitter"){
+	//echo header("Content-type: application/json");
+	echo $result;
+	exit;
+}
+$result = json_decode( $result, true );
+$kml = '<?xml version="1.0" encoding="UTF-8"?><kml xmlns="http://earth.google.com/kml/2.0"><Document><name>twitter</name>';
+$kml .= '<Folder><description>'.$q.'</description><name>'.$q.'</name><open>1</open>';
+$icon = array();
+if(!$result["results"])
+{exit;}
+foreach($result["results"] as $r)
+{
+	if(!in_array($r["from_user"],$icon))
+	{
+		$kml .= '<Style id="'.$r["from_user"].'"><IconStyle><Icon>';
+		$kml .= '<href>'.$r["profile_image_url"].'</href>';
+		$kml .= '</Icon></IconStyle></Style>';
+	}
+	$icon[] = $r["from_user"];
+}
+$id = 0;
+foreach($result["results"] as $r)
+{ 
+	$xy = retornaXY($r["text"]);
+	if($xy != "")
+	{
+		$html = "<table><tr>";
+		$html .= "<td><img src='".$r["profile_image_url"]."' /></td>";
+		$html .= "<td><span style=color:gray >".$r["from_user"]."<br>";
+		$html .= $r["created_at"]."</span><br>";
+		$html .= $r["text"]."<br></td></tr></table>";
+		$kml .='<Placemark><name>'.$id.'</name>';
+		$kml .= '<description><![CDATA['.$html.']]></description>';
+		$kml .= '<styleUrl>'.$r["from_user"].'</styleUrl>';
+		$kml .= '<Point id="'.$id.'"><coordinates>'.$xy.'</coordinates></Point></Placemark>';
+		$id++;
+	}
+}
+$kml .= '</Folder></Document></kml>';
+echo header("Content-type: application/xml");
+echo $kml;
+function retornaXY($s)
+{
+	$x = preg_replace("/(.*#x)|(\s.*)/i","",$s);
+	if($x == "")
+	{$x = preg_replace("/(.*#long)|(\s.*)/i","",$s);}
+	if($x == "")
+	{$x = preg_replace("/(.*#lon)|(\s.*)/i","",$s);}
+	$y = preg_replace("/(.*#y)|(\s.*)/i","",$s);
+	if($y == "")
+	{$y = preg_replace("/(.*#lat)|(\s.*)/i","",$s);}
+	$x = str_replace(",",".",$x);
+	$y = str_replace(",",".",$y);
+	if(!is_numeric($x) || !is_numeric($y))
+	{return "";}
+	else
+	{return $x.",".$y;}
+}
+function fixEncoding($in_str)
+{
+	$cur_encoding = mb_detect_encoding($in_str) ;
+	if($cur_encoding == "UTF-8" && mb_check_encoding($in_str,"UTF-8"))
+	{return $in_str;}
+	else
+	{return utf8_encode($in_str);}
+} 
+?>
\ No newline at end of file
--
libgit2 0.21.2