Use _aggregated as extension for internalized aggregation

[git.ikiwiki.info.git] / IkiWiki / Plugin / aggregate.pm

diff --git a/IkiWiki/Plugin/aggregate.pm b/IkiWiki/Plugin/aggregate.pm
index b3d4a5eec84d5a46f5b8b3c485cd0d73430c62a2..e9349286300cc49a1d17287c1922f143841e4994 100644 (file)
--- a/IkiWiki/Plugin/aggregate.pm
+++ b/IkiWiki/Plugin/aggregate.pm
@@ -21,6 +21,7 @@ sub import { #{{{
        hook(type => "preprocess", id => "aggregate", call => \&preprocess);
         hook(type => "delete", id => "aggregate", call => \&delete);
        hook(type => "savestate", id => "aggregate", call => \&savestate);
+       hook(type => "htmlize", id => "_aggregated", call => \&htmlize);
        if (exists $config{aggregate_webtrigger} && $config{aggregate_webtrigger}) {
                hook(type => "cgi", id => "aggregate", call => \&cgi);
        }
@@ -113,6 +114,55 @@ sub launchaggregation () { #{{{
        return 1;
 } #}}}
 
+#  Pages with extension _aggregated have plain html markup, pass through.
+sub htmlize (@) { #{{{
+       my %params=@_;
+       return $params{content};
+} #}}}
+
+sub migrate_to_internal { #{{{
+
+       if (! lockaggregate()) {
+               error("an aggregation process is already running");
+               return;
+       }
+
+       IkiWiki::lockwiki();
+       loadstate();
+
+       foreach my $data (values %guids) {
+               next unless $data->{page};
+
+               $config{aggregateinternal} = 0;
+               my $oldname = pagefile($data->{page});
+
+               $config{aggregateinternal} = 1;
+               my $newname = pagefile($data->{page});
+
+               print "I: $oldname -> $newname\n";
+               if (-e $newname) {
+                       if (-e $oldname) {
+                               error("$newname already exists");
+                       }
+                       else {
+                               print STDERR 
+                                       "W: already renamed to $newname?\n";
+                       }
+               }
+               elsif (-e $oldname) {
+                       rename($oldname, $newname) || error("$!");
+               }
+               else {
+                       print "W: $oldname not found\n";
+               }
+       }
+
+       savestate();
+       IkiWiki::unlockwiki;
+
+       unlockaggregate();
+} #}}}
+
 sub needsbuild (@) { #{{{
        my $needsbuild=shift;
        
@@ -598,7 +648,7 @@ sub pagefile ($) { #{{{
 } #}}}
 
 sub htmlfn ($) { #{{{
-       return shift().".".($config{aggregateinternal} ? "_" : "").$config{htmlext};
+       return shift().".".($config{aggregateinternal} ? "_aggregated" : $config{htmlext});
 } #}}}
 
 my $aggregatelock;