Download as
Browse Code »

Commit e77b50fc5989f8df82fa4956e8a5bc43388a031e

Authored by Edmar Moretti
1 parent e3a52934
Exists in master and in 7 other branches composer, doc-root, docker, guia, licenca, readme, unmaintened

remocão de arquivos desnecessarios

Showing 2 changed files with 61 additions and 127 deletions   Show diff stats
ferramentas/parametrossql/ogc.php
  Diff comments   View file @e77b50f
1 1 <?php
  2 +exit;
2 3 /**
3 4 Esse programa e uma adaptacao do codigo i3geo/ogc.php
4 5 E utilizado no mashup (i3geo/mashup) nas camadas que sao configuradas cm o plugin parametrossql
... ...
ogc.php
  Diff comments   View file @e77b50f
... ... @@ -79,7 +79,7 @@ ogc.php?tema=/var/www/i3geo/aplicmap/geral1debianv6.map&amp;layers=mundo
79 79 */
80 80 set_time_limit(0);
81 81 ini_set('memory_limit', '512M');
82   -
  82 +include_once (dirname(__FILE__)."/classesphp/sani_request.php");
83 83 if(isset($_GET["BBOX"])){
84 84 $_GET["BBOX"] = str_replace(" ",",",$_GET["BBOX"]);
85 85 }
... ... @@ -104,6 +104,10 @@ if(isset($_GET[&quot;TileMatrix&quot;])){
104 104 }
105 105 $_GET = array_merge($_GET,$_POST);
106 106  
  107 +
  108 +if($_GET["id_medida_variavel"] != ""){
  109 + $_GET["id_medida_variavel"] = filter_var ( $_GET["id_medida_variavel"], FILTER_SANITIZE_NUMBER_INT);
  110 +}
