view release on metacpan or  search on metacpan

bin/chronicle  view on Meta::CPAN

      my $file ( get_post_files( $CONFIG{ 'input' }, $CONFIG{ 'pattern' } ) )
    {

        #
        # We want to find the mtime to see if it is newer than the DB-version.
        #
        my ( $dev,   $ino,     $mode, $nlink, $uid,
             $gid,   $rdev,    $size, $atime, $mtime,
             $ctime, $blksize, $blocks
           )
          = stat($file);


        #
        #  Lookup the existing entry
        #
        $sql->execute( $file, $mtime ) or
          die "Failed to execute: " . $dbh->errstr();
        my $result = $sql->fetchrow_hashref();

        if ( !$result )

bin/chronicle  view on Meta::CPAN

    #
    my @entries;
    foreach my $file ( glob( $CONFIG{ 'comments' } . "/" . $title . "*" ) )
    {
        push( @entries, $file );
    }

    #
    # Sort them into order by mtime.
    #
    @entries = sort {( stat($a) )[9] <=> ( stat($b) )[9]} @entries;

    #
    #  Now process them, extracting the submitters IP, email,
    # etc, etc, from the body of the comment-file.
    #
    foreach my $file (@entries)
    {
        my $date    = "";
        my $name    = "";
        my $link    = "";