<?php

ini_set('display_errors', 0); // Desabilita a exibição de erros na tela
error_reporting(E_ALL);
ini_set('log_errors', 1);
ini_set('error_log', 'erro_log.txt');


function reduzirArk($tamanho, $pedacos) {

    $ark_sem_NAAN = "";

    for($i=1; $i < $tamanho;  $i++){ //Começa em 1 porque o primeiro pedaço é o NAAN

        $ark_sem_NAAN.= "/".$pedacos[$i];

    }//Fecha for

    return $ark_sem_NAAN; 

}

function limpar_ark($str){

    // Lista de caracteres a serem removidos
    $caracteresParaRemover = array('<', '>', ':', ';', '(', '&', ')', '$');

    // Substitui os caracteres da lista por uma string vazia
    $stringLimpa = str_replace($caracteresParaRemover, '', $str);
    
    return $stringLimpa;
    
}


function init() {

    if(isset($_GET["ark"])){

        $ark = $_GET["ark"];

    } else {

        $ark = "";

        return ['ok'=>false,'destino'=>'','msg'=>'Nenhum ARK foi passado...','qrark'=> false,'ark_full'=>'', 'tem_interrogacao'=>false];

    }

        
    //limpar o ARK
    $ark = limpar_ark($ark);


    //Eliminando espaços em branco no início e no final do $ark
    $ark = trim($ark);

    $qrark = (isset($_GET['qrark']) && $_GET['qrark'] == '1') ? true : false;

    // Verifique se $ark começa com uma barra. Pois, em vez de terem digitado ark:68745/eM485/B6, por exemplo, podem ter digitado ark:/68745/eM485/B6, o que seria passado para o parâmetro ark com uma barra no início
    if (strpos($ark, '/') === 0) {

        // Remova a barra no início
        $ark= substr($ark, 1);
    }
    
    $tem_interrogacao = false;

	// remove até 2 interrogações no final e marca flag. Ark para consultar metadados se coloca uma interrogacao no final. Duas interrogacoes verifica a persistencia, o tempo de existencia do ark, mas aqui na Editora Moan nao implementamos isso
	$ark = rtrim($ark);
	for ($k = 0; $k < 2; $k++) {
	    if (substr($ark, -1) === '?') {
		$tem_interrogacao = true;
		$ark = substr($ark, 0, -1);
	    }
	}

    $pedacos = explode("/", $ark);
    
    // ARK completo “sem o prefixo ark:” e sem barra inicial, fixo:
	$ark_full = implode("/", array_filter($pedacos, fn($p) => $p !== ''));

    $NAAN = $pedacos[0]; //NAAN é o número de registro da Editora Moan na Ark Alliance

    $ark_sem_NAAN = reduzirArk(count($pedacos), $pedacos);
    
    // sem NAAN
	$ark_base = implode("/", array_slice($pedacos, 1));

   
    if ($ark === '') {
        return ['ok'=>false,'destino'=>'','msg'=>'ARK vazio.','qrark'=>$qrark,'ark_full'=>'', 'tem_interrogacao'=>false];
    }


    //-------------------------- PREFIXOS ARK --------------------------
    $prefixo_editora = "eM";

    $prefixo_museu_da_matematica = "M";

    $buscar_ark = null;

    if (str_starts_with($ark_base, $prefixo_editora)) {
    // Prefixo eM
        require __DIR__ . '/LogicaPrefixos/processarPrefixo_eM.php';
        $buscar_ark = 'processarPrefixo_eM';
                    
    } elseif (str_starts_with($ark_base, $prefixo_museu_da_matematica)) {
    // Prefixo M
        require __DIR__ . '/LogicaPrefixos/processarPrefixo_M.php';
        $buscar_ark = 'processarPrefixo_M';
                    
    } else {
    // Nenhum dos dois
       
    }
    //-------------------------- FIM PREFIXOS ARK --------------------------

    if (!is_callable($buscar_ark)) {
        return ['ok'=>false,'destino'=>'','msg'=>'Prefixo ARK desconhecido.','qrark'=>$qrark,'ark_full'=>$ark_full, 'tem_interrogacao'=>$tem_interrogacao];
    }


    $index = 0;

    $tamanho_inicial = count($pedacos); //Na verdade o tamanho de $pedacos é fixo. Mais abaixo o valor do tamanho só muda porque precisamos reduzir até encontrar o ark registrado, mas o tamanho real de $pedacos continua o mesmo

    $identificador_ark = false;

    $resultado = ['ok'=>false,'destino'=>'','msg'=>'ARK não encontrado.Erro não identificado.','qrark'=>$qrark,'ark'=>$ark_full, 'tem_interrogacao'=>$tem_interrogacao];
    
    	
    do {

            $resto = "";

            $tamanho = count($pedacos) - $index;

            $inicio_do_resto = $tamanho;

            if($inicio_do_resto < $tamanho_inicial){

                for($i = $inicio_do_resto; $i < $tamanho_inicial;  $i++){

                    $resto.= "/".$pedacos[$i];

                }//Fecha for
            

            }//Fecha if


            $ark_sem_NAAN = reduzirArk($tamanho, $pedacos);

            if($ark_sem_NAAN == ""){
                break;
            }

            
            $resultado = $buscar_ark($NAAN, $ark_sem_NAAN, $tem_interrogacao, $resto);

            $identificador_ark = $resultado["ok"];

            $index++;

        } while ($tamanho > 1 && !$identificador_ark);


	$resultado['qrark'] = $qrark;
        $resultado['ark_full'] = $ark_full;   // <-- use este no JS/analytics
        $resultado['tem_interrogacao'] = $tem_interrogacao;


       return $resultado;

}//Fecha a funcao init

$conteudo = init();

$ok = $conteudo["ok"];

$destino = $conteudo["destino"];

$msg = $conteudo["msg"];

$arkFull = $conteudo['ark_full'] ?? '';

$qrark = $conteudo["qrark"];

$tem_interrogacao = $conteudo['tem_interrogacao'];

function slug_titulo($s) {
    $s = trim((string)$s);
    if ($s === '') return '';

    // remove acentos
    $s = iconv('UTF-8', 'ASCII//TRANSLIT//IGNORE', $s);
    $s = strtolower($s);

    // troca tudo que não é letra/número por hífen
    $s = preg_replace('/[^a-z0-9]+/', '-', $s);
    $s = trim($s, '-');

    // limita tamanho (pra não virar um trem sem freio)
    return substr($s, 0, 80);
}

$tituloSlug = slug_titulo($conteudo['titulo'] ?? '');


?>


<!doctype html>
<html lang="pt-br">
<head>
  <meta charset="utf-8">
  <meta name="viewport" content="width=device-width,initial-scale=1">
  <title><?= $ok ? "Redirecionando…" : "ARK não encontrado" ?></title>

  <style>
    html,body{margin:0;width:100%;height:100%;display:flex;align-items:center;justify-content:center;font-family:system-ui,sans-serif;background: #FF5F6D;  /* fallback for old browsers */
background: -webkit-linear-gradient(to right, #FFC371, #FF5F6D);  /* Chrome 10-25, Safari 5.1-6 */
background: linear-gradient(to right, #FFC371, #FF5F6D); /* W3C, IE 10+/ Edge, Firefox 16+, Chrome 26+, Opera 12+, Safari 7+ */
}
    .spinner{width:52px;height:52px;border:5px solid #ddd;border-top-color:#555;border-radius:50%;animation:spin 1s linear infinite}
    @keyframes spin{to{transform:rotate(360deg)}}
    .msg{max-width:420px;text-align:center;padding:24px}
  </style>
  

  <?php
  // Injeta o snippet do plausible (arquivo ignorado no git)
  @include __DIR__ . '/analytics/plausible.php';
  ?>

</head>
<body>
<div class="spinner" id="spinner" aria-label="Carregando"></div>

<div class="msg" id="msgBox" style="display:none">

    <h1 id="msgTitle">Redirecionando...</h1>
    <p id="msgText"></p>

</div>

<script>
  const ok = <?= json_encode($ok) ?>;
  const destino = <?= json_encode($destino) ?>;
  const msg = <?= json_encode($msg) ?>;

  const arkFull = <?= json_encode($arkFull) ?>;                 // "68745/eM8Rf/gJ.ht"
  const qrark = <?= json_encode($qrark) ?>;                     // boolean
  const consultaMetadados = <?= json_encode($tem_interrogacao) ?>; // boolean
  const tituloSlug = <?= json_encode($tituloSlug) ?>;           // "o-titulo-do-livro"

  const spinner = document.getElementById('spinner');
  const msgBox = document.getElementById('msgBox');
  const msgTitle = document.getElementById('msgTitle');
  const msgText = document.getElementById('msgText');

  function pathSafe(a) {
    return String(a)
      .split('/')
      .filter(Boolean)
      .map(encodeURIComponent)
      .join('/');
  }

  const go = () => location.replace(destino);

  if (ok) {
    const parts = [];
    if (qrark) parts.push('qrcodeLivro');
    if (consultaMetadados) parts.push('meta');
    if (tituloSlug) parts.push(tituloSlug);

    const suffix = parts.length ? '_' + parts.join('_') : '';
    const virtualUrl = location.origin + '/' + pathSafe(arkFull) + suffix;

    if (typeof plausible === "function") {
      plausible("pageview", {
        u: virtualUrl,
        callback: () => go()
      });
      setTimeout(go, 1500); // fallback
    } else {
      go();
    }
  } else {
    spinner.style.display = 'none';
    msgBox.style.display = 'block';
    msgTitle.textContent = 'Erro';
    msgText.textContent = msg;
  }
</script>

</body>
</html>