HTTP-headers

Descripción

Con la variable HTTP-headers que tenemos que definir en nuestro script Perl:

use Nes;
my $nes = Nes::Singleton->new('file.nhtml');
my $nes_tags = {};

$nes_tags->{'HTTP-headers'} = "Content-type: text/html\n\n";

$nes->out(%$nes_tags);

Podemos controlar las Cabeceras de la salida HTML.

Cuando Nes comprueba que HTTP-headers tiene valor, imprime su contenido y no las cabeceras por defecto. Hay que incluirla inmediatamente despuƩs del Tag NES:

{: NES 1.0 ('file.pl') :}
{: $ HTTP-headers :}

Si define HTTP-headers y luego no se incluye con {: $ HTTP-headers :} obtendremos un error.

Ejemplo

file.nhtml:

{: NES 1.0 ('file.pl') :}
{: $ HTTP-headers :}
<html>
  <head>
   ...
   

file.pl:
   
use Nes;
my = Nes::Singleton:Singleton->new('file.nhtml');
my $nes_tags = {};

$nes_tags->{'HTTP-headers'}  = "Cache-control: max-age=0\n";
$nes_tags->{'HTTP-headers'} .= "Cache-control: no-cache\n";
$nes_tags->{'HTTP-headers'} .= "Content-type: text/html\n\n";

$nes->out(%$nes_tags);