view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

      cost two extra runs of the collector.
    - HTML-escape errors reported by Template::Toolkit.
    - Added support for the If-Modified-Since HTTP validator.
    - Instantiate the renderer/source/collector/frontend classes if they have
      a constructor.
    - Ignore commented and empty lines in the configuration file.
    - Made the FlatFile data source not automatically replace a double \n
      with a <p> tag. This is an incompatible change.
    - Replaced some uses of die with report_error().
    - Optimization: cut two stat(2) calls from each call to make_document().
    - Optimization: cache getpwuid(3) calls because they parse /etc/passwd
      every time.
    - Example: render new posts as text and post them to a newsgroup.
    - Example: fastcgi daemon with a lighttpd configuration.
    - Example: a simple WYSIWYG editor for posts, based on fckeditor.

3.1 - 2009-05-28
    - remote execution bug fixed

3.0 - 2007-01-20
    - First release by new maintainer David Cantrell

lib/Bryar/DataSource/FlatFile.pm  view on Meta::CPAN

    my ($self, $file) = @_;
    return unless $file;
    open(my($in), '<:utf8', $file) or return;
    my $when = (stat $in)[9];
    local $/ = "\n";
    my $fileuid = (stat _)[4];
    my $who;
        if (exists $UID_Cache{$fileuid}) {
        $who = $UID_Cache{$fileuid};
    } else {
        $who = $UID_Cache{$fileuid} = getpwuid($fileuid);
    }
    my $title = <$in>;
    chomp $title;
    local $/;
    my $content = <$in>;
    close $in;
    my $id = $self->file_to_id($file);

    my $comments = [];
    $comments = [_read_comments($id, $id.".comments") ]

lib/Bryar/DataSource/FlatFile/Dated.pm  view on Meta::CPAN

See L<Bryar::DataSource::FlatFile>

=cut

sub make_document {
    my ($self, $file) = @_;
    return unless $file;
    open(my($in), '<:utf8', $file) or return;
    local $/ = "\n";
    my $who = getpwuid((stat $in)[4]);
    $file =~ s/\.txt$//;
    my $when  = <$in>;
    my $title = <$in>;
    chomp $title;
    local $/;
    my $content = <$in>;
    close $in;

    my $comments = [];
    $comments = [_read_comments($file, $file.".comments") ]