From 285785ff2779e2cd0fc6ea89cf0ece22ffb43baf Mon Sep 17 00:00:00 2001
From: Edmar Moretti <edmar.moretti@gmail.com>
Date: Wed, 29 Jul 2009 11:40:15 +0000
Subject: [PATCH] Inclusão de variável para definir a interface (ms_configura.php). Reformulação na inicialização para ganho de performance.

---
 aplicmap/geral.htm |  11 ++++++++++-
 ms_configura.php   | 131 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-------------------------------
 ms_criamapa.php    | 312 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 principal.htm      |   2 +-
 4 files changed, 232 insertions(+), 224 deletions(-)

diff --git a/aplicmap/geral.htm b/aplicmap/geral.htm
index 40c0a6e..95539e5 100644
--- a/aplicmap/geral.htm
+++ b/aplicmap/geral.htm
@@ -159,9 +159,18 @@ vc pode optar por colocar mensagens de ajuda em algum lugar
 <!-- aqui são mostradas imagens obtidas do metadata mensagem que pode existir em cada layer -->
 <tr style="border:0px"><td colspan=3 style=background-color:black ><input style="border:0px none; background-color:black;color:white;font-size:12pt;" type="text" size="1" id="i3geo_letreiro" ></td></tr>
 <tr style="border:0px"><td colspan=3 style=background-color:black;color:white >geoprocessamento@mma.gov.br</td></tr>
-
 </table>
 
+<center>
+<br><br>
+<table><tr>
+<td colspan=3 ><center><img src='../imagens/i3geo1.jpg'></td></tr>
+<tr><td style="padding:10px;"><center><img src='../imagens/pspb.png'></td>
+<td style="padding:10px;"><center><img src='../imagens/mapserv.png'></td>
+<td style="padding:10px;"><center><a href='http://mapas.mma.gov.br/download' target=blank ><img src='../imagens/somerights20_pt.gif' ></a></td>
+</tr></table>
+
+
 <!--
 	Barra de botoes que serão incluídos na janela móvel de navegação
 	Para excluir um botão é só apagar a linha.
diff --git a/ms_configura.php b/ms_configura.php
index 96019cc..75d9eb5 100644
--- a/ms_configura.php
+++ b/ms_configura.php
@@ -16,9 +16,13 @@ As variáveis de configuração são definidas em blocos diferentes conforme o siste
 O ms_criamapa.php carrega o ms_configura.php e armazena a maior parte das variáveis na seção. Algumas variáveis
 são também fornecidas para o cliente (navegador) na inicialização do mapa e ficam disponíveis em variáveis javascript.
 
-File: i3geo/ms_configura.php
+Arquivo:
 
-About: Licença
+i3geo/ms_configura.php
+
+Licenca:
+
+GPL2
 
 I3Geo Interface Integrada de Ferramentas de Geoprocessamento para Internet
 
