Tengo un cgi que desde la linea de comandos se ejecuta perfectamente, pero cuando lo llamo desde un web form pasandole los parametros me devuelve un error. El código del web form:
- <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');
}
}
el error:
Código:
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.
2006-10-12 02:00 @125
