Problemas con tablón de noticias

[joff18]

Segui paso a paso el taller de tablon de noticias, cambie los permisos de modo correcto y tuve que ponerle -w despues de #!/usr/bin/perl para que corriera el archivo perl y me imprime "Mensaje guardado correctamente" pero ni me muestra el mensaje ni lo agrega en el external.html.

Te agradeceria cualquier ayuda estoy trabajando con un server fedora core 4

[monoswim]

Seguramente no encuentra bien el archivo external.html para agregarle la nueva línea...

Colocame la parte de código que usas para abrir el archivo external.html y escribirle el mensaje...

Saludos

[joff18]

Aqui va esteban y Gracias

#!/usr/bin/perl -w

use strict;

#cargamos la información de entrada en la variable hash "inputs"
my %inputs = &input_data();
my $fecha = &get_fecha();

print "Content-type: text/html\n\n";

open (DATABASE, "/var/www/html/scroll/external.html") || print "No se puede abrir el archivo";
flock(DATABASE,2);
print DATABASE "<p><b>$inputs{'autor'} dice</b> $inputs{'mensaje'}<br>$fecha</p>\n";
close (DATABASE) || print "Error al cerrar el archivo";

#Imprimimos el mensaje de todo OK
print "Mensaje guardado correctamente";