view release on metacpan or  search on metacpan

lib/Chronicle/Plugin/StaticPages.pm  view on Meta::CPAN

        #
        #  Insert into the static-pages
        #
        my $sql = $dbh->prepare(
            "INSERT INTO pages (title,filename,content,template) VALUES( ?, ?, ?, ? )"
          ) or
          die "Failed to prepare";

        $sql->execute( $data->{ 'title' },
                       $data->{ 'output' } || $data->{ 'link' },
                       $data->{ 'body' },
                       $data->{ 'template' } ) or
          die "Failed to insert";
        $sql->finish();

        #
        #  Don't allow this to be treated as normal.
        #
        return;
    }

    # if its not a page carry on
    else
    {

        #
        #  Allow proceeding as normal
        #
        return ($data);
    }
}

=head2 on_generate

Generates the static page if a "C<page: 1>" header is present. The Page is
processed then removed from futher processing, to avoid  being treated as a
blog entry.

=cut

sub on_generate
{
    my ( $self, %args ) = (@_);

    #
    #  The post data, DB-handle and config.
    #
    my $dbh    = $args{ 'dbh' };
    my $config = $args{ 'config' };

    #
    #  Fetch all the static-pages.
    #
    my $pages =
      $dbh->prepare("SELECT filename,title,content,template FROM pages") or
      die "Failed to find static-pages";
    $pages->execute() or die "Failed to execute query";


    my ( $filename, $content, $title, $template );
    $pages->bind_columns( undef, \$filename, \$title, \$content, \$template );

    #
    #  Build each page.
    #
    while ( my $page = $pages->fetch() )
    {

        $config->{ 'verbose' } &&
          print
          "Generating static-page: Title:$title -> $config->{'output'}/$filename\n";

        #
        #  Ensure we have a full output path.
        #
        my $dir =
          File::Basename::dirname( $config->{ 'output' } . "/" . $filename );
        if ( !-d $dir )
        {
            File::Path::make_path( $dir,
                                   {  verbose => 0,
                                      mode    => oct("755"),
                                   } );
        }
        my $c = Chronicle::load_template($template);
        $c->param( top => $config->{ 'top' } );
        $c->param( { content => $content, title => $title } );

        open( my $handle, ">:encoding(UTF-8)",
              $config->{ 'output' } . "/" . $filename ) or
          die "Failed to open";
        print $handle $c->output();
        close($handle);
    }

    $pages->finish();
}



sub _order
{
    return 1001;
}

1;

=head1 LICENSE

This module is free software; you can redistribute it and/or modify it
under the terms of either:

a) the GNU General Public License as published by the Free Software
Foundation; either version 2, or (at your option) any later version,
or

b) the Perl "Artistic License".

=cut

=head1 AUTHOR