- <html>
- <form action="../perl/blog.pl" method="POST">
- NickName: <input type="text" name="nick"><br>
- Email: <input type="text" name="email"><br>
- Titulo: <input type="text" name="titulo"><br>
- Asunto: <input type="text" name="asunto"><br>
- Comments:<br>
- <textarea name="comentario" rows="5"
- cols="80"></textarea>
- <br>
- <input type="submit" value="Enviar al blog.">
- </form>
- </html>
El código del cgi:
Using perl Syntax Highlighting
# codigo creado por Legolas.
# 2006 Game.
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Blog::Simple;
print header;
print start_html("Bloging");
print end_html;
&insertar_blog;
sub insertar_blog()
{
if ( param() )
{
my $nickname = param('nick');
my $email = param('email');
my $titulo = param('titulo');
my $asunto = param('asunto');
my $contenido = param('contenido');
print $nickname;
$sbO = Blog::Simple->new('../blog/');
#$sbO->create_index();
$sbO->add($titulo,$nickname,$email,$asunto,$contenido);
$sbO->render_all('myxslfile.xsl','blog.html');
}
}
# 2006 Game.
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Blog::Simple;
print header;
print start_html("Bloging");
print end_html;
&insertar_blog;
sub insertar_blog()
{
if ( param() )
{
my $nickname = param('nick');
my $email = param('email');
my $titulo = param('titulo');
my $asunto = param('asunto');
my $contenido = param('contenido');
print $nickname;
$sbO = Blog::Simple->new('../blog/');
#$sbO->create_index();
$sbO->add($titulo,$nickname,$email,$asunto,$contenido);
$sbO->render_all('myxslfile.xsl','blog.html');
}
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
el error:
- Código: Seleccionar todo
Software error:
../blog/b_base/Thu_Oct_12_08_40_49_2006_Legolas/blog.xml at /usr/local/share/perl/5.8.7/Blog/Simple.pm line 115.
Puede ser tema de permisos le he dado 777 a toda el directorio.
Gracias de antemano.
