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.
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);