@@ -39,32 +43,41 @@ Free Software Foundation, Inc., no endereço
 59 Temple Street, Suite 330, Boston, MA 02111-1307 USA.
 */
 /*
-	Variable: $mensagemInicia
+	Variavel: mensagemInicia
 	
 	Mensagem de inicialização mostrada pelo programa ms_criamapa.php
+	
+	Tipo:
+	{string}
 */
 $mensagemInicia = 'Versão 4.2 beta 3';
 /*
-	Variable: $tituloInstituicao
+	Variable: tituloInstituicao
+	
+	Nome que será utilizado em alguns cabeçalhos e títulos de páginas
 	
-	Nome que será utilizado em alguns cabçalhos e títulos de páginas
+	Tipo:
+	{string}
 */
 $tituloInstituicao = "MMA - Ministerio do Meio Ambiente";
 /*
-	Variable: $googleApiKey
+	Variable: googleApiKey
 	
 	Chave utilizada pela API do Google maps.
 	
 	A API do Google maps é utilizada em algumas funcionalidades do i3geo. Vc deve registrar uma chave
 	no site do Google para o seu endereço de servidor web. veja como fazer em:
 	http://code.google.com/apis/maps/signup.html
+	
+	Tipo:
+	{string}
 */
 $googleApiKey = "ABQIAAAAKguAlmd-hSDulF2T_tfWMxT3OAK09d_ZSDyC36iPGlww-4j-9xSrR2ZZUxVeZC01q8anfe5ntl_U4w";
 
 if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 {
 	/*
-	Variable: $navegadoresLocais
+	Variable: navegadoresLocais
 	
 	Ip dos usuarios que podem navegar no servidor para acessar arquivos de dados geográficos.
 	
@@ -81,7 +94,9 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 	$navegadoresLocais = "";
 	
 	Com a opção ativa na interface do mapa, o ip do cliente é verificado e caso estiver registrado no array, a navegação pelos diretórios do servidor será permitida. Para mais detalhes, veja a ferramenta i3geo/ferramentas/navegacaodir
-	  
+	 
+	Tipo:
+	{array}
 	*/
 	$navegadoresLocais = array(
 							array(
@@ -93,50 +108,68 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 							)
 						);
 	/*
-	Variable: $editores
+	Variable: editores
 	
 	Ip dos usuarios que podem administrar o i3geo via navegador.
 	
 	Separe os ips por vírgula. Os usuários que tiverem seus ips listados, poderão editar o diretório i3geo/temas, desde que os mesmos tenham direito de leitura e escrita nesse diretório.
+	
+	Tipo:
+	{array}
 	*/
 	$editores = array("127.0.0.1","localhost");
 	/*
-	Variable: $dir_tmp
+	Variable: dir_tmp
 	
 	Caminho completo do diretório temporário utilizado pelo mapserver.
+	
+	Tipo:
+	{string}
 	*/
 	$dir_tmp = "c:/ms4w/tmp/ms_tmp";
 	/*
-	Variable: $locaplic
+	Variable: locaplic
 	
 	Caminho completo onde fica o I3Geo
+	
+	Tipo:
+	{string}
 	*/
 	$locaplic = "c:/ms4w/apache/htdocs/i3geo";
 	/*
-	Variable: $temasdir
+	Variable: temasdir
 	
 	Caminho completo do diretório onde ficam os arquivos .map correspondentes aos temas disponíveis
 	Esta variável não está implementada completamente. Os mapfiles devem ficar obrigatoriamente no diretório temas
+	
+	Tipo:
+	{string}
 	*/
 	$temasdir = $locaplic."/temas"; //"c:/ms4w/apache/htdocs/i3geo/temas";
 	/*
-	Variable: $temasaplic
+	Variable: temasaplic
 	
 	Caminho completo onde ficam os arquivos .map específicos do I3Geo
+	
+	Tipo:
+	{string}
 	*/
 	$temasaplic = $locaplic."/aplicmap";//"c:\ms4w\apache\htdocs\i3geo\aplicmap";
 	/*
-	Variable: $locmapserv
+	Variable: locmapserv
 	
 	Localização do executável do Mapserver conforme deve ser acrescentado a URL após o nome do host.
 	
 	Essa variável é necessária em processos que utilizam o mapserver no modo CGI.
 	
 	Por exemplo, se o endereço for http://localhost/cgi-bin/mapserv.exe, a variável deverá conter apenas /cgi-bin/mapserv.exe
+	
+	Tipo:
+	{string}
 	*/
 	$locmapserv = "/cgi-bin/mapserv.exe";
 	/*
-	Variable: $locsistemas
+	Variable: locsistemas
 	
 	Onde fica o xml que será utilizado para complementar a lista de temas disponíveis na árvore de adição de temas.
 	
@@ -147,10 +180,13 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 	Por meio dessa nova árvore pode-se disparar programas PHP que executam operações especiais para a montagem de uma nova camada a ser adicionada ao mapa.
 	
 	Veja a documentação específica do arquivo sistemas.xml para maiores detalhes.
+	
+	Tipo:
+	{string}
 	*/
 	$locsistemas = "";
 	/*
-	Variable: $locidentifica 
+	Variable: locidentifica 
 	
 	Onde fica o xml que será utilizado para complementar a lista de temas dispponíveis na ferramenta de identificação.
 	
@@ -161,10 +197,13 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 	Por meio dessa lista pode-se disparar programas PHP que executam operações especiais para a obtenção de dados com base em um par de coordenadas xy.
 	
 	Veja a documentação específica do arquivo identifica.xml para maiores detalhes.
+	
+	Tipo:
+	{string}
 	*/
 	$locidentifica = "";
 	/*
-	Variable: $locmapas 
+	Variable: locmapas 
 	
 	Onde fica o xml, para preencher a guia mapas.
 	
@@ -173,37 +212,36 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 	A guia "Mapas" mostra uma lista de links que permitem abrir mapas específicos. Essa lista é utilizada também pela versão mobile do i3geo.
 	
 	Veja a documentação específica do arquivo mapas.xml para maiores detalhes.
+	
+	Tipo:
+	{string}
 	*/
 	$locmapas = "";
 	/*
-	Variable: $R_path
+	Variable: R_path
 	
 	Onde esta o executavel do software R
 	
 	O R é um pacote estatístico utilizado pelo I3Geo para geração de gráficos e análises estatísticas
 	Se vc não possui o R instalado, comente a linha abaixo
+	
+	Tipo:
+	{string}
 	*/
 	$R_path = "c:/r/win/bin/R.exe";
 	/*
-	Variable: $postgis_con
-	
 	Depreciado - não é mais necessário na versão 5.x do Mapserver
-	
 	string de conexão com o banco de dados postgis utilizada para reallização de cálculos
-	
 	se não existir, deixe em branco
 	*/
 	$postgis_con = "";
 	/*
-	Variable: $srid_area
-	
 	Depreciado - não é mais necessário na versão 5.x do Mapserver
-	
 	srid utilizado nos cálculos que exigem projeção equivalente
 	*/
 	$srid_area = 1;
 	/*
-	Variable: $postgis_mapa
+	Variable: postgis_mapa
 	
 	String de conexão para acesso aos dados (opcional).
 	
@@ -214,10 +252,13 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 	Se vc especificar essa variável, o mapa será forçado a recusar o modo de operação CGI.
 	
 	Para mais detalhes veja a função substituiCon em classesphp/funcoes_gerais.php
+	
+	Tipo:
+	{array}
 	*/
 	$postgis_mapa = ""; //"user=geodados password=geodados dbname=geodados host=10.1.1.36 port=5432";
 	/*
-	Variable: $menutemas
+	Variable: menutemas
 	
 	Array com a lista de arquivos xml que serão incluidos na guia de adição de temas. Se for "", será utilizado o arquivo default menutemas/menutemas.xml.
 	
@@ -237,10 +278,13 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 		
 	Para usar o menu default, utilize apenas $menutemas = ""; nesse caso, os menus serão obtidos do 
 	banco de dados de administração. Para editar o banco de dados utilize http://localhost/i3geo/admin
+	
+	Tipo:
+	{string}
 	*/
 	$menutemas = "";
 	/*
-	Variable: $utilizacgi
+	Variable: utilizacgi
 	
 	Variável indicando se o desenho do corpo do mapa será baseado no modo cgi.
 	
@@ -252,26 +296,35 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 	o endereço do cgi acrescentado do nome do mapfile, fazendo com que a imagem seja retornada diretamente.
 	
 	Em alguns casos o uso do cgi torna a aplicação mais rápida.
+	
+	Tipo:
+	{string}
 	*/
 	$utilizacgi = "nao";
 	/*
-	 Variable: $atlasxml
+	 Variable: atlasxml
 	 
 	 Indica o nome do arquivo xml que será utilizado na interface Atlas do i3geo.
 	 
 	 Pode ser utilizado o caminho relativo, tendo como base i3geo/diretorio
+	 
+	 Tipo:
+	 {string}
 	*/
 	$atlasxml = "";
 	/*
-	 Variable: $expoeMapfile
+	 Variable: expoeMapfile
 	 
 	 Essa variável controla se o nome do mapfile atual será ou não retornado para a aplicação via ajax.
 	 
 	 Quando essa variável for definida como "nao" algumas das funcionalidades do i3geo poderão ficar prejudicadas, mas sem comprometimento das funções principais.
+	 
+	 Tipo:
+	 {string}
 	*/
 	$expoeMapfile = "";
 	/*
-	 Variable: $conexaoadmin
+	 Variable: conexaoadmin
 	 
 	 Arquivo PHP que define a string de conexão (PDO) com o banco de dados administrativo.
 	 
@@ -287,8 +340,23 @@ if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN'))
 	
 	 O programa PHP que estabelece a conexão deve retornar objetos com nomes padronizados. Veja o arquivo i3geo/admin/conexao.php para maiores detalhes.
 	
+	Tipo:
+	{string}
 	*/
 	$conexaoadmin = "";//$locaplic."/admin/php/conexaomma.php";
+	/*
+	 Variable: interfacePadrao
+	 
+	 Interface padrão utilizada para abrir o mapa.
+	 
+	 A interface pode ser um arquivo com as extensões .htm .html .phtml
+	 
+	 O arquivo deve estar armazenado em i3geo/aplicmap
+	 
+	 Tipo:
+	 {string}
+	*/
+	$interfacePadrao = "geral.htm";
 }
 else //se for linux
 {
@@ -310,5 +378,6 @@ else //se for linux
 	$atlasxml = "";//"../menutemas/atlas.xml";
 	$expoeMapfile = "sim";
 	$conexaoadmin = "";
+	$interfacePadrao = "geral.htm";
 }
 ?>
