# HG changeset patch
# User Steve Kemp <steve@steve.org.uk>
# Date 1210955965 -3600
# Node ID a534e06653dd57dd2f100f50312b736da00a8c03
# Parent  e1d0a8576342be377321125d5c00f3bc220c56f9
  Patch from MJ Ray - allow entries with a Published: date in the future
 to be silently skipped over

diff -r e1d0a8576342 -r a534e06653dd bin/chronicle
--- a/bin/chronicle	Fri May 16 17:37:07 2008 +0100
+++ b/bin/chronicle	Fri May 16 17:39:25 2008 +0100
@@ -612,7 +612,9 @@
         #  Read the entry and store all the data away as a
         # hash element keyed upon the (unique) filename.
         #
-        $results{ $file } = readBlogEntry($file);
+        my $result        = readBlogEntry($file);
+        $results{ $file } = $result if ( $result );
+
     }
 
     #
@@ -1533,6 +1535,20 @@
     close(ENTRY);
 
     #
+    # MJR - embargo the entry until the publish if it
+    # is in the future.
+    #
+    # Steve prefers using chronicle-spooler, but I want
+    # uploaded files to stay where I put them, else I get
+    # my local copy confused.
+    #
+    if (($publish ne "") && (str2time($publish) > time()))
+    {
+        return 0;
+    }
+
+
+    #
     #  Determine the input format to use.
     #
     my $format = lc( $CONFIG{ 'format' } );