107 111 //
108 112 //caso nenhum parametros tenha sido enviado
109 113 //
... ... @@ -125,18 +129,20 @@ if(isset($_GET[&quot;outputformat&quot;]) &amp;&amp; $_GET[&quot;outputformat&quot;] != &quot;&quot;){
125 129 $cache = true;
126 130 //require_once(dirname(__FILE__)."/classesphp/carrega_ext.php");
127 131 include(dirname(__FILE__)."/ms_configura.php");
128   -include(dirname(__FILE__)."/classesphp/pega_variaveis.php");
129 132 include(dirname(__FILE__)."/classesphp/funcoes_gerais.php");
130 133 //
131 134 //ajusta o default
132 135 //
133   -if(!isset($ows_geomtype) || $ows_geomtype == ""){
  136 +if(!isset($_GET["ows_geomtype"]) || $_GET["ows_geomtype"] == ""){
134 137 $ows_geomtype = "none";
135 138 }
  139 +else{
  140 + $ows_geomtype = $_GET["ows_geomtype"];
  141 +}
136 142 //
137 143 //imprime na tela a ajuda
138 144 //
139   -if(isset($ajuda)){
  145 +if(isset($_GET["ajuda"])){
140 146 ogc_imprimeAjuda();
141 147 exit;
142 148 }
... ... @@ -149,44 +155,34 @@ $protocolo1 = strtolower($protocolo) . &#39;://&#39;.$_SERVER[&#39;SERVER_NAME&#39;];
149 155 $protocolo = strtolower($protocolo) . '://'.$_SERVER['SERVER_NAME'] .":". $_SERVER['SERVER_PORT'];
150 156 $urli3geo = str_replace("/ogc.php","",$protocolo.$_SERVER["PHP_SELF"]);
151 157 //
152   -//imprime na tela a lista de temas disponiveis
153   -//
154   -if(isset($lista) && $lista != ""){
155   - include_once(dirname(__FILE__)."/classesphp/classe_menutemas.php");
156   - if($lista == "temas"){
157   - ogc_imprimeListaDeTemas();
158   - }
159   - if($lista == "temaswfs"){
160   - ogc_imprimeListaDeTemasWfs();
161   - }
162   - exit;
163   -}
164   -//
165 158 //define um nome para o mapfile caso a origem seja o sistema de metadados estatisticos
166 159 //
167   -if(isset($id_medida_variavel) && $id_medida_variavel != ""){
168   - $tema = "ogcmetaestat".$id_medida_variavel;
  160 +if(isset($_GET["id_medida_variavel"]) && $_GET["id_medida_variavel"] != ""){
  161 + $tema = "ogcmetaestat".$_GET["id_medida_variavel"];
169 162 }
170 163 //
171 164 //compatibiliza variaveis
172 165 //
173   -if(!isset($tema) && isset($layers)){
174   - $tema = $layers;
  166 +if(!isset($tema) && isset($_GET["layers"])){
  167 + $tema = $_GET["layers"];
175 168 }
176   -if(!isset($tema) && isset($LAYERS)){
177   - $tema = $LAYERS;
  169 +if(!isset($tema) && isset($_GET["LAYERS"])){
  170 + $tema = $_GET["LAYERS"];
178 171 }
179   -if(!isset($tema) && isset($LAYER)){
180   - $tema = $LAYER;
  172 +if(!isset($tema) && isset($_GET["LAYER"])){
  173 + $tema = $_GET["LAYER"];
181 174 }
182   -if(!isset($tema) && isset($temas)){
183   - $tema = $temas;
  175 +if(!isset($tema) && isset($_GET["temas"])){
  176 + $tema = $_GET["temas"];
184 177 }
185   -if(isset($typeName)){
186   - $typename = $typeName;
  178 +if(isset($_GET["typeName"])){
  179 + $typename = $_GET["typeName"];
  180 + if(!isset($tema)){
  181 + $tema = $typename;
  182 + }
187 183 }
188   -if(!isset($tema) && isset($typename)){
189   - $tema = $typename;
  184 +if(!isset($tema) && isset($_GET["typename"])){
  185 + $tema = $_GET["typename"];
190 186 }
191 187 //
192 188 //garante que layers possam ser especificados de diferentes maneiras
... ... @@ -199,6 +195,7 @@ if(!file_exists($tema)){
199 195  
200 196 $layers = $tema;
201 197 //ajusta o OUTPUTFORMAT
  198 +$OUTPUTFORMAT = $_GET["OUTPUTFORMAT"];
202 199 if(strpos(strtolower($OUTPUTFORMAT),"kml") !== false){
203 200 $OUTPUTFORMAT = "kml";
204 201 }
... ... @@ -220,6 +217,7 @@ if(strtolower($OUTPUTFORMAT) == &quot;kmz&quot;){
220 217 header("Location:".$urln);
221 218 exit;
222 219 }
  220 +$ogrOutput = $_GET["ogrOutput"];
223 221 if(strtolower($OUTPUTFORMAT) == "kml" && $ogrOutput == false){
224 222 $urln = "pacotes/kmlmapserver/kmlservice.php?request=kmz&map=".$tema."&typename=".$tema;
225 223 header("Location:".$urln);
... ... @@ -239,6 +237,7 @@ if(strtolower($OUTPUTFORMAT) == &quot;shape-zip&quot; &amp;&amp; $ogrOutput == false){
239 237 //
240 238 //caso seja uma requisição WMS com format
241 239 //
  240 +$format = $_GET["format"];
242 241 if(strpos(strtolower($format),"kml") !== false){
243 242 $urln = "pacotes/kmlmapserver/kmlservice.php?request=kml&map=".$tema."&typename=".$tema;
244 243 header("Location:".$urln);
... ... @@ -269,7 +268,7 @@ if(strtolower($OUTPUTFORMAT) == &quot;geojson&quot;){
269 268 //
270 269 //recupera um mapa salvo no banco de administracao
271 270 //
272   -if(!empty($restauramapa)){
  271 +if(!empty($_GET["restauramapa"])){
273 272 restauraMapaSalvo();
274 273 }
275 274 //
... ... @@ -316,8 +315,8 @@ foreach ($_GET as $k=&gt;$v){
316 315 //
317 316 $req->setParameter("srsName",$req->getValueByName("SRS"));
318 317 $listaepsg = $req->getValueByName("SRS")." EPSG:4618 EPSG:4291 EPSG:4326 EPSG:22521 EPSG:22522 EPSG:22523 EPSG:22524 EPSG:22525 EPSG:29101 EPSG:29119 EPSG:29120 EPSG:29121 EPSG:29122 EPSG:29177 EPSG:29178 EPSG:29179 EPSG:29180 EPSG:29181 EPSG:29182 EPSG:29183 EPSG:29184 EPSG:29185";
319   -
320   -if(isset($version) && !isset($VERSION)){
  318 +$VERSION = $_GET["VERSION"];
  319 +if(isset($_GET["version"]) && !isset($_GET["VERSION"])){
321 320 $VERSION = $version;
322 321 }
323 322 if(!isset($VERSION) || $VERSION == ""){
... ... @@ -360,6 +359,7 @@ $arrayget[&quot;TileRow&quot;] = &quot;&quot;;
360 359 $nomeMapfileTmp = $dir_tmp."/ogc_".md5(implode("",$arrayget))."_".$agora.".map";
361 360 //essa variavel e usada para definir se a imagem final gerada devera ser cortada ou nao
362 361 $cortePixels = 0;
  362 +$ogcwsmap = $_GET["ogcwsmap"];
363 363 if(file_exists($nomeMapfileTmp) && $tipo == ""){
364 364 $oMap = ms_newMapobj($nomeMapfileTmp);
365 365 }
... ... @@ -405,7 +405,7 @@ else{
405 405 //$temai3geo = true indica que o layer ser&aacute; buscado na pasta i3geo/temas
406 406 $temai3geo = true;
407 407 //FIXME nao aceita gvp quando o caminho e completo
408   - if(file_exists($_GET["tema"]) && !isset($id_medida_variavel)){
  408 + if(file_exists($_GET["tema"]) && !isset($_GET["id_medida_variavel"])){
409 409 $nmap = ms_newMapobj($_GET["tema"]);
410 410 $temai3geo = false;
411 411 $nmap->setmetadata("ows_enable_request","*");
... ... @@ -413,7 +413,7 @@ else{
413 413 foreach ($listatema as $tx){
414 414 $extensao = ".map";
415 415 if($temai3geo == true && file_exists($locaplic."/temas/".$tx.".php")){
416   - $extensao = ".php";
  416 + //$extensao = ".php";
417 417 }
418 418 if($temai3geo == true && file_exists($locaplic."/temas/".$tx.".gvp")){
419 419 $extensao = ".gvp";
... ... @@ -421,23 +421,23 @@ else{
421 421 if($extensao == ".map"){
422 422 //cria o mapfile com base no sistema de metadados estatisticos
423 423 //verifica se o id_medida_variavel existe no mapfile e nao foi passado como um parametro
424   - if(!isset($id_medida_variavel) && $temai3geo == true){
  424 + if(!isset($_GET["id_medida_variavel"]) && $temai3geo == true){
425 425 $nmap = ms_newMapobj($locaplic."/temas/".$tx.".map");
426 426 $l = $nmap->getlayer(0);
427 427 $teste = $l->getmetadata("METAESTAT_ID_MEDIDA_VARIAVEL");
428 428 if($teste != "" && $l->data == ""){
429   - $id_medida_variavel = $teste;
  429 + $_GET["id_medida_variavel"] = $teste;
430 430 }
431 431 }
432   - if(isset($id_medida_variavel)){
  432 + if(isset($_GET["id_medida_variavel"])){
433 433 $temai3geo = false;
434 434 include("admin/php/classe_metaestat.php");
435 435 $m = new Metaestat();
436   - $m->nomecache = "ogcmetaestat".$id_medida_variavel;
437   - $mapfileMetaestat = $m->mapfileMedidaVariavel($id_medida_variavel,"",1,"","","","","","",true);
  436 + $m->nomecache = "ogcmetaestat".$_GET["id_medida_variavel"];
  437 + $mapfileMetaestat = $m->mapfileMedidaVariavel($_GET["id_medida_variavel"],"",1,"","","","","","",true);
438 438 $nmap = ms_newMapobj($mapfileMetaestat["mapfile"]);
439 439 $nmap->setmetadata("ows_enable_request","*");
440   - $req->setParameter("LAYERS", "ogcmetaestat".$id_medida_variavel);
  440 + $req->setParameter("LAYERS", "ogcmetaestat".$_GET["id_medida_variavel"]);
441 441 }
442 442 if($temai3geo == true){
443 443 $nmap = ms_newMapobj($locaplic."/temas/".$tx.".map");
... ... @@ -572,10 +572,7 @@ else{
572 572 }
573 573 }
574 574 }
575   - if($extensao == ".php"){
576   - include_once($locaplic."/temas/".$tx.".php");
577   - eval($tx."(\$oMap);");
578   - }
  575 +
579 576 if($extensao == ".gvp"){
580 577 include_once($locaplic."/pacotes/gvsig/gvsig2mapfile/class.gvsig2mapfile.php");
581 578 $gm = new gvsig2mapfile($locaplic."/temas/".$tx.".gvp");
... ... @@ -633,7 +630,7 @@ else{
633 630 $conta = 0;
634 631 $int = explode(",",$intervalo);
635 632 $codigosTema = array();
636   - if(empty($perfil)){
  633 + if(empty($_GET["perfil"])){
637 634 $perfil = "";
638 635 }
639 636 include("classesphp/classe_menutemas.php");
... ... @@ -721,8 +718,8 @@ else{
721 718 echo "Erro no arquivo ".$locaplic."/temas/".$codigoTema.".map <br>";
722 719 $error = ms_GetErrorObj();
723 720 while($error && $error->code != MS_NOERR){
724   - printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
725   - $error = $error->next();
  721 + //printf("<br>Error in %s: %s<br>\n", $error->routine, $error->message);
  722 + //$error = $error->next();
726 723 }
727 724 }
728 725 }
... ... @@ -730,7 +727,8 @@ else{
730 727 }
731 728 //
732 729 //a imagem do mapa recebera a legenda
733   - //
  730 + //
  731 + $legenda = $_GET["legenda"];
734 732 if((isset($legenda)) && (strtolower($legenda) == "sim")){
735 733 $leg = $oMap->legend;
736 734 $leg->set("status",MS_EMBED);
... ... @@ -743,6 +741,7 @@ else{
743 741 //caso seja download ou json ou csv
744 742 //
745 743 processaOutputformatMapfile();
  744 + $nomeMapfileTmp = str_replace(".map","").".map";
746 745 $oMap->save($nomeMapfileTmp);
747 746  
748 747 validaAcessoTemas($nomeMapfileTmp,true);
... ... @@ -881,8 +880,6 @@ if(isset($_GET[&quot;Z&quot;]) &amp;&amp; isset($_GET[&quot;X&quot;])){
881 880 $poPoint2->project($projInObj, $projOutObj);
882 881 $oMap->setsize(256,256);
883 882 $oMap->setExtent($poPoint1->x,$poPoint1->y,$poPoint2->x,$poPoint2->y);
884   -
885   -
886 883  
887 884 $oMap->setProjection("proj=merc,a=6378137,b=6378137,lat_ts=0.0,lon_0=0.0,x_0=0.0,y_0=0,k=1.0,units=m");
888 885  
... ... @@ -1124,84 +1121,16 @@ function ogc_imprimeAjuda(){
1124 1121 echo "de dados de administracao para utiliza-lo como um WMS";
1125 1122 }
1126 1123 function ogc_imprimeListaDeTemas(){
1127   - global $urli3geo,$perfil,$locaplic;
1128   - $m = new Menutemas("",$perfil,$locaplic,$urli3geo);
1129   - $menus = $m->pegaListaDeMenus();
1130   - echo '<html><head><title>WMS</title><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1"><meta name="description" content="OGC"><meta name="keywords" content="WMS OGC mapa sig gis webmapping geo geoprocessamento interativo meio ambiente MMA cartografia geografia"> <meta name="robots" content="index,follow">';
1131   - echo "<body><b>Lista de temas por grupos e subgrupos e endere&ccedil;os de acesso aos dados por meio de Web Services WMS (os c&oacute;digos dos temas est&atilde;o em vermelho)</b><br><br>";
1132   - $imprimir = "";
1133   - foreach ($menus as $menu){
1134   - $grupos = $m->pegaListaDeGrupos($menu["idmenu"],$listasistemas="nao",$listasgrupos="sim");
1135   - foreach($grupos as $grupo){
1136   - if(!empty($grupo["ogc"]) && strtolower($grupo["ogc"]) == "sim"){
1137   - $imprimegrupo = "<i>".texto2iso($grupo["nome"])."</i>";
1138   - foreach($grupo["subgrupos"] as $sgrupo){
1139   - if(strtolower($sgrupo["ogc"]) == "sim"){
1140   - $imprimesubgrupo = $sgrupo["nome"];
1141   - $lts = $m->pegaListaDeTemas($grupo["id_n1"],$sgrupo["id_n2"],$menu["idmenu"]);
1142   - foreach($lts as $t){
1143   - if(strtolower($t["ogc"]) == "sim"){
1144   - $imprimir .= texto2iso($imprimegrupo)."->".texto2iso($imprimesubgrupo)."<br>";
1145   - $imprimir .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
1146   - $imprimir .= "<span style=color:red >".$t["tid"]."</span>";
1147   - $imprimir .= "&nbsp;-&nbsp;".texto2iso($t["nome"])."&nbsp";
1148   - $imprimir .= "&nbsp;<a href='".$urli3geo."/ogc.php?tema=".$t["tid"]."&service=wms&request=getcapabilities' >Getcapabilities</a>";
1149   - $imprimir .= "&nbsp;<a href='".$urli3geo."/ogc.php?tema=".$t["tid"]."&SRS=EPSG:4618&WIDTH=500&HEIGHT=500&BBOX=-76.5125927,-39.3925675209,-29.5851853,9.49014852081&FORMAT=image/png&service=wms&version=1.1.0&request=getmap&layers=".$t["tid"]."' >GetMap </a>";
1150   - if($t["link"] != " ")
1151   - $imprimir .= "&nbsp;&nbsp;<a href='".$t["link"]."' >fonte</a>";
1152   - $imprimir .= "<br>";
1153   - }
1154   - }
1155   - }
1156   - }
1157   - }
1158   - }
1159   - }
1160   - echo $imprimir."</body></html>";
1161 1124 }
1162 1125 function ogc_imprimeListaDeTemasWfs(){
1163   - global $urli3geo,$perfil,$locaplic;
1164   - $m = new Menutemas("",$perfil,$locaplic,$urli3geo);
1165   - $menus = $m->pegaListaDeMenus();
1166   - echo '<html><head><title>WFS</title><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1"><meta name="description" content="OGC"><meta name="keywords" content="WMS OGC mapa sig gis webmapping geo geoprocessamento interativo meio ambiente MMA cartografia geografia"> <meta name="robots" content="index,follow">';
1167   - echo "<body><b>Lista de temas por grupos e subgrupos e endere&ccedil;os de acesso aos dados por meio de Web Services WFS (os c&oacute;digos dos temas est&atilde;o em vermelho)</b><br><br>";
1168   - $imprimir = "";
1169   - foreach ($menus as $menu){
1170   - $grupos = $m->pegaListaDeGrupos($menu["idmenu"],$listasistemas="nao",$listasgrupos="sim");
1171   - foreach($grupos as $grupo){
1172   - if(strtolower($grupo["ogc"]) == "sim"){
1173   - $imprimegrupo = "<i>".$grupo["nome"]."</i>";
1174   - foreach($grupo["subgrupos"] as $sgrupo){
1175   - if(strtolower($sgrupo["ogc"]) == "sim"){
1176   - $imprimesubgrupo = $sgrupo["nome"];
1177   - $lts = $m->pegaListaDeTemas($grupo["id_n1"],$sgrupo["id_n2"],$menu["idmenu"]);
1178   - foreach($lts as $t){
1179   - if(strtolower($t["ogc"]) == "sim" && strtolower($t["down"]) !== "nao"){
1180   - $imprimir .= $imprimegrupo."->".$imprimesubgrupo."<br>";
1181   - $imprimir .= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
1182   - $imprimir .= "<span style=color:red >".$t["tid"]."</span>";
1183   - $imprimir .= "&nbsp;-&nbsp;".$t["nome"]."&nbsp";
1184   - $imprimir .= "&nbsp;<a href='".$urli3geo."/ogc.php?tema=".$t["tid"]."&service=wfs&request=getcapabilities' >Getcapabilities</a>";
1185   - $imprimir .= "&nbsp;<a href='".$urli3geo."/ogc.php?tema=".$t["tid"]."&SRS=EPSG:4618&service=wfs&version=1.1.0&request=getfeature&typename=".$t["tid"]."' >Getfeature </a>";
1186   - if($t["link"] != " ")
1187   - $imprimir .= "&nbsp;&nbsp;<a href='".$t["link"]."' >fonte</a>";
1188   - $imprimir .= "<br>";
1189   - }
1190   - }
1191   - }
1192   - }
1193   - }
1194   - }
1195   - }
1196   - echo $imprimir."</body></html>";
1197 1126 }
1198 1127 function carregaCacheImagem($cachedir,$map,$tms){
1199 1128 global $dir_tmp;
1200 1129 if($cachedir == ""){
1201   - $nome = $dir_tmp."/cache".$tms;
  1130 + $nome = $dir_tmp."/cache".$tms.".png";
1202 1131 }
1203 1132 else{
1204   - $nome = $cachedir.$tms;
  1133 + $nome = $cachedir.$tms.".png";
1205 1134 }
1206 1135 if(file_exists($nome)){
1207 1136 header('Content-Length: '.filesize($nome));
... ... @@ -1217,6 +1146,7 @@ function carregaCacheImagem($cachedir,$map,$tms){
1217 1146 }
1218 1147 function salvaCacheImagem($cachedir,$map,$tms){
1219 1148 global $img,$dir_tmp,$cortePixels;
  1149 + //por seguranca
1220 1150 if($cachedir == ""){
1221 1151 $nome = $dir_tmp."/cache".$tms;
1222 1152 }
... ... @@ -1225,7 +1155,8 @@ function salvaCacheImagem($cachedir,$map,$tms){
1225 1155 }
1226 1156 @mkdir(dirname($nome),0774,true);
1227 1157 chmod(dirname($nome),0774);
1228   - $img->saveImage($nome);
  1158 +
  1159 + $img->saveImage($nome.".png");
1229 1160 //
1230 1161 //corta a imagem gerada para voltar ao tamanho normal
1231 1162 //
... ... @@ -1241,7 +1172,7 @@ function salvaCacheImagem($cachedir,$map,$tms){
1241 1172 imagecopy($imgc, $img, 0 , 0 , $cortePixels , $cortePixels , 256, 256);
1242 1173 imagepng($imgc,$nome);
1243 1174 }
1244   - chmod($nome,0777);
  1175 + chmod($nome,0774);
1245 1176 header('Content-Length: '.filesize($nome));
1246 1177 header('Content-Type: image/png');
1247 1178 header('Cache-Control: max-age=3600, must-revalidate');
... ... @@ -1496,10 +1427,10 @@ function exportaCsv(){
1496 1427  
1497 1428 }
1498 1429 $contents = implode("\n",$linhas);
1499   - file_put_contents($arq,$contents);
  1430 + file_put_contents($arq.".csv",$contents);
1500 1431 //envia para download
1501 1432 ob_clean();
1502   - header('Content-Disposition: attachment; filename='.$fileName);
  1433 + header('Content-Disposition: attachment; filename='.$fileName.".csv");
1503 1434 header("Content-type: text/csv");
1504 1435 echo $contents;
1505 1436 exit;
... ... @@ -1545,7 +1476,7 @@ function exportaGeojson(){
1545 1476 );
1546 1477 $contents = json_encode($n[0]);
1547 1478 $contents = str_replace('\"','',$contents);
1548   - file_put_contents($arq,$contents);
  1479 + file_put_contents($arq.".json",$contents);
1549 1480 ob_clean();
1550 1481 header("Content-type: application/json; subtype=geojson");
1551 1482 echo $contents;
... ... @@ -1560,6 +1491,7 @@ function converteenc($texto){
1560 1491 }
1561 1492 function processaPluginI3geo(){
1562 1493 global $oMap, $locaplic;
  1494 + return;
1563 1495 $numlayers = $oMap->numlayers;
1564 1496 for ($i=0;$i < $numlayers;$i++){
1565 1497 $l = $oMap->getlayer($i);
... ... @@ -1620,6 +1552,7 @@ function processaPluginI3geo(){
1620 1552 }
1621 1553 //utilizada para obter os dados default quando se utiliza o plugin parametrossql
1622 1554 function execProg($prog){
  1555 + return;
1623 1556 include($prog);
1624 1557 //$retorno variavel deve ser retornada pelo programa $prog
1625 1558 //veja como exemplo i3geo/aplicmap/daods/listaano.php
... ...