diff --git a/ms_criamapa.php b/ms_criamapa.php
index a7f188d..5c2499a 100644
--- a/ms_criamapa.php
+++ b/ms_criamapa.php
@@ -23,9 +23,13 @@ $temasa=bioma;
 include("ms_criamapa.php");
 
 
-File: i3geo/ms_criamapa.php
+Arquivo:
 
-About: Licença
+i3geo/ms_criamapa.php
+
+Licenca:
+
+GPL2
 
 I3Geo Interface Integrada de Ferramentas de Geoprocessamento para Internet
 
@@ -45,7 +49,7 @@ 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.
 
-About: Parâmetros
+
 
 base - arquivo mapfile que servirá de base para a criação do mapa.Por default, são utilizados os arquivos aplicmap/geral1.map (para linux) ou aplicmap/geral1windows.map (para windows).
 
@@ -101,17 +105,17 @@ srs_wms - código da projeção
 
 image_wms - tipo de imagem disponível
 
-versao_wms - versão do WMS
+Parametro: versao_wms
 
+&versao_wms
+
+Versão do WMS
 
-*/
 
-/*
-Section: Fluxo do código
 */
-$tempo = microtime(1);
+
 /*
-Note: Verifica a variável $caminho
+Verifica a variável $caminho
 
 Essa variável deve ser definida em programas que utilizam o ms_criamapa.php via include.
 Indica onde está o diretório i3geo para que os includes seguintes possam ser localizados.
@@ -124,20 +128,21 @@ if (!file_exists($caminho."classesphp/carrega_ext.php"))
 if (isset($_GET["caminho"]))
 {$caminho = $_GET["caminho"];}
 /*
-Note: Carrega as extensões PHP
+ Carrega as extensões PHP
 
 Carrega as extensões utilizadas no programa de inicialização. 
 A carga das extensões geralmente é necessária nas instalações windows (ms4w) ou quando as mesmas não são carregadas pela própria inicialização do PHP.
 */
 include_once ($caminho."classesphp/carrega_ext.php");
 /*
-Note: Include dos arquivos PHP.
+ Include dos arquivos PHP.
 
 Inclui os programas php com funções utilizadas pelo ms_criamapa.php
 */
 include_once ($caminho."classesphp/pega_variaveis.php");
 include_once ($caminho."classesphp/funcoes_gerais.php");
