#!/usr/bin/perl
# librov - Script que crea dinámicamente el libro de visitas, a partir de
# la lista pseudo-HTML de las personas que la conforman. En realidad
# es un CGI, que acepta como parámetro "lang" el lenguaje en el que
# debe presentar la página. Los valores posibles son "en", "es"
$DIRBASE = "/home/zoso/sopa";
# $DIRBASE = "/home/a2092";
require $DIRBASE . "/cgi-bin/cgi-util.pl";
%in = &get_query;
$in{lang} = "es" if (! $in{lang});
$URL = "http://sopa.dis.ulpgc.es/zoso/cgi-bin/";
# $path = "/home/a2092/cgi-docs/";
$path = "/home/zoso/sopa/cgi-docs/";
$nomprog = "librov.pl";
$libro = "visitas";
# Mensajes que dependen del idioma con el que se llame al CGI
$titulo{es} = "Libro de visitas de Esteban Manchado 'ZoSo'";
$titulo{en} = "Esteban Manchado 'ZoSo' Guestbook";
$h1{es} = "Libro de visitas";
$h1{en} = "Guestbook";
$generado{es} = "Generado por";
$generado{en} = "Generated by";
$tit_error{es} = "Error abriendo el fichero de visitas";
$tit_error{en} = "Error opening guestbook file";
$msg_error{es} = "No se ha podido abrir el fichero de visitas.";
$msg_error{en} = "The guestbook file couldn't be opened.";
$contacto{es} = "Por favor, intente ponerse en contacto con
a2092\@correo.dis.ulpgc.es para intentar solucionar el problema.";
$contacto{en} = "Please try to contact a2092\@correo.dis.ulpgc.es to
try to solve thr problem.";
$mensaje{es} = "Se le notifican las actualizaciones.
\n";
$mensaje{en} = "Updates are notified.
\n";
# Imprimimos la cabecera
print "Content-type: text/html\n\n";
print "\n\n";
print "$titulo{$in{lang}}\n\n";
print "\n";
if (!open(FICHERO, "$path$libro")) {
print "$tit_error{$in{lang}}
";
print "$msg_error{$in{lang}}
";
print "$contacto{$in{lang}}
\n";
print "\n
\n";
print "$generado{$in{lang}} $nomprog\n";
print "
\n";
print "Esteban Manchado 'ZoSo' - a2092\@correo.dis.ulpgc.es\n";
print "\n\n";
exit;
} else {
print "$h1{$in{lang}}
\n\n";
print "
\n\n";
print "\n";
while () {
if ($_ eq $mensaje{es}) {
print $mensaje{$in{lang}};
} else {
print ;
}
}
print "
\n";
}
print "\n
\n";
print "$generado{$in{lang}} $nomprog\n";
print "
\n";
print "Esteban Manchado 'ZoSo' - a2092\@correo.dis.ulpgc.es\n";
print " \n