I'm trying to use CGI::Application to make a simple web blog. Here's my code:

package Bloggie;
use base qw(CGI::Application);
use CGI::Carp qw/fatalsToBrowser/;
use CGI::Application::Plugin::TT;
use DB_File;

sub setup {
        my $self=shift;
        $self->start_mode('start');
        $self->mode_param('rm');
        $self->run_modes(
                'start' => 'start',
                'new post form' => 'new_post_form',
                'new post success' => 'new_post_success',
                'redirect' => 'redirect',
        )
}

## overrided so CGI.pm can be replaced by CGI::Simple
sub cgiapp_get_query {
        require CGI::Simple;
        CGI::Simple->new();
}
## set up preliminary stuff like opening the database.
sub cgiapp_init {
        my $self = shift;
        my $dataname = "data.dbm";
        my %database;

        dbmopen(%database, $dataname, 0666) or die "Can't open $datana
+me: $!\n";

        $self->{DATA}=\%database;
}

## displays posts
sub start {
        my $self = shift;
        my $templatename = "start.tt";
        my %database = %{$self->{DATA}};
        my $posts = $database{POSTS};

        my $vars = {
                                "posts" => $posts,
                                };
        return $self->tt_process($templatename, $vars);
}

## displays form to create new pots
sub new_post_form {
        my $self = shift;
        my $templatename = "new_post_form.tt";

        return $self->tt_process($templatename);
}

## displayed on success of a posts
## also writes to database the post that was submitted by new_post_for
+m
sub new_post_success {
        my $self = shift;
        my $templatename = "new_post_success.tt";
        my %database = %{$self->{DATA}};
        my @posts=();
        my $post;

        #get current posts from database, if they're there
        #if not, make an empty array.
        if(defined($database{POSTS})) {
                @posts = @{$database{POSTS}};
        }

        #get CGI object
        my $query = $self->query();

        #get parameters
        my $title = $self->param('title');
        my $content = $self->param('content');
        my $post = {
                                title => $title,
                                content => $content,
                                };

        my $vars = {
                                title => $title,
                                content => $content,
                                };
        push(@posts, $post);

        $database{POSTS}=\@posts;

        return $self->tt_process($templatename, $vars);
}
1;
[download]

The functions are called in the exact order that they are in. As in, start first, new_post_form next and so on. The thing is, I have my template in new_post_success show me the values of $title and $content and they turn out to be empty! As expected, the central page of the blog never changes (i.e. start() which lists all the current blog entries)! What am I doing wrong? How can I fix it? Also, please reply if you need to see the templates in order to find the solution and I will post them.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.