-include_once ($caminho."ms_configura.php");
+if(!isset($dir_tmp))
+{include_once ($caminho."ms_configura.php");}
 if (!isset($debug))
 {error_reporting(0);$debug="nao";}
 else
@@ -148,7 +153,16 @@ Define o cookie para o idioma da interface
 if(isset($idioma) && $idioma != "")
 setcookie("i3geolingua", $idioma);
 /*
-Note: Prepara as variáveis que serão incluidas na seção
+Cria os diretórios temporários que serão utilizados pelo i3geo para armazenar as imagens e outros dados. 
+*/
+$diretorios = criaDirMapa($dir_tmp);
+if(!$diretorios)
+{echo "<p style=color:red ><b>N&atilde;o foi po&iacute;vel criar os diret&oacute;rios tempor&aacute;rios em $dir_tmp.</b></p>";exit;}
+criaIndex();
+$tmpfname = $diretorios[0];
+$protocolo = explode("/",$_SERVER['SERVER_PROTOCOL']);
+/*
+ Prepara as variáveis que serão incluidas na seção
 
 As variáveis vêm do arquivo ms_configura.php e são armazenadas em uma seção com nome específico para o i3geo.
 */
@@ -187,7 +201,7 @@ $navegadoresLocais_ = "sim";
 else
 $navegadoresLocais_ = "nao";
 /*
-Note: Inicia a seção
+ Inicia a seção
 
 O i3geo inicia uma seção específica no servidor, denominada i3GeoPHP.
 Se já houver uma seção aberta, em função de outro browser estar ativo, cria uma nova. Faz a cópia das variáveis definidas para itens da seção.
@@ -199,15 +213,15 @@ if(isset($_SESSION["map_file"]) || $g_sid!="")
 {session_regenerate_id();}
 
 /*
-Note: Aguarde
+ Aguarde
 
 Monta a apresentação do aguarde.
 
 Aqui é necessário verificar se $executa está definido
 isso pq algumas aplicações podem ser prejudicadas caso o aguarde seja mostrado
 */
