Construtor de web services do I3Geo.

";
	echo "Esse programa usa os arquivos mapfiles existentes em 
";
	echo "i3geo/temas para gerar web services OGC.
";
	echo "Para escolher um tema, utilize:
";
	echo "ogc.php?lista=temas - para listar os temas disponíveis
";
	echo "Para usar esse web service voce pode usar o parametro &tema=,
";
	echo "ou seja,http://[host]/i3geo/ogc.php?tema=[codigo do tema]
";
	echo "no lugar do codigo pode ser especificado um arquivo mapfile qualquer. ";
	echo "Nesse caso, deve ser digitado o caminho completo no servidor

";
	echo "Utilize o sistema de administracao do i3Geo para configurar quais os temas da pasta i3geo/temas podem ser utilizados.

";
	echo "Utilize o parametro restauramapa para indicar o ID de um mapa salvo no banco 
";
	echo "de dados de administracao para utiliza-lo como um WMS";
}
function ogc_imprimeListaDeTemas(){
	global $urli3geo,$perfil,$locaplic;
	$m = new Menutemas("",$perfil,$locaplic,$urli3geo);
	$menus = $m->pegaListaDeMenus();
	echo ' ';
	echo "Lista de temas por grupos e subgrupos e endereços de acesso aos dados por meio de Web Services WMS (os códigos dos temas estão em vermelho)

";
	$imprimir = "";
	foreach ($menus as $menu){
		$grupos = $m->pegaListaDeGrupos($menu["idmenu"],$listasistemas="nao",$listasgrupos="sim");
		foreach($grupos as $grupo){
			if(!empty($grupo["ogc"]) && strtolower($grupo["ogc"]) == "sim"){
				$imprimegrupo = "".texto2iso($grupo["nome"])."";
				foreach($grupo["subgrupos"] as $sgrupo){
					if(strtolower($sgrupo["ogc"]) == "sim"){
						$imprimesubgrupo = $sgrupo["nome"];
						$lts = $m->pegaListaDeTemas($grupo["id_n1"],$sgrupo["id_n2"],$menu["idmenu"]);
						foreach($lts as $t){
							if(strtolower($t["ogc"]) == "sim"){
								$imprimir .= texto2iso($imprimegrupo)."->".texto2iso($imprimesubgrupo)."
";
								$imprimir .= "      ";
								$imprimir .= "".$t["tid"]."";
								$imprimir .= " - ".texto2iso($t["nome"])." ";
								$imprimir .= " Getcapabilities";
								$imprimir .= " GetMap ";
								if($t["link"] != " ")
									$imprimir .= "  fonte";
								$imprimir .= "
";
							}
						}
					}
				}
			}
		}
	}
	echo $imprimir."";
}
function ogc_imprimeListaDeTemasWfs(){
	global $urli3geo,$perfil,$locaplic;
	$m = new Menutemas("",$perfil,$locaplic,$urli3geo);
	$menus = $m->pegaListaDeMenus();
	echo ' ';
	echo "Lista de temas por grupos e subgrupos e endereços de acesso aos dados por meio de Web Services WFS (os códigos dos temas estão em vermelho)

";
	$imprimir = "";
	foreach ($menus as $menu){
		$grupos = $m->pegaListaDeGrupos($menu["idmenu"],$listasistemas="nao",$listasgrupos="sim");
		foreach($grupos as $grupo){
			if(strtolower($grupo["ogc"]) == "sim"){
				$imprimegrupo = "".$grupo["nome"]."";
				foreach($grupo["subgrupos"] as $sgrupo){
					if(strtolower($sgrupo["ogc"]) == "sim"){
						$imprimesubgrupo = $sgrupo["nome"];
						$lts = $m->pegaListaDeTemas($grupo["id_n1"],$sgrupo["id_n2"],$menu["idmenu"]);
						foreach($lts as $t){
							if(strtolower($t["ogc"]) == "sim" && strtolower($t["down"]) !== "nao"){
								$imprimir .= $imprimegrupo."->".$imprimesubgrupo."
";
								$imprimir .= "      ";
								$imprimir .= "".$t["tid"]."";
								$imprimir .= " - ".$t["nome"]." ";
								$imprimir .= " Getcapabilities";
								$imprimir .= " Getfeature ";
								if($t["link"] != " ")
									$imprimir .= "  fonte";
								$imprimir .= "
";
							}
						}
					}
				}
			}
		}
	}
	echo $imprimir."";
}
function carregaCacheImagem($cachedir,$map,$tms){
	global $dir_tmp;
	if($cachedir == ""){
		$nome = $dir_tmp."/cache".$tms;
	}
	else{
		$nome = $cachedir.$tms;
	}
	if(file_exists($nome)){
		header('Content-Length: '.filesize($nome));
		header('Content-Type: image/png');
		header('Cache-Control: max-age=3600, must-revalidate');
		header('Expires: ' . gmdate('D, d M Y H:i:s', time()+24*60*60) . ' GMT');
		header('Last-Modified: '.gmdate('D, d M Y H:i:s', filemtime($nome)).' GMT', true, 200);
		$etag = md5_file($nome);
		header('Etag: '.$etag);
		readfile($nome);
		exit;
	}
}
function salvaCacheImagem($cachedir,$map,$tms){
	global $img,$dir_tmp,$cortePixels;
	if($cachedir == ""){
		$nome = $dir_tmp."/cache".$tms;
	}
	else{
		$nome = $cachedir.$tms;
	}
	@mkdir(dirname($nome),0777,true);
	chmod(dirname($nome),0777);
	$img->saveImage($nome);
	//
	//corta a imagem gerada para voltar ao tamanho normal
	//
	if($cortePixels > 0){
		$img = imagecreatefrompng($nome);
		$imgc = imagecreate(256,256);

		imagesavealpha($imgc, true);
		// Fill the image with transparent color
		$color = imagecolorallocatealpha($imgc,0x00,0x00,0x00,127);
		imagefill($imgc, 0, 0, $color);

		imagecopy($imgc, $img, 0 , 0 , $cortePixels , $cortePixels , 256, 256);
		imagepng($imgc,$nome);
	}
	chmod($nome,0777);
	header('Content-Length: '.filesize($nome));
	header('Content-Type: image/png');
	header('Cache-Control: max-age=3600, must-revalidate');
	header('Expires: ' . gmdate('D, d M Y H:i:s', time()+24*60*60) . ' GMT');
	header('Last-Modified: '.gmdate('D, d M Y H:i:s', filemtime($nome)).' GMT', true, 200);
	readfile($nome);
	exit;
}
function texto2iso($texto){
	if (function_exists("mb_convert_encoding")){
		if (mb_detect_encoding($texto,"UTF-8",true)){
			$texto = mb_convert_encoding($texto,"ISO-8859-1","UTF-8");
		}
	}
	return $texto;
}
function nomeRand($n=10)
{
	$nomes = "";
	$a = 'azertyuiopqsdfghjklmwxcvbnABCDEFGHIJKLMNOPQRSTUVWXYZ';
	$max = 51;
	for($i=0; $i < $n; ++$i)
	{
		$nomes .= $a{mt_rand(0, $max)};
	}
	return $nomes;
}
function renderNocacheTms(){
	global $img,$i3georendermode,$dir_tmp,$cortePixels;
	if($i3georendermode == 1 && $cortePixels == 0){
		ob_clean();
		header('Content-Type: image/png');
		$img->saveImage();
		exit;
	}
	if($i3georendermode == 1 && $cortePixels > 0){
		$i3georendermode = 0;
	}
	$nomer = $dir_tmp."/temp".nomeRand().".png";
	$img->saveImage($nomer);
	//
	//corta a imagem gerada para voltar ao tamanho normal
	//
	if($cortePixels > 0){
		$img = imagecreatefrompng($nomer);
		$imgc = imagecreate(256,256);
		imagecopy( $imgc, $img, 0 , 0 , $cortePixels , $cortePixels , 256, 256 );
		imagepng($imgc,$nomer);
	}
	if($i3georendermode == 0 || !isset($i3georendermode)){
		header('Content-Length: '.filesize($nomer));
		header('Content-Type: image/png');
		header('Cache-Control: max-age=3600, must-revalidate');
		header('Expires: ' . gmdate('D, d M Y H:i:s', time()+24*60*60) . ' GMT');
		header('Last-Modified: '.gmdate('D, d M Y H:i:s', filemtime($nomer)).' GMT', true, 200);
		readfile($nomer);
	}
	if($i3georendermode == 2){
		ob_clean();
		header('Cache-Control: public, max-age=22222222');
		header('Expires: ' . gmdate('D, d M Y H:i:s', time()+48*60*60) . ' GMT');
		header("X-Sendfile: $nomer");
		header("Content-type: image/png");
	}
}
function getfeatureinfoJson(){
	global $req, $oMap;
	$req->setParameter("info_format","application/vnd.ogc.gml");
	$oMap->owsdispatch($req);
	ms_iostripstdoutbuffercontentheaders();
	ob_clean();
	$r = ms_iogetstdoutbufferstring();
	//$r = converteenc($r);
	$nome = $oMap->getlayer(0)->name;
	$xml = simplexml_load_string($r);

	$json = json_encode($xml);
	$r = json_decode($json,TRUE);
	$propriedades = $r[$nome."_layer"];
	$propriedades = $propriedades[$nome."_feature"];
	$propriedades = converteenc(json_encode($propriedades));
	$propriedades = json_decode($propriedades);
	$n = array();
	$n[] = array (
			"type" => "FeatureCollection",
			"features" => array(
					array(
							"type"=>"Feature",
							"id" => "",
							"geometry" => array(),
							"properties" => array(
									$propriedades
							),
							"geometry_name" => ""
					)
			)
	);
	header("Content-type: application/json");
	$json = json_encode($n[0]);
	//verifica a substituicao de alias
	$itens = $oMap->getlayer(0)->getmetadata("ITENS"); // itens
	$itensdesc = $oMap->getlayer(0)->getmetadata("ITENSDESC"); // descrição dos itens
	$itens = explode(",",$itens);
	$itensdesc = explode(",",converteenc($itensdesc));
	$n = count($itens);
	for($i = 0; $i < $n; $i++){
		$json = str_ireplace($itens[$i],$itensdesc[$i],$json);
	}
	echo $json;
}
function processaOutputformatMapfile(){
	global $OUTPUTFORMAT, $oMap, $tema, $ows_geomtype;
	if(strtolower($OUTPUTFORMAT) == "shape-zip"){
		$l = $oMap->getlayer(0);
		$n = $l->name;
		$oMap->selectOutputFormat("shape-zip");
		$oMap->outputformat->setOption("STORAGE", "filesystem");
		$oMap->outputformat->setOption("FORM", "zip");
		$oMap->outputformat->setOption("FILENAME", $tema."_shapefile.zip");
		$l->setmetadata("wfs_getfeature_formatlist","shape-zip");
	}
	if(strtolower($OUTPUTFORMAT) == "csv"){
		$l = $oMap->getlayer(0);
		$n = $l->name."-csv";
		$oMap->selectOutputFormat("csv");
		$oMap->outputformat->setOption("STORAGE", "filesystem");
		$oMap->outputformat->setOption("FILENAME", $tema.$ows_geomtype.".csv");
		$oMap->outputformat->setOption("FORM", "simple");
		if(isset($ows_geomtype) && $ows_geomtype != ""){
			$oMap->outputformat->setOption("LCO:GEOMETRY", $ows_geomtype);
		}
		$l->setmetadata("wfs_getfeature_formatlist","csv");
	}
	if(strtolower($OUTPUTFORMAT) == "geojson" || strtolower($OUTPUTFORMAT) == "json"){
		$l = $oMap->getlayer(0);
		$oMap->selectOutputFormat("geojson");
		$l->setmetadata("wfs_getfeature_formatlist","geojson");
	}
}
function carregaCacheArquivo(){
	global $dir_tmp, $tema, $OUTPUTFORMAT, $ows_geomtype;
	if(strtolower($OUTPUTFORMAT) == "shape-zip"){
		$arq = $dir_tmp."/".$tema."_shapefile.zip";
		if(file_exists($arq)){
			header('Content-Disposition: attachment; filename='.$tema.'_shapefile.zip');
			readfile($arq);
			exit;
		}
	}
	if(strtolower($OUTPUTFORMAT) == "csv"){
		$arq = $dir_tmp."/".$tema.$ows_geomtype.".csv";
		if(file_exists($arq)){
			header('Content-Disposition: attachment; filename='.$tema.$ows_geomtype.'.csv');
			header("Content-type: text/csv");
			readfile($arq);
			exit;
		}
	}
	if(strtolower($OUTPUTFORMAT) == "geojson" || strtolower($OUTPUTFORMAT) == "json"){
		$arq = $dir_tmp."/".$tema.".json";
		if(file_exists($arq)){
			header("Content-type: application/json; subtype=geojson");
			readfile($arq);
			exit;
		}
	}
}
function restauraMapaSalvo(){
	global $restauramapa, $dir_tmp, $tema;
	$xbase = restauraMapaAdmin($restauramapa,$dir_tmp);
	$m = ms_newMapObj($xbase);
	$w = $m->web;
	$w->set("imagepath",dirname($w->imagepath)."/");
	$w->set("imageurl",dirname($w->imageurl)."/");
	//apaga algumas camadas
	$l = $m->getlayerbyname("rosadosventos");
	if($l != ""){
		$l->set("status",MS_DELETE);
	}
	$l = $m->getlayerbyname("copyright");
	if($l != ""){
		$l->set("status",MS_DELETE);
	}
	$m->save($xbase);
	//$fundo = $xbase;
	$tema = $xbase;
	$_GET["tema"] = $xbase;
	$_GET["layers"] = "";
	$l = $m->getlayer(0);
	$_GET["LAYERS"] = $l->name;
}
function converteenc($texto){
	if (!mb_detect_encoding($texto,"UTF-8",true)){
		$texto = mb_convert_encoding($texto,"UTF-8","ISO-8859-1");
	}
	return $texto;
}
?>