Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

SKX / App-Chronicle-5.1.3 / lib / Chronicle / Plugin / Archived.pm 

            

              
—
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
—
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
—
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

              
=head1 NAME
Chronicle::Plugin::Archived - Generate dated-posts.
=head1 DESCRIPTION
This module is disabled by default, but if it is enabled your generated
blog will contain links to dated posts.
For example by default a blog entry might be generated with a URL such
as C<http://example.com/my_first_post.html>.  With this module enabled
that will change to C<http://example.com/2015/09/my_first_post.html>.
B<NOTE> If you enable or disable this plugin you will need to regenerate
your SQLite database.
See also C<Chronicle::Plugin::InPlacePosts>.
=cut
=head1 METHODS
Now follows documentation on the available methods.
=cut
package Chronicle::Plugin::Archived;
use strict;
use warnings;
our $VERSION = "5.1.3";
use Date::Format;
use Date::Parse;
=head2 on_insert
The C<on_insert> method is automatically invoked when a new blog post
must be inserted into the SQLite database, that might be because a post
is new, or because it has been updated.
The method is designed to return an updated blog-post structure,
after performing any massaging required.  If the method returns undef
then the post is not inserted.
In this method we rewrite the link of the pending-post such that it
is prefixed with the year and month - turning the link into a dated
one.
=cut
sub on_insert
{
    my ( $self, %args ) = (@_);
    my $dbh    = $args{ 'dbh' };
    my $config = $args{ 'config' };
    my $data   = $args{ 'data' };
    #
    #  Convert the date of the post to a seconds past epoch.
    #
    my $date = str2time( $data->{ 'date' } );
    #
    #  Now build up a new prefix for the file
    #
    $date = time2str( "%Y/%m/", $date );
    #
    #  And prepend that to the link.
    #
    $data->{ 'link' }->path_prepend($date);
    return ($data);
}
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
Steve Kemp <steve@steve.org.uk>
=cut