-if (!isset($executa))
-{mostraAguarde();}
+//if (!isset($executa))
+//{mostraAguarde();}
 
 $_SESSION["dir_tmp"] = $dir_tmp_;
 $_SESSION["temasdir"] = $temasdir_;
@@ -236,6 +250,9 @@ $_SESSION["kmlurl"] = $kmlurl_;
 //rotina de segurança, ver http://shiflett.org/articles/the-truth-about-sessions
 $fingerprint = 'I3GEOSEC' . $_SERVER['HTTP_USER_AGENT'];
 $_SESSION['fingerprint'] = md5($fingerprint . session_id());
+$_SESSION["mapdir"] = $diretorios[1];
+$_SESSION["imgdir"] = $diretorios[2];
+
 //
 //pega todas as variáveis da sessão, mesmo as que foram definidas anteriormente
 //
@@ -243,7 +260,7 @@ foreach(array_keys($_SESSION) as $k)
 {eval("\$".$k."='".$_SESSION[$k]."';");}
 $postgis_mapa = $postgis_mapa_;
 /*
-Note: Define os arquivos .map 
+ Define os arquivos .map 
 
 Seleciona os arquivos mapfile que serão carregados como base conforme o tipo de sistema operacional.
 
@@ -263,40 +280,11 @@ else
 	if (!isset($base) || $base == ""){$base = "geral1";}
 	$estadosl = "estadosl";
 }
-if (file_exists($base))
-{$mapdefault = ms_newMapObj($base);}
-else
-{$mapdefault = ms_newMapObj($temasaplic."/".$base.".map");}
-/*
-Note: Parâmetros adicionais.
-
-Processa os parâmetros para a inicialização verificando se foram passados pela URL ou não.
-*/
-if (!isset($mapext))
-{$mapext = $mapdefault->extent->minx." ".$mapdefault->extent->miny." ".$mapdefault->extent->maxx." ".$mapdefault->extent->maxy;}
-if (!isset ($map_reference_image)) //arquivo com a imagem de refer&ecirc;ncia
-{$map_reference_image = $mapdefault->reference->image;}
-if (!isset ($map_reference_extent)) //extens&atilde;o geogr&aacute;fica da imagem do mapa de refer&ecirc;ncia
-{$map_reference_extent = $mapdefault->reference->extent->minx." ".$mapdefault->reference->extent->miny." ".$mapdefault->reference->extent->maxx." ".$mapdefault->reference->extent->maxy;}
-if (!isset($interface))
-{$interface = "geral.htm";}
 /*
-Note: Diretórios temporários
-
-Cria os diretórios temporários que serão utilizados pelo i3geo para armazenar as imagens e outros dados. 
-*/
-$diretorios = criaDirMapa($dir_tmp);
-if(!$diretorios)
-{echo "<p style=color:red ><b>N&atilde;o foi po&iacute;vel criar os diret&oacute;rios tempor&aacute;rios em $dir_tmp.</b></p>";exit;}
-$_SESSION["mapdir"] = $diretorios[1];
-$_SESSION["imgdir"] = $diretorios[2];
-criaIndex();
-/*
-Note: Cria os objetos map que serão processados
+ Cria os objetos map que serão processados
 
 O arquivo definido em $base é lido como um objeto map. Esse objeto será processado para incluir novos layers e alterar outros parâmetros definidos pelo usuário.
 */
