<?php
function spip2latex_source_pdf_avec_cache($texte) {
	$filename = "document.pdf";

	$latexdir = sous_repertoire(_DIR_CACHE, 'latex');
	$tmpdir = sous_repertoire($latexdir, $tag);
	$tmpdir = sprintf("%s/%s", getcwd(), $tmpdir);

	$id = sha1($texte);
	$texfile = sprintf("%s%s.tex", $tmpdir, $id);
	$pdffile = sprintf("%s%s.pdf", $tmpdir, $id);
	$logfile = sprintf("%s%s.log", $tmpdir, $id);
	$idxfile = sprintf("%s%s.idx", $tmpdir, $id);
	$auxfile = sprintf("%s%s.aux", $tmpdir, $id);
	$outfile = sprintf("%s%s.out", $tmpdir, $id);
	
	ecrire_fichier($texfile,
		# bug/feature de fwrite... il faut utf8_encode dans la fonction pour qu'il comprenne qu'on souhaite de l'utif8 !
		unicode_to_utf_8(utf_8_to_unicode($texte))
	);
	
	$cmd = sprintf("pdflatex -interaction=batchmode ".
			 "-output-directory=%s %s",
			 $tmpdir, $texfile);
	exec($cmd, $output, $retval);
	
	if ($retval) {
		// gerer l'erreur (avec erreur_squelette ?)
		var_dump(file_get_contents($logfile));
	} else {
		$filesize = filesize($pdffile);
		$etag = sprintf("\"%s\"", md5($pdffile));

		#supprimer_fichier($pdffile); // no no no
		supprimer_fichier($idxfile);
		supprimer_fichier($auxfile);
		supprimer_fichier($logfile);
		supprimer_fichier($outfile);
		supprimer_fichier($texfile);
	}
	
	$headers = array(
		"Content-Type: application/pdf",
		"Content-Disposition: attachment; filename=\"$filename\"",
		"Content-Transfer-Encoding: binary",
		"Content-Length: ".$filesize,
		"Etag: ".$etag
	);
	
	foreach ($headers as $n=>$header) {
		$headers[$n] = "<?php header(\"$header\"); ?>";
	}
	
	return implode('', $headers)."<?php readfile(\"$pdffile\"); ?>";
}
?>