+ foreach my $path_file ( &$sort( \%f, \%others ) ) {
+ last if $ne <= 0 && $date !~ /\d/;
+ use vars qw/ $path $fn /;
+ ( $path, $fn )
+ = $path_file =~ m!^$datadir/(?:(.*)/)?(.*)\.$file_extension!;
+
+ # Only stories in the right hierarchy
+ $path =~ /^$currentdir/
+ or $path_file eq "$datadir/$currentdir"
+ or next;
+
+ # Prepend a slash for use in templates only if a path exists
+ $path &&= "/$path";
+
+ # Date fiddling for by-{year,month,day} archive views
+ use vars
+ qw/ $dw $mo $mo_num $da $ti $yr $hr $min $hr12 $ampm $utc_offset/;
+ ( $dw, $mo, $mo_num, $da, $ti, $yr, $utc_offset )
+ = nice_date( $files{"$path_file"} );
+ ( $hr, $min ) = split /:/, $ti;
+ ( $hr12, $ampm ) = $hr >= 12 ? ( $hr - 12, 'pm' ) : ( $hr, 'am' );
+ $hr12 =~ s/^0//;
+ if ( $hr12 == 0 ) { $hr12 = 12 }
+
+ # Only stories from the right date
+ my ( $path_info_yr, $path_info_mo_num, $path_info_da )
+ = split /\//, $date;
+ next if $path_info_yr && $yr != $path_info_yr;
+ last if $path_info_yr && $yr < $path_info_yr;
+ next if $path_info_mo_num && $mo ne $num2month[$path_info_mo_num];
+ next if $path_info_da && $da != $path_info_da;
+ last if $path_info_da && $da < $path_info_da;
+
+ # Date
+ my $date = ( &$template( $path, 'date', $flavour ) );
+
+ # Plugins: Date
+ foreach my $plugin (@plugins) {
+ if ( $plugins{$plugin} > 0 and $plugin->can('date') ) {
+ $entries
+ = $plugin->date( $currentdir, \$date,
+ $files{$path_file}, $dw, $mo, $mo_num, $da, $ti,
+ $yr );
+ }
+ }
+
+ $date = &$interpolate($date);
+
+ if ( $date && $curdate ne $date ) {
+ $curdate = $date;
+ $output .= $date;
+ }
+
+ use vars qw/ $title $body $raw /;
+ if ( -f "$path_file" && $fh->open("< $path_file") ) {
+ chomp( $title = <$fh> );
+ chomp( $body = join '', <$fh> );
+ $fh->close;
+ $raw = "$title\n$body";
+ }
+ my $story = ( &$template( $path, 'story', $flavour ) );
+
+ # Plugins: Story
+ foreach my $plugin (@plugins) {
+ if ( $plugins{$plugin} > 0 and $plugin->can('story') ) {
+ $entries = $plugin->story( $path, $fn, \$story, \$title,
+ \$body );
+ }
+ }
+
+ # Save unescaped versions and allow them to be used in
+ # flavour templates.
+ use vars qw/$url_unesc $path_unesc $fn_unesc/;
+ $url_unesc = $url;
+ $path_unesc = $path;
+ $fn_unesc = $fn;
+
+ # Fix special characters in links inside XML content
+ if ( $encode_xml_entities
+ && $content_type =~ m{\bxml\b}
+ && $content_type !~ m{\bxhtml\b} )
+ {
+
+ # Escape special characters inside the <link> container
+
+ &url_escape_url_path_and_fn();
+
+ # Escape <, >, and &, and to produce valid RSS
+ $title = blosxom_html_escape($title);
+ $body = blosxom_html_escape($body);
+ $url = blosxom_html_escape($url);
+ $path = blosxom_html_escape($path);
+ $fn = blosxom_html_escape($fn);
+ }
+
+ # Fix special characters in links inside XML content
+ if ($encode_8bit_chars) {
+ &url_escape_url_path_and_fn();
+ }
+
+ $story = &$interpolate($story);