-ms_ResetErrorList();
 if (file_exists($base))
 {
 	$map = ms_newMapObj($base);
@@ -307,40 +295,25 @@ else
 	$map = ms_newMapObj($temasaplic."/".$base.".map");
 	$mapn = ms_newMapObj($temasaplic."/".$base.".map");
 }
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
 /*
-Note: Incluí temas
+ Parâmetros adicionais.
 
-Verifica a lista de temas da inicializacao, adicionando-os se necessário
+Processa os parâmetros para a inicialização verificando se foram passados pela URL ou não.
 */
+if (!isset($mapext))
+{$mapext = $map->extent->minx." ".$map->extent->miny." ".$map->extent->maxx." ".$map->extent->maxy;}
+if (!isset ($map_reference_image)) //arquivo com a imagem de refer&ecirc;ncia
+{$map_reference_image = $map->reference->image;}
+if (!isset ($map_reference_extent)) //extens&atilde;o geogr&aacute;fica da imagem do mapa de refer&ecirc;ncia
+{$map_reference_extent = $map->reference->extent->minx." ".$map->reference->extent->miny." ".$map->reference->extent->maxx." ".$map->reference->extent->maxy;}
+if (!isset($interface))
+{$interface = $interfacePadrao;}
+
 incluiTemasIniciais();
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
-/*
-Note: Liga os temas definidos em $layers
-*/
-ligaTemas();
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
-/*
-Note: Aplica ao mapa os parâmetros passados pela URL
-*/
+
+if(isset($layers))
+{ligaTemas();}
+
 if (isset($map_reference_image))
 {$mapn->reference->set("image",$map_reference_image);}
 $extr = $mapn->reference->extent;
@@ -368,39 +341,23 @@ if ((isset($mapext)) && ($mapext != ""))
 	if (count($newext) == 4)
 	{$ext->setextent($newext[0], $newext[1], $newext[2], $newext[3]);}
 }
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
 /*
-Note: Configura os endereços corretos no mapfile.
+Configura os endereços corretos no mapfile.
 
 Altera as propriedades imagepath e imageurl corrigindo os caminhos padrão conforme o diretório criado para armazenar o mapa de trabalho.
 */
-
-$protocolo = explode("/",$_SERVER['SERVER_PROTOCOL']);
-
 $w = $mapn->web;
 $atual = $w->imagepath;
 $w->set("imagepath",$atual.$diretorios[2]."/");
 $atual = $w->imageurl;
 $w->set("imageurl",$atual.$diretorios[2]."/");
-$salvo = $mapn->save($diretorios[0]);
+$salvo = $mapn->save($tmpfname);
+
 $_SESSION["imgurl"] = strtolower($protocolo[0])."://".$_SERVER['HTTP_HOST'].$atual.$diretorios[2]."/";
 $_SESSION["tmpurl"] = strtolower($protocolo[0])."://".$_SERVER['HTTP_HOST'].$atual;
