Hola que tal!!!
Estoy haciendo unas modificaciones a un sistema en Perl, pero soy un novato en el lenguaje (soy phpero) y veo que el header de las páginas lo carga como un template, dejo el codigo:
Código:
if (($style ne undef && open(TMPL, "$fn/$style/header.shtml")) || open(TMPL, "$fn/header.shtml")) {
my @hdr = <TMPL>;
close TMPL;
$template = join('', @hdr) . $template;
}
En eso no hay problema, pero en el template hay algunas "variables" o texto para reemplazar:
Código:
<tr>
<td align=left><span class=sm><font color="#AAAAAA"><b>(%LOGGEDAS%)</b></font></span></td>
<td align=right class=sm>
(%HOMELINK%) (%DASHBOARDLINK%) <a href="(%ENV_SCRIPT_NAME%)?cmd=(%HELPDESKCMD%)&sid=(%INPUT_sid%)&style=(%INPUT_style%)">[%Tickets%]</a> | <a href="(%ENV_SCRIPT_NAME%)?cmd=newticket&sid=(%INPUT_sid%)&style=(%INPUT_style%)">[%Contact us%]</a> | (%LOGINLOGOUT%)
</td>
</tr>
El dilema que tengo, es que no hallo en donde se setean esas "variables" ni donde se hace el replace, si conociera mas de la sintaxis de Perl creo que no habría problema pero como dije, soy novato en Perl xD
Hay alguna función en Perl para hacer el replace con la sintaxis del template que puse aqui arriba???
Saludos y gracias de antemano.