Script scroll

[monoswim]

Código:

#!/usr/bin/perl

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, ">>../../httpdocs/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";

# función que realiza la carga de información del formulario...
sub input_data {

   my (@pairs,$buffer,%input_data);

        if ($ENV{'REQUEST_METHOD'} eq 'GET') {

                @pairs = split(/&/, $ENV{'QUERY_STRING'});

        }elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {

                read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
                @pairs = split(/&/, $buffer);

        }else {

                &error('leer','datos');

        }

        foreach my $pair (@pairs) {
                my ($name, $value) = split(/=/, $pair);

                $name =~ tr/+/ /;
                $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                $name =~ tr/\0//d;

                $value =~ tr/+/ /;
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                $value =~ tr/\0//d;
                $value =~ s/\n//g;

                $input_data{$name} = $value;
        }
        return(%input_data);
}

sub get_fecha {
   my ($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isdst,@meses,@dias,$fecha);
   ($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isdst) = localtime (time);
   @meses = ('Enero','Febrero','Marzo','Abril','Mayo','Junio',  'Julio','Agosto','Septiembre','Octubre','Noviembre  ','Diciembre');
   @dias = ('Domingo','Lunes','Martes','Miercoles','Jueves','  Viernes','Sabado');

   $ano += 1900;
   $fecha = "$dias[$wdia], $mdia de $meses[$mon] de $ano";

return $fecha;
}

exit(1);

Checkea lo de la fecha y eliminando todo el external.html, debe aparecer en nuevo texto en el scrolling...