-/*
-Note: Faz o include de um programa se tiver sido passado pela URL (parâmetro &executa)
-
-Nessa altura do processo, a variável $tmpfname guarda o nome do mapfile que será utilizado pelo i3geo.
-
-Esse mapfile pode ser modificado pelo programa que será incluido.
-*/
-$tmpfname = $diretorios[0];
-$_SESSION["map_file"] = $diretorios[0];
+$_SESSION["map_file"] = $tmpfname;
 $_SESSION["mapext"] = $mapext;
+
 if (isset($executa))
 {
 	if (file_exists($executa))
@@ -408,112 +365,69 @@ if (isset($executa))
 	if (function_exists($executa))
 	{eval($executa."();");}
 }
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
-/*
-Note: Inclui uma camada de pontos utilizando os parâmetros passados pela URL
-*/
-if (isset($wkt))
+
+if(isset($wkt))
 {insereWKTUrl();}
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
-if (isset($pontos))
+
+if(isset($pontos))
 {inserePontosUrl();}
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
-/*
-Note: Inclui uma camada de linhas utilizando os parâmetros passados pela URL
-*/
-if (isset($linhas))
+
+if(isset($linhas))
 {insereLinhasUrl();}
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
-/*
-Note: Inclui uma camada de polígonos utilizando os parâmetros passados pela URL
-*/
-if (isset($poligonos))
+
+if(isset($poligonos))
 {inserePoligonosUrl();}
-/*
-Note: inclui um tema wms se for o caso
 
-Verifica os parâmetros WMS e adiciona uma camada se for o caso
-*/
 if(isset($url_wms))
 {incluiTemaWms();}
 
-$error = ms_GetErrorObj();
-while($error && $error->code != MS_NOERR)
-{
-	printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
-	$error = $error->next();
-}
-ms_ResetErrorList();
+adaptaLayers();
+if (file_exists($locaplic."/pacotes/geoip") && file_exists($locaplic."/pacotes/geoip/GeoLiteCity.dat"))
+{require_once($caminho."ms_registraip.php");}
+
+if ($interface != "mashup")
+{abreInterface();}
 
-//
-//se vc quiser parar o script aqui, para verificar erros, descomente a linha abaixo
-//
-//exit
 /*
-Note: Adapta os dados de cada layer.
+Function: adaptaLayers
+
+Adapta os dados de cada layer.
 
 Faz alterações em cada layer caso sejam necessárias.
 */
