recents

Author: windley

Blog.pm

@@ -94,7 +94,7 @@ sub make_blog_entry {
   my $meta = compute_meta($entry_file, $config);
 
 #  warn $meta->{'status'}, " ", $meta->{'timestamp'} if $meta->{'status'} eq 'draft';
-  warn ">>>>Image url: ". $meta->{'postimage'} . "\n";
+#  warn ">>>>Image url: ". $meta->{'postimage'} . "\n";
 
   #print Dumper($meta);
   my $result = $config->{'individual_entry_template_file'}->fill_in(HASH => $meta);
@@ -265,7 +265,7 @@ sub compute_meta {
           $meta->{'postimage'} = $image_url;
       }
   }
-  warn ">>>>Image url: ". $meta->{'postimage'} . "\n";
+#  warn ">>>>Image url: ". $meta->{'postimage'} . "\n";
 
 
   # if ($meta->{'entry_url'} eq "/archives/2002/06/egovernment_on.shtml") {
@@ -285,7 +285,7 @@ sub read_index {
     my $index;
     if ( -e $filename ) {
       $index = YAML::XS::LoadFile($filename) ||
-	warn "Can't open index file $filename: $!";
+      warn "Can't open index file $filename: $!";
     }
 
     return $index;

fold_blog.pl

@@ -56,15 +56,23 @@
   $homepage_mtime = 0;
 }
 
+# warn "Homepage mtime for $homepage_file: $homepage_mtime \n";
+
 my $index = read_index($index_file);
 
 
 my($files);
 
 # get all the files that are html of md files
-find( sub{-f $_ and /(html|md)$/s and unshift @{ $files}, $File::Find::name;
-         }, $entry_dir );
+find( \&wanted, $entry_dir );
+
+sub wanted
+{
+    push(@{ $files }, $File::Find::name) if($File::Find::name=~m/\.(html|md)$/i);
+}
 
+$files = [sort {$b cmp $a} @{ $files }];
+# warn join(", ", sort @{$files});
 
 $config->{'blog_url'} =~ s[/$][];
 
@@ -123,6 +131,7 @@
   }
 
   if ($entry_count < $config->{'homepage_entries'}) {
+    warn "Adding $meta->{'timestamp'} to homepage...\n";
     push(@{ $homepage_meta->{'entries'} }, $meta);
     push(@{ $rss_meta->{'entries'} }, $meta);
   } else {