# Funcion: Este script de filtro convierte archivos de texto
#
en un documento HTML pero mantiene la composicion del # texto.
# Copyright (c) 2001 by Mohammed J. Kabir #
Licencia: GPL
# El archivo del mensaje copyright se almacena siempre en # el
directorio raiz de documentos del servidor # y se llama
copyright.html.
my $copyright file = $ENV{DOCUMENT ROOT}
"/copyright.html"; #
Obtiene la ruta del documento solicitado my $path translated = $ENV{PATH_
TRANSLATED};
# Otras variables necesarias para almacenar datos
my $line;
my @text;
my @html;
# Almacena la informacion de la ruta y el nombre del archivo del #
documento solicitado en un array @filename = split(/\//,$path translated);
# Como se utilizan etiquetas HTML para mostrar el archivo texto,
# vamos a imprimir la cabecera de contenido text/html. print "Content-
type: text/html\n\n";
# Lee el documento solicitado y almacena los dates # en la
variable array @text @text = &readFile($path translated);
# Ahora imprime las siguientes etiquetas de documento HTML. #
Estas etiquetas se enviaran antes que el contenido del #
verdadero documento
print <<HEAD;
<HTML>
<HEAD> <TITLE>$filename[-l] </TITLE> </HEAD> <BODY
BGCOLOR="white">
<BLOCKQUOTE>
<PRE>
HEAD
# Ahora imprime cada linea almacenada en el array @text # (es
decir, el contenido del documento solicitado)
foreach $line (@text) { print $line; }
# Ahora lee el archivo copyright y almacena el contenido
de
176
Zona Clientes
Entrar
