Bueno Gracias a todos por querer ayudarme, la verdad es que he estado muy atento a sus respuestas.
Bueno buscando leyendo y quemando pestañas he encontrado varias cositas, que con un poco de perseverancia y saber dónde van un poco las cosas he logrado poner noticias.
Bueno tengo dos páginas, una index.html (es la de ingreso de noticias) y una de noticias.html (muestra las noticias ingresadas).
El código de la página index.html es el mismo que mostré arriba y la otra página noticias.html la deje en blanco jejeje ahé se irían guardando las noticias, bueno tan en blanco no la deje porque puse un link para volver a la página index.html
,
ah, el código del script es el siguiente:
Using perl Syntax Highlighting
#!C:\perl\bin\perl.exe -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
, ">>../../noticias.html") || print "No se puede abrir el archivo";
flock(DATABASE
,2
);
print DATABASE
"<p><b>$inputs{'autor'} :</b><br> $inputs{'mensaje'}<br><i>$fecha</i></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
);Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Bueno, ahí está jeje, gracias a los manuales que por ahí e ido viendo he podido recopilar estas cosillas; lo último es para que pegue la fecha al final de la noticia.
Bueno, ahora a tratar de averiguar cómo logro editar alguna noticia y eliminar por supuesto...
