Desing with html and embedded Tol for forense.info
<!DOCTYPE
html
PUBLIC
"-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!-- /////////////////////////////////////////////////////////////////////////
// FILE : seed.htm
// AUTHOR : http://www.asolver.com
// PURPOSE : Desing with html and embedded Tol for forense.info
////////////////////////////////////////////////////////////////////////// -->
<html xmlns="http://www.w3.org/1999/xhtml" lang="es" xml:lang="es">
<head>
<meta name="viewport" content="width=device-width, initial-scale=1" />
<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1" />
<meta name="robots" content="index, follow" />
<meta name="revisit-after" content="15 days" />
<meta name="distribution" content="global" />
<meta name="author" content="Antonio Salmerón Cabañas; asolver.com" />
<meta name="generator" content="Macro-expansor Tol de contenidos para Html" />
<{
// CtrXxx Control variables inherit from make.tol
// xxxXxx Local variables created here, inside html code
// XXX.XXX Text macro variables created here, inside html code.
Set DEF.KEY =
[[
"análisis",
"antiforense",
"bibliografía",
"ciencia", "científica", "científico",
"computador", "computadores", "ordenador", "ordenadores",
"conocimiento",
"criminalística", "criminología",
"criptografía", "criptográfico",
"dato", "datos",
"delito", "delitos",
"derecho", "legal",
"digital", "digitales",
"documental", "documento", "documentos",
"esteganografía",
"evidencia", "evidencias",
"forense", "forenses",
"fotografía", "fotografías",
"hardware",
"informática", "informático",
"investigación", "investigaciones",
"judicial", "jurídica",
"método", "métodos", "metodología", "metodologías", "módulo", "módulos",
"móvil", "móviles",
"operativo",
"penal", "penales", "pericial", "periciales", "perito", "peritos",
"prueba", "pruebas",
"red", "redes",
"sistema", "sistemas",
"software",
"tecnología", "tecnologías",
"usuario", "usuarios",
"vídeo", "vídeos"
]];
Text artTxt = "Informático forense y perito informático";
Text catTxt = CtrPag+" informática forense";
Text endTxt = If(CtrArt, artTxt, catTxt); // Hace != descripciones/titulos ==
Text WIN.TIT = // Window title
{
Set lstPst = PdbFirstN(SelPdb, CtrTit, Real(Set objPst)
{ objPst->pstTit != "" });
Set lstTit = EvalSet(lstPst, Text(Set objPst)
{ objPst->pstTit+"; " });
SetSum(lstTit)+endTxt
};
Text MET.DES = // Page description
{
Set lstPst = PdbFirstN(SelPdb, CtrDes, Real(Set objPst)
{ objPst->pstTit != "" });
Set lstTit = EvalSet(lstPst, Text(Set objPst)
{ objPst->pstTit+", " });
Text sumTxt = ToLower(SetSum(lstTit)+endTxt+", programa de formación");
ReplaceTable(sumTxt, [[ [["área de ", ""]],
[["módulo: ", ""]] ]])
};
// Keywords, para extraer no se expanden macros por eficiencia, solo textos
Text MET.KEY =
{
Set txtSet = EvalSet(SelPdb, Text(Set pdbObj)
{ pdbObj->pstTit+" "+PhtExpText(pdbObj->pstTxt) });
Set2TxtKeyword(txtSet << [[ DEF.KEY ]], 4, FALSE, 50) // Order by ocurrences
};
// Posibles keywords del post 1º que aparecen en el glosario, solo en pruebas
Real gloTst = If(TRUE, 0,
{
Set pdbFst = SelPdb[1]; // First post
Set setFst = SetOfText(pdbFst->pstTit, pdbFst->pstTxt);
GloTest(Set2Keyword(setFst, 3, FALSE, 100))
});
Text TAG.KEY =
{
Text ini = "../categorias/mapadelweb.html";
Set tagSet = Tokenizer(MET.KEY, ",");
Set tagLnk = EvalSet(tagSet, Text(Text tagKey)
{
tagCmp = Compact(tagKey);
"\n<a href=" + Q(ini) + ">" + tagCmp + "</a>"
});
Replace(SetSum(tagLnk), "&", "&")
};
Text SEP.PIP = " | ";
Text TmeEmpty; // Only definitions, no html code
}>
<meta name="description" content=""<{MET.DES}>" />"
<meta name="keywords" content=""<{MET.KEY}>" />"
<link rel="icon" href="../favicon.ico" />
<link href="../css/common.css" rel="stylesheet" type="text/css" />
<title><{WIN.TIT}></title>
<script type="text/javascript" src="../src/common.js"></script>
</head>
<body>
<div id="wrapper">
<!-- header: ini ======================================================= -->
<div id="header-wrapper">
<div id="header">
<div id="logo">
<h1>
<a href="http://www.forense.info">Informática Forense y Pericial</a>
</h1>
<p>
Formación en el
<a href="http://ciip.es" class="ciip">Campus Internacional de Inteligencia y Pericia</a>
(<a href="http://ciip.es" class="ciip">CIIP</a>)
</p>
</div>
<!-- menu: ini ===================================================== -->
<div id="menu">
<ul>
<li <{If("Derecho e informática" <: (SelPdb[1])->pstCla,
"class="+Q("MnuAct"), "")}> >
<{PhtLinkTag("Derecho e informática", TRUE)}>
</li>
<li <{If("Informática forense" <: (SelPdb[1])->pstCla,
"class="+Q("MnuAct"), "")}> >
<{PhtLinkTag("Informática forense", TRUE)}>
</li>
<li <{If("Investigación básica" <: (SelPdb[1])->pstCla,
"class="+Q("MnuAct"), "")}> >
<{PhtLinkTag("Investigación básica", TRUE)}>
</li>
<li <{If("Investigación avanzada" <: (SelPdb[1])->pstCla,
"class="+Q("MnuAct"), "")}> >
<{PhtLinkTag("Investigación avanzada", TRUE)}>
</li>
<li <{If("Base documental" <: (SelPdb[1])->pstCla,
"class="+Q("MnuAct"), "")}> >
<{PhtLinkTag("Base documental", TRUE)}>
</li>
</ul>
</div>
<!-- menu: end ===================================================== -->
</div>
</div>
<!-- header: end ======================================================= -->
<div id="page">
<div id="page-bgtop">
<div id="page-bgbtm">
<!-- ini posts /////////////////////////////////////////////////// -->
<div id="content">
<{
Set allPst = EvalSet(SelPdb, Text(Set objPst)
{
// Full macro expansion
Text pstExp = PhtExpText(TmePst(objPst->pstTxt));
"<div class='post'>"+
{
Text lowLnk = If(TextBeginWith(objPst->pstTit,"Módulo: "),
{
Text modTit = Replace(objPst->pstTit,"Módulo: ","");
"Ver la presentación del módulo: "+PhtLinkTag(modTit, TRUE)
},
{
"<a href='../categorias/mapadelweb.html'>Ver índices</a>" +
SEP.PIP +
"Títulos propios del <a href='http://ciip.es'>CIIP</a> de
<a href='http://ciip.es/index.php?option=com_content&view=article&id=202&Itemid=120'>Máster</a>,
<a href='http://ciip.es/index.php?option=com_content&view=article&id=208&Itemid=126'>Especialista</a> y
<a href='http://ciip.es/index.php?option=com_content&view=article&id=214&Itemid=132'>Experto</a>
en Informática Forense y Pericial"
});
objPst->pstTh1+"
<p class='meta'>
<span class='date'>"+Dte2Spa(objPst->pstDte)+"</span>
<span class='posted'>Autor:
<a href='../categorias/contacto.html'>"+
objPst->pstAut+"</a></span>
</p>
<div style='clear: both;'> </div>
<div class='entry'>" + pstExp + "
<p class='links'>
<a href='#'>Inicio de página</a>" + SEP.PIP + lowLnk + "
</p>
</div>
"
}+
"</div>\n\n"
});
Text SetSum(allPst); // Escribe todos los posts
}>
<div style="clear: both;"> </div>
</div>
<!-- end posts /////////////////////////////////////////////////// -->
<!-- ini sidebar column ////////////////////////////////////////// -->
<div id="sidebar">
<ul>
<li>
<h2>Áreas de conocimiento</h2>
<ul>
<{ PhtLinkPstSet(CtrAre, FALSE); }>
</ul>
</li>
<li>
<h2>Módulos</h2>
<ul>
<{ PhtLinkPstSet(CtrMod, FALSE); }>
</ul>
</li>
<li>
<h2>Bibliografía</h2>
<ul>
<{ PhtLinkPstSet(CtrBib, FALSE); }>
</ul>
</li>
<li>
<h2>Índice de artículos</h2>
<ul>
<{ PhtLinkPstSet(SelPdb, CtrArt); }>
</ul>
</li>
<li>
<h2>Etiquetas</h2>
<p>
<{ "<small>" + TAG.KEY + "\n</small>"; }>
</p>
</li>
</ul>
</div>
<!-- end sidebar column ////////////////////////////////////////// -->
<div style="clear: both;"> </div>
</div>
</div>
</div>
<!-- end page ========================================================== -->
</div>
<div id="footer">
<p>
<a href="../categorias/contacto.html">Contacto</a>
<{ SEP.PIP // Contacto }>
<a href="../articulos/politicadeprivacidad.html">Política de privacidad</a>
<{ SEP.PIP // Privacidad }>
©
<a href="http://www.asolver.com">Antonio</a> <a href="http://www.blason.es">Salmerón</a> 2012-2015
<{ SEP.PIP // Autor }>
<a href="../categorias/mapadelweb.html">Índices de contenido</a>
<{ SEP.PIP // Indices }>
<a href="#"
>Δ</a>
<a href="http://validator.w3.org/check?uri=referer"
>Θ</a>
<a href="../categorias/completo.html"
>Σ</a>
<a href="../categorias/comxidir.html"
>Ξ</a>
</p>
</div>
<!-- end footer ========================================================== -->
</body>
</html>iForense construye las paginas del sitio sobre informática forense Forense.Info
2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio
