# 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');
        }
}