-$mapa = ms_newMapObj($tmpfname);
-$path = $mapa->shapepath;
-for($i=0;$i<($mapa->numlayers);++$i)
-{
-	$layer = $mapa->getLayer($i);
-	$ok = true;
-	if ($layer->connection == "")
+function adaptaLayers(){
+	global $tmpfname;
+	$mapa = ms_newMapObj($tmpfname);
+	$path = $mapa->shapepath;
+	for($i=0;$i<($mapa->numlayers);++$i)
 	{
-		$ok = false;
-		$d = $layer->data;
-		if((file_exists($d)) || (file_exists($d.".shp")))
-		{$ok = true;}
-		else
+		$layer = $mapa->getLayer($i);
+		$ok = true;
+		if ($layer->connection == "")
 		{
-			if((file_exists($path."/".$d)) || (file_exists($path."/".$d.".shp")))
+			$ok = false;
+			$d = $layer->data;
+			if((file_exists($d)) || (file_exists($d.".shp")))
 			{$ok = true;}
+			else
+			{
+				if((file_exists($path."/".$d)) || (file_exists($path."/".$d.".shp")))
+				{$ok = true;}
+			}
 		}
+		if ($ok == false)
+		{$layer->set("status",MS_OFF);}
 	}
-	if ($ok == false)
-	{$layer->set("status",MS_OFF);}
+	$mapa->save($tmpfname);
+	erroCriacao();
 }
-$mapa->save($tmpfname);
-/*
-Note: Obtem o IP do usuário e registra no banco de dados.
-
-Essa função pode ser comentada sem prejuízos ao funcionamento do I3Geo.
-Só opera corretamente se a rotina de registro tiver sido configurada corretamente.
-*/
-require_once($caminho."ms_registraip.php");
 /*
-Note: Gera a url para abrir o mapa
+Function: abreInterface
 
-interface = arquivo html que será aberto
+Redireciona para o HTML definido em $interface, abrindo o mapa
 */
-if ($interface != "mashup")
-{
+function abreInterface(){
+	global $interface,$caminho,$tempo;
 	if (count(explode(".php",$interface)) > 1)
 	{
 		if (file_exists($caminho."aplicmap/".$interface))
@@ -524,19 +438,16 @@ if ($interface != "mashup")
 	}
 	else
 	{
-		echo "<br><br><span style='color:gray;font-size: 10px;font-family: Verdana, Arial, Helvetica, sans-serif;' >Tempo de processamento no servidor em segundos: ".((microtime(1) - $tempo))."<span>";
-
 		if (file_exists($caminho."aplicmap/".$interface))
 		{$urln = $caminho."aplicmap/".$interface."?".session_id();}
 		else 
 		{$urln = $interface."?".session_id();}
-		//header("Location:".$urln);
-		echo "<meta http-equiv='refresh' content='0;url=$urln'>";
-	}
+		if(!headers_sent())
+		{header("Location:".$urln);}
+		else
+		{echo "<meta http-equiv='refresh' content='0;url=$urln'>";}
+	}	
 }
-//////////////////////////////////////////////////////////////////////////////
-//funções
-/////////////////////////////////////////////////////////////////////////////
 /*
 Function: ligaTemas
 
@@ -570,6 +481,7 @@ function ligaTemas()
 			}
 		}
 	}
+	erroCriacao();
 }
 /*
 Function: incluiTemasIniciais
@@ -631,6 +543,7 @@ function incluiTemasIniciais()
 		$of = &$mapn->outputformat;
 		$of->set("imagemode",MS_IMAGEMODE_RGB);
 	}
+	erroCriacao();
 }
 /*
 Function: criaIndex
@@ -766,6 +679,7 @@ function insereWKTUrl()
 	$cor = $estilo->color;
 	$cor->setRGB(255,0,0);
 	$salvo = $mapa->save($tmpfname);
+	erroCriacao();
 }
 /*
 Function: inserePontosUrl
@@ -837,6 +751,7 @@ function inserePontosUrl()
 	$cor = $estilo->color;
 	$cor->setRGB(255,0,0);
 	$salvo = $mapa->save($tmpfname);
+	erroCriacao();
 }
 /*
 Function: insereLinhasUrl
@@ -917,6 +832,7 @@ function insereLinhasUrl()
 	$cor = $estilo->color;
 	$cor->setRGB(255,0,0);
 	$salvo = $mapa->save($tmpfname);
+	erroCriacao();
 }
 /*
 Function: inserePoligonosUrl
@@ -1000,9 +916,12 @@ function inserePoligonosUrl()
 	$cor = $estilo->color;
 	$cor->setRGB(255,0,0);
 	$salvo = $mapa->save($tmpfname);
+	erroCriacao();
 }
 /*
 Function: incluiTemaWms
+
+Inclui no mapa um tema do tipo WMS
 */
 function incluiTemaWms()
 {
@@ -1015,5 +934,16 @@ function incluiTemaWms()
 	$m = new Mapa($tmpfname);
  	$m->adicionatemawms($layer_wms,$url_wms,$style_wms,$srs_wms,$image_wms,$locaplic,"",$versao_wms,$nome,"","","","","nao","text/plain","");
 	$salvo = $m->salva($tmpfname);
+	erroCriacao();
 }
+function erroCriacao(){
+	$error = ms_GetErrorObj();
+	while($error && $error->code != MS_NOERR)
+	{
+		printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
+		$error = $error->next();
+	}
+	ms_ResetErrorList();
+}
+
 ?>
\ No newline at end of file
diff --git a/principal.htm b/principal.htm
index 4005f20..15be680 100644
--- a/principal.htm
+++ b/principal.htm
@@ -358,7 +358,7 @@ Title: Página principal com a lista de aplicativos do i3geo
 
 Mostra a lista de aplicativos que são fornecidos junto com o i3geo.
 
-Exemplo:
+Link:
 
 http://localhost/i3geo/principal.htm
 
--
libgit2 0.21.2